Commit a16f0ad9 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix ENSURE-FUNCTION to return FDEFINITION of symbol as documented.

(Patch by Mark Evenson which fixes support on ABCL.)
parent 40021fdf
......@@ -372,7 +372,7 @@ and EVAL that in a (FUNCTION ...) context."
(etypecase fun
(function fun)
((or boolean keyword character number pathname) (constantly fun))
(symbol fun)
(symbol (fdefinition fun))
(cons (if (eq 'lambda (car fun))
(eval fun)
#'(lambda (&rest args) (apply (car fun) (append (cdr fun) args)))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment