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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
*** empty log message ***
Date: Sun Sep 19 08:17:19 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.119 slime/swank-cmucl.lisp:1.120
--- slime/swank-cmucl.lisp:1.119	Sun Sep 19 08:10:00 2004
+++ slime/swank-cmucl.lisp	Sun Sep 19 08:17:19 2004
@@ -1297,7 +1297,7 @@
 ;;;;; Argument lists
 
 (defimplementation arglist ((name symbol))
-  (arglist (or (symbol-macro name)
+  (arglist (or (macro-function name)
                (symbol-function name))))
 
 (defimplementation arglist ((fun function))