/[cmucl]/src/compiler/locall.lisp
ViewVC logotype

Diff of /src/compiler/locall.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34 by ram, Tue Jul 21 18:45:34 1992 UTC revision 1.34.1.1 by ram, Wed Dec 9 00:49:18 1992 UTC
# Line 878  Line 878 
878                     (eq (basic-combination-fun dest) ref-cont)                     (eq (basic-combination-fun dest) ref-cont)
879                     (eq (basic-combination-kind dest) :local)                     (eq (basic-combination-kind dest) :local)
880                     (not (block-delete-p (node-block dest))))                     (not (block-delete-p (node-block dest))))
881            (let-convert fun dest)            (unless (eq (functional-kind fun) :assignment)
882                (let-convert fun dest))
883            (setf (functional-kind fun)            (setf (functional-kind fun)
884                  (if (mv-combination-p dest) :mv-let :let))))                  (if (mv-combination-p dest) :mv-let :let))))
885        t)))        t)))

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.34.1.1

  ViewVC Help
Powered by ViewVC 1.1.5