source: trunk/j/src/org/armedbear/lisp/error.lisp @ 9266

Last change on this file since 9266 was 787, checked in by piso, 18 years ago

Initial checkin.

File size: 204 bytes
Line 
1;;; error.lisp
2
3(in-package "COMMON-LISP")
4
5(export '(ignore-errors))
6
7(defmacro ignore-errors (&rest forms)
8  `(handler-case (progn ,@forms)
9                 (error (condition) (values nil condition))))
Note: See TracBrowser for help on using the repository browser.