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