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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(arglist-string): Handle generic functions better.  Reported by Ivan
Boldyrev.

Date: Sat Jan 17 04:59:48 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.51 slime/swank-cmucl.lisp:1.52
--- slime/swank-cmucl.lisp:1.51	Fri Jan 16 16:49:29 2004
+++ slime/swank-cmucl.lisp	Sat Jan 17 04:59:48 2004
@@ -28,7 +28,8 @@
   (ext:close-socket (socket-fd socket)))
 
 (defmethod accept-connection (socket)
-  #+MP (when *multiprocessing-enabled* (mp:process-wait-until-fd-usable socket :input))
+  #+MP (when *multiprocessing-enabled*
+         (mp:process-wait-until-fd-usable socket :input))
   (make-socket-io-stream (ext:accept-tcp-connection socket)))
 
 (defmethod add-input-handler (socket fn)
@@ -781,7 +782,7 @@
 		 (cond ((eval:interpreted-function-p fun)
 			(eval:interpreted-function-arglist fun))
 		       ((pcl::generic-function-p fun)
-			(pcl::gf-pretty-arglist fun))
+                        (pcl::arg-info-lambda-list (pcl::gf-arg-info fun)))
 		       (arglist arglist)
 		       ;; this should work both for
 		       ;; compiled-debug-function and for