From 383096e99caa316e66a477264fc228b4cfe3cd1e Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 8 Feb 1997 21:44:28 +0000 Subject: [PATCH] Fix from Rob for trouble noted by Peter: > o.k. interpreted-function-lambda-expression just didn't work for anonymous > lambdas with non-fixed argcounts. > > Rob --- compiler/eval.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/eval.lisp b/compiler/eval.lisp index 1fb280592..f3e92bb70 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 -- GitLab