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

[Helmut Eller]

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

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

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.18 slime/swank-openmcl.lisp:1.19
--- slime/swank-openmcl.lisp:1.18	Mon Nov  3 18:22:41 2003
+++ slime/swank-openmcl.lisp	Tue Nov  4 03:03:10 2003
@@ -13,7 +13,7 @@
 ;;; The LLGPL is also available online at
 ;;; http://opensource.franz.com/preamble.html
 ;;;
-;;;   $Id: swank-openmcl.lisp,v 1.18 2003/11/03 23:22:41 heller Exp $
+;;;   $Id: swank-openmcl.lisp,v 1.19 2003/11/04 08:03:10 heller Exp $
 ;;;
 
 ;;;
@@ -176,7 +176,8 @@
   "Return the lambda list for function FNAME as a string."
   (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 (ccl:arglist function)))