projects
/
jscl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Fix test in SBCL
[jscl.git]
/
tests
/
control.lisp
1
2
;;; Returning from a "dynamically" nested non local exists
3
4
(defun foo (x)
5
(when x (funcall x))
6
(foo (lambda () (return-from foo 1)))
7
(return-from foo 2))
8
9
(test (= (foo nil) 1))
10
11
(defun foo-2 (x)
12
(let (value)
13
(tagbody
14
(when x (funcall x))
15
(foo-2 (lambda () (go exit-2)))
16
(go end)
17
exit-2
18
(setq value t)
19
end)
20
value))
21
22
(test (foo-2 nil))
23