Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Didier Verna
asdf
Commits
a16f0ad9
Commit
a16f0ad9
authored
Nov 02, 2013
by
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
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/utility.lisp
View file @
a16f0ad9
...
...
@@ -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
)))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment