[Git][cmucl/cmucl][rtoy-fix-24-compile-foo] Don't try to get the lambda-expression for a function

[Raymond Toy]

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/94259938ccba4c40ae4ab9445d1fdb1150646a7b
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20160926/3f90ad2a/attachment.html>