Raymond Toy pushed to branch issue-256-loop-var-nil at cmucl / cmucl
Commits:
-
b9f04ee4
by Raymond Toy at 2024-01-30T07:47:03-08:00
1 changed file:
Changes:
| 1 | +;;; Tests from gitlab issues
|
|
| 2 | + |
|
| 3 | +(defpackage :loop-tests
|
|
| 4 | + (:use :cl :lisp-unit))
|
|
| 5 | + |
|
| 6 | +(in-package "LOOP-TESTS")
|
|
| 7 | + |
|
| 8 | +(define-test loop-var-nil
|
|
| 9 | + (:tag :issues)
|
|
| 10 | + ;; Just verify that (loop for var nil ...) works. Previously it
|
|
| 11 | + ;; signaled an error. See Gitlab issue #256.
|
|
| 12 | + (assert-equal '(1 2)
|
|
| 13 | + (loop for var nil from 1 to 2 collect var)))
|
|
| 14 | + |