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

Diff of /src/compiler/ir1opt.lisp

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

revision 1.9.1.1 by ram, Tue Jun 5 20:31:39 1990 UTC revision 1.9.1.2 by ram, Wed Jun 6 14:04:38 1990 UTC
# Line 870  Line 870 
870  (defun transform-call (node res)  (defun transform-call (node res)
871    (declare (type combination node) (list res))    (declare (type combination node) (list res))
872    (with-ir1-environment node    (with-ir1-environment node
873      (let ((new-fun (ir1-convert-lambda res (node-source node)))      (let ((new-fun (ir1-convert-global-lambda res))
874            (ref (continuation-use (combination-fun node))))            (ref (continuation-use (combination-fun node))))
875        (change-ref-leaf ref new-fun)        (change-ref-leaf ref new-fun)
876        (setf (combination-kind node) :full)        (setf (combination-kind node) :full)

Legend:
Removed from v.1.9.1.1  
changed lines
  Added in v.1.9.1.2

  ViewVC Help
Powered by ViewVC 1.1.5