[Sbcl-commits] CVS: sbcl/contrib/sb-introspect sb-introspect.lisp,1.17,1.17.2.1

[Cyrus H. <sl...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-introspect
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5900/contrib/sb-introspect

Modified Files:
      Tag: lutex-branch
	sb-introspect.lisp 
Log Message:
0.9.11.45.lutex-branch.32
   * merging 0.9.11.45 changes onto the lutex branch


Index: sb-introspect.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-introspect/sb-introspect.lisp,v
retrieving revision 1.17
retrieving revision 1.17.2.1
diff -u -d -r1.17 -r1.17.2.1
--- sb-introspect.lisp	14 Feb 2006 09:27:20 -0000	1.17
+++ sb-introspect.lisp	22 Apr 2006 03:08:08 -0000	1.17.2.1
@@ -380,12 +380,13 @@
 
 ;;; FIXME: maybe this should be renamed as FUNCTION-LAMBDA-LIST?
 (defun function-arglist (function)
-  "Describe the lambda list for the function designator FUNCTION.
+  "Describe the lambda list for the extended function designator FUNCTION.
 Works for special-operators, macros, simple functions and generic
 functions.  Signals error if not found"
   (cond ((valid-function-name-p function)
-         (function-arglist
-          (or (macro-function function) (fdefinition function))))
+         (function-arglist (or (and (symbolp function)
+                                    (macro-function function))
+                               (fdefinition function))))
         ((typep function 'generic-function)
          (sb-pcl::generic-function-pretty-arglist function))
         (t (sb-impl::%simple-fun-arglist