source: trunk/abcl/src/org/armedbear/lisp/error.lisp

Last change on this file was 11297, checked in by ehuelsmann, 16 years ago

Set Id keyword for expansion.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
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.