/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26