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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(parse-symbol): Allow strings and symbols as package designators.

Date: Sun Jun 20 14:33:05 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.195 slime/swank.lisp:1.196
--- slime/swank.lisp:1.195	Sun Jun 20 06:55:16 2004
+++ slime/swank.lisp	Sun Jun 20 14:33:05 2004
@@ -784,13 +784,14 @@
 (defun parse-package (string)
   "Find the package named STRING.
 Return the package or nil."
-  (multiple-value-bind (sym pos) 
+  (multiple-value-bind (name pos) 
       (if (zerop (length string))
           (values :|| 0)
           (let ((*package* keyword-package))
             (ignore-errors (read-from-string string))))
-    (if (and (keywordp sym) (= (length string) pos))
-        (find-package sym))))
+    (if (and (or (keywordp name) (stringp name))
+             (= (length string) pos))
+        (find-package name))))
 
 (defun to-string (string)
   "Write string in the *BUFFER-PACKAGE*."