mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
15 lines
247 B
Common Lisp
15 lines
247 B
Common Lisp
(declaim (optimize sb-c:store-coverage-data))
|
|
|
|
(defun outer ()
|
|
(catch 'tag
|
|
(inner)
|
|
(print "returned from inner")))
|
|
|
|
(defun inner ()
|
|
(print "inside inner")
|
|
(thrower)
|
|
(print "after thrower"))
|
|
|
|
(defun thrower ()
|
|
(throw 'tag :good))
|