From: Alexey D. <ade...@us...> - 2003-09-18 06:27:01
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs1:/tmp/cvs-serv9854/src/compiler Modified Files: locall.lisp Log Message: 0.8.3.75: * Do not let-convert into a deleted function. Index: locall.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/locall.lisp,v retrieving revision 1.53 retrieving revision 1.54 diff -u -d -r1.53 -r1.54 --- locall.lisp 16 Sep 2003 07:45:09 -0000 1.53 +++ locall.lisp 18 Sep 2003 06:26:57 -0000 1.54 @@ -1033,6 +1033,8 @@ (eq (basic-combination-fun dest) ref-lvar) (eq (basic-combination-kind dest) :local) (not (block-delete-p (node-block dest))) + (neq (functional-kind (node-home-lambda dest)) + :deleted) (cond ((ok-initial-convert-p clambda) t) (t (reoptimize-lvar ref-lvar) |