[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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)