Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -372,7 +372,7 @@ and EVAL that in a (FUNCTION ...) context." ...@@ -372,7 +372,7 @@ and EVAL that in a (FUNCTION ...) context."
(etypecase fun (etypecase fun
(function fun) (function fun)
((or boolean keyword character number pathname) (constantly fun)) ((or boolean keyword character number pathname) (constantly fun))
(symbol fun) (symbol (fdefinition fun))
(cons (if (eq 'lambda (car fun)) (cons (if (eq 'lambda (car fun))
(eval fun) (eval fun)
#'(lambda (&rest args) (apply (car fun) (append (cdr fun) args))))) #'(lambda (&rest args) (apply (car fun) (append (cdr fun) args)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment