Commit 597ec21a authored by Brian Downing's avatar Brian Downing
Browse files

0.9.17.17:

  * Support INTERPRETED-FUNCTIONs in SB-INTROSPECT:FUNCTION-ARGLIST.
    Problem reported by <baronsamdi@verizon.net>.
parent 191055e0
Loading
Loading
Loading
Loading
+6 −2
Original line number Diff line number Diff line
@@ -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)))))

+1 −1
Original line number Diff line number Diff line
@@ -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"