[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv11650/Drei

Modified Files:
	lisp-syntax.lisp 
Log Message:
Don't try to extract package from invalid in-package forms.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/19 20:06:01	1.69
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/20 19:45:24	1.70
@@ -1254,7 +1254,8 @@
                (and (form-token-p candidate)
                     (eq (form-to-object syntax candidate
                                          :no-error t)
-                        'cl:in-package)))))
+                        'cl:in-package)
+                    (second-form (children x))))))
          (extract (x)
            (let ((designator (second-form (children x))))
              (form-to-object syntax designator