/[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.2.1.1 by wlott, Wed May 9 06:29:33 1990 UTC revision 1.2.1.2 by wlott, Tue Jun 5 20:09:07 1990 UTC
# Line 831  Line 831 
831                                      :argument-test #'types-intersect                                      :argument-test #'types-intersect
832                                      :result-test #'values-types-intersect))                                      :result-test #'values-types-intersect))
833             (setf (gethash node *failed-optimizations*) type)             (setf (gethash node *failed-optimizations*) type)
834               t)
835              (t
836             t))))             t))))
837    
838    

Legend:
Removed from v.1.2.1.1  
changed lines
  Added in v.1.2.1.2

  ViewVC Help
Powered by ViewVC 1.1.5