mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
9 lines
180 B
Common Lisp
9 lines
180 B
Common Lisp
(declaim (optimize sb-c:store-coverage-data))
|
|
|
|
(defun nlx-from-flet ()
|
|
(flet ((foo (x)
|
|
(return-from nlx-from-flet x)))
|
|
(foo 3)
|
|
(print "reached")
|
|
(foo 4)))
|