Skip to content

Instantly share code, notes, and snippets.

@making

making/gist:257619

Created December 16, 2009 05:35
Show Gist options
  • Save making/257619 to your computer and use it in GitHub Desktop.
Save making/257619 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.lisp
(defmacro try-catch ((&body try) &rest errors)
`(handler-case () (progn ,@try) ,@errors))
;; (try-catch (
;; (foo)
;; (bar)
;; )
;; (simple-error (c) (warn "simple-error! ~a" c))
;; (error (c) (warn "error! ~a" c))
;; )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment