/[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.12 by ram, Tue Jul 24 22:08:40 1990 UTC revision 1.13 by wlott, Fri Aug 24 18:35:27 1990 UTC
# Line 825  Line 825 
825                                      :argument-test #'types-intersect                                      :argument-test #'types-intersect
826                                      :result-test #'values-types-intersect))                                      :result-test #'values-types-intersect))
827             (setf (gethash node *failed-optimizations*) type)             (setf (gethash node *failed-optimizations*) type)
828               t)
829              (t
830             t))))             t))))
831    
832    

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5