[slime-cvs] CVS update: slime/swank-openmcl.lisp
Helmut Eller
heller at common-lisp.net
Tue Nov 4 08:03:11 UTC 2003
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)))
More information about the slime-cvs
mailing list