blob: 51b53b8412abce9adb2b523fdcb81a0e530d489b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
*** sacla/lisp/test/must-loop.lisp 2004-08-03 08:34:55.000000000 +0200
--- CLISP/clisp-20040712/sacla-tests/must-loop.lisp 2004-08-06 02:49:13.000000000 +0200
***************
*** 1195,1200 ****
--- 1195,1202 ----
do (incf x)
initially (incf x) (incf x) finally (incf x) (return (incf x)))
7)
+ #-CLISP ; unfounded expectations about the value of for-as iteration variables
+ ; in INITIALLY and FINALLY clauses
(equal (let (val) (loop for a downto 3 from 100
for b in '(x y z) and c = 50 then (1+ c)
initially (setq val (list a b c))
|
