Skip to content
Snippets Groups Projects
Commit 94259938 authored by Raymond Toy's avatar Raymond Toy
Browse files

Don't try to get the lambda-expression for a function

Since we're just going to return the original compiled function,
there's no point in trying to get the function-lambda-expression of
the function.  So, if we're given a function, just return the
(default) definition.
parent ae93b43b
Branches rtoy-fix-24-compile-foo
Tags
No related merge requests found
...@@ -2041,11 +2041,7 @@ ...@@ -2041,11 +2041,7 @@
((or cons eval:interpreted-function) ((or cons eval:interpreted-function)
`#',(get-lambda-to-compile definition)) `#',(get-lambda-to-compile definition))
(function (function
(multiple-value-bind (exp lexenv) definition)))
(function-lambda-expression definition)
(if (and exp (not lexenv))
`#',exp
definition)))))
(*source-info* (make-lisp-source-info form)) (*source-info* (make-lisp-source-info form))
(*top-level-lambdas* ()) (*top-level-lambdas* ())
(*converting-for-interpreter* nil) (*converting-for-interpreter* nil)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment