From 646787cc75746e47c2abe375e4700587fce1f025 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Thu, 7 Sep 2000 12:16:23 +0000 Subject: [PATCH] When merging lets, ensure that the converted function is removed from the lambda-calls even when there is a recursive call to the function. --- compiler/locall.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/compiler/locall.lisp b/compiler/locall.lisp index f6f1bfca4..338f7f2fb 100644 --- a/compiler/locall.lisp +++ b/compiler/locall.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/locall.lisp,v 1.49 2000/07/06 18:37:03 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.50 2000/09/07 12:16:23 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -733,8 +733,7 @@ (setf (lambda-lets fun) ())) (setf (lambda-calls home) - (nunion (lambda-calls fun) - (delete fun (lambda-calls home)))) + (delete fun (nunion (lambda-calls fun) (lambda-calls home)))) (setf (lambda-calls fun) ()) (setf (lambda-entries home) -- GitLab