diff --git a/compiler/dfo.lisp b/compiler/dfo.lisp index d502f52547d378c76ab3d18d8d0e2d60bb762b08..c9668b0a4e151501c4e705dbd3b982ba690340d8 100644 --- a/compiler/dfo.lisp +++ b/compiler/dfo.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dfo.lisp,v 1.23 1992/09/07 15:35:22 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dfo.lisp,v 1.24 1992/09/29 17:58:48 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -481,6 +481,7 @@ (merge-1-tl-lambda result-lambda lambda))) (t (dolist (lambda (rest lambdas)) + (setf (functional-entry-function lambda) nil) (delete-component (block-component (node-block (lambda-bind lambda)))))))