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

Tweaked reoptimize-lambda-var.

parent 2bb423f2
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/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 @@ ...@@ -682,12 +682,14 @@
(let ((fun (lambda-var-home var))) (let ((fun (lambda-var-home var)))
(when (and (eq (functional-kind fun) :let) (when (and (eq (functional-kind fun) :let)
(leaf-refs var)) (leaf-refs var))
(reoptimize-continuation (do ((args (basic-combination-args
(elt (basic-combination-args (continuation-dest
(continuation-dest (node-cont
(node-cont (first (leaf-refs fun)))))
(first (leaf-refs fun))))) (cdr args))
(position var (lambda-vars fun)))))) (vars (lambda-vars fun) (cdr vars)))
((eq (car vars) var)
(reoptimize-continuation (car args))))))
(undefined-value)) (undefined-value))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment