Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |