diff --git a/compiler/eval.lisp b/compiler/eval.lisp index 1fb2805923442cd279493d194d5fae9adde2bbf6..f3e92bb7088764999b07523f1a095c6115f132f5 100644 --- a/compiler/eval.lisp +++ b/compiler/eval.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval.lisp,v 1.30 1997/02/08 17:24:47 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval.lisp,v 1.31 1997/02/08 21:44:28 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -205,7 +205,8 @@ (or (interpreted-function-%name x) (c::component-name (c::block-component - (c::node-block (c::lambda-bind fun)))))))))) + (c::node-block + (c::lambda-bind (c::main-entry fun))))))))))) ;;; INTERPRETED-FUNCTION-TYPE -- Interface