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:

 		     ((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)