[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	lisp-syntax.lisp 
Log Message:
New default package for Lisp syntax: *package*. Mostly to fix symbol
completion in the Listener.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2006/12/10 19:28:49	1.12
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2006/12/11 22:04:55	1.13
@@ -1370,7 +1370,7 @@
 the (in-package) preceding `mark-or-offset'. If none can be
 found, return the package specified in the attribute list. If no
 package can be found at all, or the otherwise found packages are
-invalid, return the CLIM-USER package."
+invalid, return the value of `*package*'."
   (as-offsets ((offset mark-or-offset))
    (let* ((designator (rest (find offset (package-list syntax)
                                   :key #'first
@@ -1383,7 +1383,7 @@
             (package osp)
             (string (find-package osp))))
          (find-package (option-specified-package syntax))
-         (find-package :clim-user)))))
+         *package*))))
 
 (defun provided-package-name-at-mark (syntax mark-or-offset)
   "Get the name of the specified Lisp package for the