Skip to content
Snippets Groups Projects
Commit 557dd220 authored by ram's avatar ram
Browse files

Clear out functional-entry-function in the top-level lambda before calling

delete-component so that we won't get an assertion failure.
parent b85f0065
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -481,6 +481,7 @@
(merge-1-tl-lambda result-lambda lambda))) (merge-1-tl-lambda result-lambda lambda)))
(t (t
(dolist (lambda (rest lambdas)) (dolist (lambda (rest lambdas))
(setf (functional-entry-function lambda) nil)
(delete-component (delete-component
(block-component (block-component
(node-block (lambda-bind lambda))))))) (node-block (lambda-bind lambda)))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment