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