Skip to content

Instantly share code, notes, and snippets.

@sionescu

sionescu/unwind-protect-case.lisp

Created January 26, 2022 18:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sionescu/f4e768fd1fbce11700e5f1b22be50a66 to your computer and use it in GitHub Desktop.
Save sionescu/f4e768fd1fbce11700e5f1b22be50a66 to your computer and use it in GitHub Desktop.
Download ZIP
Using ALEXANDRIA:UNWIND-PROTECT-CASE to detect non-local exits
Raw
unwind-protect-case.lisp
(catch 'foo
(alexandria:unwind-protect-case ()
(throw 'foo 1)
(:abort (format t "ABORTED"))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment