Commit 1f2c89fb authored by ram's avatar ram
Browse files

Merged non-descriptor changes:

 revision 1.5.2.2
 date: 90/04/09 00:00:09;  author: ram;  state: Exp;  lines added/del: 1/1
 Fixed typo.
 ----------------------------
 revision 1.5.2.1
 date: 90/03/27 13:18:14;  author: ram;  state: Exp;  lines added/del: 11/6
 Changed WITH-COMPILATION-UNIT to hack delayed unknown type warnings.
 We define a handler for PARSE-UNKNOWN-TYPE.
parent 305917d7
......@@ -1519,18 +1519,23 @@
`(flet ((,n-fun () ,@body))
(if (or ,force (not *in-compilation-unit*))
(let ((c::*unknown-functions* nil)
(let ((c::*undefined-warnings* nil)
(c::*compiler-error-count* 0)
(c::*compiler-warning-count* 0)
(c::*compiler-note-count* 0)
(*in-compilation-unit* t)
(*aborted-compilation-units* 0)
(,n-abort-p t))
(unwind-protect
(multiple-value-prog1
(,n-fun)
(setq ,n-abort-p nil))
(c::print-summary ,n-abort-p *aborted-compilation-units*)))
(handler-bind ((c::parse-unknown-type
#'(lambda (c)
(c::note-undefined-reference
(c::parse-unknown-type-specifier c)
:type))))
(unwind-protect
(multiple-value-prog1
(,n-fun)
(setq ,n-abort-p nil))
(c::print-summary ,n-abort-p *aborted-compilation-units*))))
(let ((,n-abort-p t))
(unwind-protect
(multiple-value-prog1
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment