From deedadd5dfc78104a88ebd21e7bb218f765352f2 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 9 Apr 1992 20:06:52 +0000 Subject: [PATCH] Deleted unnecessary special-casing of LET calls and bind nodes in DELETE-BLOCK. Deletion of the REF should suffice, and will avoid problems with deleting twice. --- compiler/ir1util.lisp | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 3bb05b4b4..543c2c83c 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.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/ir1util.lisp,v 1.52 1992/02/23 17:41:45 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.53 1992/04/09 20:06:52 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1047,23 +1047,11 @@ (typecase node (ref (delete-ref node)) (basic-combination - (when (and (eq (basic-combination-kind node) :local) - ;; Not already deleted... - (continuation-use (basic-combination-fun node))) - (let ((fun (combination-lambda node))) - (when (member (functional-kind fun) '(:let :mv-let :assignment)) - (delete-lambda fun)))) (flush-dest (basic-combination-fun node)) (dolist (arg (basic-combination-args node)) (when arg (flush-dest arg)))) (cif (flush-dest (if-test node))) - (bind - (let ((lambda (bind-lambda node))) - (unless (eq (functional-kind lambda) :deleted) - (assert (member (functional-kind lambda) - '(:let :mv-let :assignment))) - (delete-lambda lambda)))) (exit (let ((value (exit-value node)) (entry (exit-entry node))) -- GitLab