Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv9823/Drei
Modified Files: lisp-syntax.lisp Log Message: Make sure the parse is up-to-date when asked for package information in Lisp syntax.
--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/12/11 18:46:27 1.35 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/12/13 07:30:37 1.36 @@ -1152,6 +1152,7 @@ form can be found, return the package specified in the attribute list. If no such package is specified, return "CLIM-USER"." (as-offsets ((offset mark-or-offset)) + (update-parse syntax 0 mark-or-offset) (flet ((normalise (designator) (typecase designator (symbol @@ -1160,12 +1161,12 @@ designator) (package (package-name designator))))) - (let* ((designator (rest (find offset (package-list syntax) - :key #'first - :test #'>=)))) - (normalise (or designator - (option-specified-package syntax) - :clim-user)))))) + (let* ((designator (rest (find offset (package-list syntax) + :key #'first + :test #'>=)))) + (normalise (or designator + (option-specified-package syntax) + :clim-user))))))
(defmacro with-syntax-package ((syntax offset) &body body)