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

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(arglist-string): Pass *buffer-package* to find-symbol-designator.
Date: Tue Nov  4 03:03:22 2003
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.19 slime/swank-sbcl.lisp:1.20
--- slime/swank-sbcl.lisp:1.19	Mon Nov  3 18:22:41 2003
+++ slime/swank-sbcl.lisp	Tue Nov  4 03:03:20 2003
@@ -240,7 +240,8 @@
 (defslimefun arglist-string (fname)
   (let ((*print-case* :downcase))
     (multiple-value-bind (function condition)
-        (ignore-errors (values (find-symbol-designator fname)))
+        (ignore-errors (values 
+                        (find-symbol-designator fname *buffer-package*)))
       (when condition
         (return-from arglist-string (format nil "(-- ~A)" condition)))
       (let ((arglist