/[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.65 by ram, Mon Oct 31 04:27:28 1994 UTC revision 1.66 by dtc, Tue Feb 24 09:58:18 1998 UTC
# Line 1112  Line 1112 
1112        (cond        (cond
1113         ((not win)         ((not win)
1114          (setf (combination-kind call) :error))          (setf (combination-kind call) :error))
1115           ;; X Always transform the call below so that non-flushable
1116           ;; functions get flushed if the constant folding works.
1117           #+nil
1118         ((= (length values) 1)         ((= (length values) 1)
1119          (with-ir1-environment call          (with-ir1-environment call
1120            (when (producing-fasl-file)            (when (producing-fasl-file)

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

  ViewVC Help
Powered by ViewVC 1.1.5