From f70d0e91ed8997ef1928c5117c07850c1ba216b8 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 6 Aug 1993 13:12:04 +0000 Subject: [PATCH] Tweaked reoptimize-lambda-var. --- compiler/ir1util.lisp | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 9277dd090..d5f86b08a 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.65 1993/08/03 12:57:36 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.66 1993/08/06 13:12:04 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -682,12 +682,14 @@ (let ((fun (lambda-var-home var))) (when (and (eq (functional-kind fun) :let) (leaf-refs var)) - (reoptimize-continuation - (elt (basic-combination-args - (continuation-dest - (node-cont - (first (leaf-refs fun))))) - (position var (lambda-vars fun)))))) + (do ((args (basic-combination-args + (continuation-dest + (node-cont + (first (leaf-refs fun))))) + (cdr args)) + (vars (lambda-vars fun) (cdr vars))) + ((eq (car vars) var) + (reoptimize-continuation (car args)))))) (undefined-value)) -- GitLab