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

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

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

revision 1.1 by pfdietz, Thu Jul 3 12:14:04 2003 UTC revision 1.2 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 27  Line 27 
27                                       '(should-never-be-called)))                                       '(should-never-be-called)))
28    `(if *should-always-be-true* ,form ,default-form))    `(if *should-always-be-true* ,form ,default-form))
29    
30    ;;; Macro to ignore errors, but report them anyway
31    
32    (defmacro report-and-ignore-errors (&body body)
33      `(eval-when (:load-toplevel :compile-toplevel :execute)
34         (#+sbcl let #+sbcl () #-sbcl progn
35           (handler-case
36            (progn ,@body)
37            (error (condition)
38                   (princ condition)
39                   (terpri)
40                   (values nil condition))))))
41    
42                      

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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