Parent Directory | Revision Log | Patch
revision 1.30 by pfdietz, Tue Jan 28 01:15:14 2003 UTC | revision 1.31 by pfdietz, Wed Jan 29 02:11:54 2003 UTC | |
---|---|---|
# | Line 219 the condition to go uncaught if it canno | Line 219 the condition to go uncaught if it canno |
219 | (defun classify-error** (form) | (defun classify-error** (form) |
220 | (handler-bind ((warning #'(lambda (c) (declare (ignore c)) | (handler-bind ((warning #'(lambda (c) (declare (ignore c)) |
221 | (muffle-warning)))) | (muffle-warning)))) |
222 | (classify-error* | (proclaim '(optimize (safety 3))) |
223 | (eval `(locally (declare (optimize (safety 3))) ,form)) | (classify-error* (eval form) |
224 | ))) | ))) |
225 | ||
226 | (defmacro classify-error (form) | (defmacro classify-error (form) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |