/[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.35 by wlott, Sun Dec 15 08:09:06 1991 UTC revision 1.36 by wlott, Sun Dec 15 14:59:09 1991 UTC
# Line 1009  Line 1009 
1009          (setf (combination-kind call) :full))          (setf (combination-kind call) :full))
1010         ((= (length values) 1)         ((= (length values) 1)
1011          (with-ir1-environment call          (with-ir1-environment call
1012            (make-emit-make-load-forms (first values))            (maybe-emit-make-load-forms (first values))
1013            (let* ((leaf (find-constant (first values)))            (let* ((leaf (find-constant (first values)))
1014                   (node (make-ref (leaf-type leaf)                   (node (make-ref (leaf-type leaf)
1015                                   leaf                                   leaf

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

  ViewVC Help
Powered by ViewVC 1.1.5