Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
0de307d8
Commit
0de307d8
authored
Aug 28, 2003
by
pfdietz
Browse files
Tests for a bug that showed up on comp.lang.lisp due to Hisao Kuroda
parent
fbf09dcb
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/loop11.lsp
View file @
0de307d8
...
...
@@ -167,3 +167,32 @@
until (>= i 6)
finally (return i))
6)
;;; More tests of a bug that showed up in c.l.l
(deftest loop.11.29
(loop for i in '(4 8 9 A 13)
when (eq i 'a) return :good
while (< i 12) collect i)
:good)
(deftest loop.11.30
(loop for i in '(4 8 9 A 13)
unless (numberp i) return :good
while (< i 12) collect i)
:good)
(deftest loop.11.31
(loop for i in '(4 8 9 A 13)
when (eq i 'a) return :good
until (> i 12) collect i)
:good)
(deftest loop.11.32
(loop for i in '(4 8 9 A 13)
unless (numberp i) return :good
until (> i 12) collect i)
:good)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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