Commit 026b625e authored by Joerg-Cyril Hoehle's avatar Joerg-Cyril Hoehle
Browse files

add ELSE test cases, remove GNU Arch tag

darcs-hash:07fba405cd24f8b6628a262c397d500114dbe842
parent 13280f92
......@@ -429,6 +429,16 @@
(while (< (length (collect i)) 2)))
(1 2))
(deftest else.1
(iter (repeat 0)
(else (return 1)))
1)
(deftest else.2
(iter (for i below -3)
(else (return 2)))
2)
;;; tests for my examples:
(eval-when (:compile-toplevel :load-toplevel :execute)
......@@ -671,7 +681,7 @@
(deftest or.2
(iter (generate x in '(a nil nil 1 nil))
(generate y in-vector '#(2 nil #\c #\d))
(generate y in-sequence '#(2 nil #\c #\d))
(collect (or (next x) (next y) 3)))
(a 2 3 1 #\c))
......@@ -1756,4 +1766,4 @@
;;; arch-tag: "b8b1db2d-313c-11d8-abb9-000c76244c24"
;;; eof
......@@ -1544,8 +1544,8 @@ Evaluate (iterate:display-iterate-clauses) for an overview of clauses"
,index-doc-string
(cond
(with-index
(clause-error "WITH-INDEX keyword should not ~
be specified for this clause"))
(clause-error
"WITH-INDEX should not be specified for this clause"))
(t
(setq with-index var)
(return-sequence-code
......@@ -3609,5 +3609,3 @@ e.g. (DSETQ (VALUES (a . b) nil c) form)"
;;; kept-new-versions: 5
;;; kept-old-versions: 0
;;; end:
;;; arch-tag: "b8b80174-313c-11d8-abb9-000c76244c24"
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