From d17e492f5d35166e569ec4458d663426aac94ab5 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 11 Dec 1991 17:58:06 +0000 Subject: [PATCH] Restored code in MERGE-1-TL-LAMBDA which was inadvertently lost in the last edit. --- compiler/dfo.lisp | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/compiler/dfo.lisp b/compiler/dfo.lisp index 84cf2ef70..10ee96f81 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.18 1991/12/11 16:51:14 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dfo.lisp,v 1.19 1991/12/11 17:58:06 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -376,7 +376,13 @@ ;;; (defun merge-1-tl-lambda (result-lambda lambda) (declare (type clambda result-lambda lambda)) - + ;; + ;; Delete the lambda, and combine the lets and entries. + (setf (functional-kind lambda) :deleted) + (dolist (let (lambda-lets lambda)) + (setf (lambda-home let) result-lambda) + (setf (lambda-environment let) (lambda-environment result-lambda)) + (push let (lambda-lets result-lambda))) (setf (lambda-entries result-lambda) (nconc (lambda-entries result-lambda) (lambda-entries lambda))) -- GitLab