Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Steve Losh
iterate
Commits
026b625e
Commit
026b625e
authored
May 03, 2007
by
Joerg-Cyril Hoehle
Browse files
add ELSE test cases, remove GNU Arch tag
darcs-hash:07fba405cd24f8b6628a262c397d500114dbe842
parent
13280f92
Changes
2
Hide whitespace changes
Inline
Side-by-side
iterate-test.lisp
View file @
026b625e
...
...
@@ -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
iterate.lisp
View file @
026b625e
...
...
@@ -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"
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment