projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.9.61:
[sbcl.git]
/
tests
/
loop.pure.lisp
diff --git
a/tests/loop.pure.lisp
b/tests/loop.pure.lisp
index
307129b
..
067f7ef
100644
(file)
--- a/
tests/loop.pure.lisp
+++ b/
tests/loop.pure.lisp
@@
-110,3
+110,8
@@
(loop named foo do (loop-finish) finally (return :good))
:bad)
:good))
(loop named foo do (loop-finish) finally (return :good))
:bad)
:good))
+
+(assert (= (loop with (a nil) = '(1 2) return a) 1))
+(assert (= (loop with (nil a) = '(1 2) return a) 2))
+(assert (= (loop with (a . nil) = '(1 2) return a) 1))
+(assert (equal (loop with (nil . a) = '(1 2) return a) '(2)))