Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1:/tmp/cvs-serv22812/src/compiler
Modified Files:
locall.lisp
Log Message:
0.8.3.91:
* Fix bug reported by Paul F. Dietz 2003-09-24 "NIL is not of
type LVAR": use NODE-DEST in MAYBE-CONVERT-TO-ASSIGNMENT.
Index: locall.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/locall.lisp,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -d -r1.54 -r1.55
--- locall.lisp 18 Sep 2003 06:26:57 -0000 1.54
+++ locall.lisp 25 Sep 2003 05:17:23 -0000 1.55
@@ -1123,7 +1123,7 @@
(let ((outside-non-tail-call nil)
(outside-call nil))
(when (and (dolist (ref (leaf-refs clambda) t)
- (let ((dest (lvar-dest (node-lvar ref))))
+ (let ((dest (node-dest ref)))
(when (or (not dest)
(block-delete-p (node-block dest)))
(return nil))
|