From 557dd220bf78e91a7e1f0a5f4348d3e4b0d9e2ba Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 29 Sep 1992 17:58:48 +0000 Subject: [PATCH] Clear out functional-entry-function in the top-level lambda before calling delete-component so that we won't get an assertion failure. --- compiler/dfo.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/dfo.lisp b/compiler/dfo.lisp index d502f5254..c9668b0a4 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))))))) -- GitLab