[mcclim-cvs] CVS update: mcclim/describe.lisp

[Bruno Haible]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv26844

Modified Files:
	describe.lisp 
Log Message:
(describe-object at symbol): Add CLISP support.

Date: Mon Dec 20 16:48:31 2004
Author: bhaible

Index: mcclim/describe.lisp
diff -u mcclim/describe.lisp:1.10 mcclim/describe.lisp:1.11
--- mcclim/describe.lisp:1.10	Mon Nov 15 05:47:41 2004
+++ mcclim/describe.lisp	Mon Dec 20 16:48:30 2004
@@ -70,7 +70,8 @@
     (let ((arglist #+excl (excl:arglist (symbol-function thing))
                    #+cmu (kernel:%function-arglist (symbol-function thing))
                    #+sbcl (sb-kernel:%simple-fun-arglist (symbol-function thing))
-                   #-(or excl cmu sbcl) "( ??? )"))
+                   #+clisp (ext:arglist (symbol-function thing))
+                   #-(or excl cmu sbcl clisp) "( ??? )"))
       (when arglist
         (clim:present arglist
                       (clim:presentation-type-of arglist)