Raymond Toy pushed to branch rtoy-fix-24-compile-foo at cmucl / cmucl Commits: 94259938 by Raymond Toy at 2016-09-25T18:59:48-07:00 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. - - - - - 1 changed file: - src/compiler/main.lisp Changes: ===================================== src/compiler/main.lisp ===================================== --- a/src/compiler/main.lisp +++ b/src/compiler/main.lisp @@ -2041,11 +2041,7 @@ ((or cons eval:interpreted-function) `#',(get-lambda-to-compile definition)) (function - (multiple-value-bind (exp lexenv) - (function-lambda-expression definition) - (if (and exp (not lexenv)) - `#',exp - definition))))) + definition))) (*source-info* (make-lisp-source-info form)) (*top-level-lambdas* ()) (*converting-for-interpreter* nil) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/94259938ccba4c40ae4ab9445d...