[slime-cvs] CVS slime

[nsiivola]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv784

Modified Files:
	ChangeLog swank.lisp 
Log Message:
swank.lisp (guess-package): Return NIL if string designator is NIL

  Makes files without IN-PACKAGE forms more *BREAK-ON-SIGNALS friendly.



--- /project/slime/cvsroot/slime/ChangeLog	2008/09/22 17:49:53	1.1538
+++ /project/slime/cvsroot/slime/ChangeLog	2008/09/22 22:56:18	1.1539
@@ -1,3 +1,9 @@
+2008-09-22  Nikodemus Siivola  <nikodemus at random-state.net>
+
+	* swank.lisp (guess-package): Return NIL if string designator is
+	NIL: makes files without IN-PACKAGE forms more *BREAK-ON-SIGNALS*
+	friendly.
+
 2008-09-22  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-sbcl.lisp (wait-for-input): Implement this in backend,
--- /project/slime/cvsroot/slime/swank.lisp	2008/09/21 11:17:43	1.594
+++ /project/slime/cvsroot/slime/swank.lisp	2008/09/22 22:56:18	1.595
@@ -1823,10 +1823,11 @@
 (defun guess-package (string)
   "Guess which package corresponds to STRING.
 Return nil if no package matches."
-  (or (find-package string)
-      (parse-package string)
-      (if (find #\! string) ; for SBCL
-          (guess-package (substitute #\- #\! string)))))
+  (when string
+    (or (find-package string)
+        (parse-package string)
+        (if (find #\! string)           ; for SBCL
+            (guess-package (substitute #\- #\! string))))))
 
 (defvar *readtable-alist* (default-readtable-alist)
   "An alist mapping package names to readtables.")