Commit cf091f95 authored by Marius Gerbershagen's avatar Marius Gerbershagen

Merge branch 'add-test-loop-dbind' into 'master'

loop8: add a test for destructuring bind

See merge request !40
parents bce0fce8 5e56afca
......@@ -125,6 +125,20 @@
(loop with x = (expand-in-current-env (%m 1)) do (return x)))
1)
;;; Test that the variable list may be shorter than values list.
(deftest loop.8.25
(loop with (a b) = '(1)
for (c d) = '(2)
do (return (values a b c d)))
1 nil 2 nil)
(deftest loop.8.26
(loop with (a b . rest) = '(1)
for (c d) = '(2)
do (return (values a b c d rest)))
1 nil 2 nil nil)
;;; Error cases
;;; The spec says (in section 6.1.1.7) that:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment