/[cmucl]/src/code/macros.lisp
ViewVC logotype

Diff of /src/code/macros.lisp

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

revision 1.5 by ram, Thu Feb 22 11:00:54 1990 UTC revision 1.5.2.1 by ram, Tue Mar 27 13:18:14 1990 UTC
# Line 1519  Line 1519 
1519    
1520      `(flet ((,n-fun () ,@body))      `(flet ((,n-fun () ,@body))
1521         (if (or ,force (not *in-compilation-unit*))         (if (or ,force (not *in-compilation-unit*))
1522             (let ((c::*unknown-functions* nil)             (let ((c::*undefined-warnings* nil)
1523                   (c::*compiler-error-count* 0)                   (c::*compiler-error-count* 0)
1524                   (c::*compiler-warning-count* 0)                   (c::*compiler-warning-count* 0)
1525                   (c::*compiler-note-count* 0)                   (c::*compiler-note-count* 0)
1526                   (*in-compilation-unit* t)                   (*in-compilation-unit* t)
1527                   (*aborted-compilation-units* 0)                   (*aborted-compilation-units* 0)
1528                   (,n-abort-p t))                   (,n-abort-p t))
1529               (unwind-protect               (handler-bind ((c::parse-unknown-type
1530                   (multiple-value-prog1                               #'(lambda (c)
1531                       (,n-fun)                                   (c::note-undefined-reference
1532                     (setq ,n-abort-p nil))                                    (c::parse-unknown-type-specifier x)
1533                 (c::print-summary ,n-abort-p *aborted-compilation-units*)))                                    :type))))
1534                   (unwind-protect
1535                       (multiple-value-prog1
1536                           (,n-fun)
1537                         (setq ,n-abort-p nil))
1538                     (c::print-summary ,n-abort-p *aborted-compilation-units*))))
1539             (let ((,n-abort-p t))             (let ((,n-abort-p t))
1540               (unwind-protect               (unwind-protect
1541                   (multiple-value-prog1                   (multiple-value-prog1

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.5.2.1

  ViewVC Help
Powered by ViewVC 1.1.5