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

[Helmut Eller]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(arglist-string): Delay the call to di::function-debug-function until
it is actually needed.
Date: Wed Feb 25 15:51:50 2004
Author: heller

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.70 slime/swank-cmucl.lisp:1.71
--- slime/swank-cmucl.lisp:1.70	Tue Feb 24 18:31:34 2004
+++ slime/swank-cmucl.lisp	Wed Feb 25 15:51:50 2004
@@ -822,7 +822,6 @@
 	       "(-- <Unknown-Function>)"
 	       (let* ((fun (or (macro-function function)
                                (symbol-function function)))
-		      (df (di::function-debug-function fun))
 		      (arglist (kernel:%function-arglist 
                                 (kernel:%function-self fun))))
 		 (cond ((eval:interpreted-function-p fun)
@@ -833,8 +832,10 @@
 		       ;; this should work both for
 		       ;; compiled-debug-function and for
 		       ;; interpreted-debug-function
-		       (df (di::debug-function-lambda-list df))
-		       (t "(<arglist-unavailable>)"))))))
+		       (t (let ((df (di::function-debug-function fun)))
+                            (if df 
+                                (di::debug-function-lambda-list df)
+                                "(<arglist-unavailable>)"))))))))
       (etypecase arglist
         (string arglist)
         (cons (let ((*print-case* :downcase)