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

Modified Files: describe.lisp Log Message: (describe-object@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)