From: Brian Downing Date: Sat, 21 Oct 2006 07:23:13 +0000 (+0000) Subject: 0.9.17.17: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=597ec21a0c823bf356fd6446f279ae2dddcbde66;p=sbcl.git 0.9.17.17: * Support INTERPRETED-FUNCTIONs in SB-INTROSPECT:FUNCTION-ARGLIST. Problem reported by . --- diff --git a/contrib/sb-introspect/sb-introspect.lisp b/contrib/sb-introspect/sb-introspect.lisp index 220fc43..777ab6d 100644 --- a/contrib/sb-introspect/sb-introspect.lisp +++ b/contrib/sb-introspect/sb-introspect.lisp @@ -394,14 +394,18 @@ If an unsupported TYPE is requested, the function will return NIL. ;;; FIXME: maybe this should be renamed as FUNCTION-LAMBDA-LIST? (defun function-arglist (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" +Works for special-operators, macros, simple functions, +interpreted functions, and generic functions. Signals error if +not found" (cond ((valid-function-name-p function) (function-arglist (or (and (symbolp function) (macro-function function)) (fdefinition function)))) ((typep function 'generic-function) (sb-pcl::generic-function-pretty-arglist function)) + #+sb-eval + ((typep function 'sb-eval:interpreted-function) + (sb-eval:interpreted-function-lambda-list function)) (t (sb-impl::%simple-fun-arglist (sb-impl::%closure-fun function))))) diff --git a/version.lisp-expr b/version.lisp-expr index d671b4b..b41efb0 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.17.16" +"0.9.17.17"