/[cmucl]/src/compiler/meta-vmdef.lisp
ViewVC logotype

Diff of /src/compiler/meta-vmdef.lisp

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

revision 1.8 by toy, Sat Dec 7 18:19:34 2002 UTC revision 1.9 by emarsden, Fri Apr 11 15:28:11 2003 UTC
# Line 876  Line 876 
876                  (ignores name))))                  (ignores name))))
877            `(if (and ,load-tn            `(if (and ,load-tn
878                      (let ,(binds)                      (let ,(binds)
                       #+new-compiler  
879                        (declare (ignorable ,@(ignores)))                        (declare (ignorable ,@(ignores)))
                       #-new-compiler  
                       (progn ,@(ignores))  
880                        ,load))                        ,load))
881                 ,load-tn                 ,load-tn
882                 (tn-ref-tn ,temp))))))                 (tn-ref-tn ,temp))))))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5