[slime-cvs] CVS update: slime/swank.lisp

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv17729

Modified Files:
	swank.lisp 
Log Message:
(carefully-find-package): Return *BUFFER-PACKAGE* if no other package
can be found. This is reverting a previous change that broke
completion in buffers with no known package.

Date: Thu Jul 22 09:54:23 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.219 slime/swank.lisp:1.220
--- slime/swank.lisp:1.219	Wed Jul 21 05:31:04 2004
+++ slime/swank.lisp	Thu Jul 22 09:54:22 2004
@@ -1685,7 +1685,9 @@
 *buffer-package*.  NAME and DEFAULT-PACKAGE-NAME can be nil."
   (let ((string (cond ((equal name "") "KEYWORD")
                       (t (or name default-package-name)))))
-    (if string (guess-package-from-string string nil))))
+    (if string
+        (guess-package-from-string string nil)
+        *buffer-package*)))
 
 ;;;;; Format completion results
 ;;;