Test bug/walk.2 fails on every implementation
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
ITERATE macro |
New
|
Undecided
|
Unassigned | ||
common-lisp |
New
|
Undecided
|
Unassigned |
Bug Description
Looking through the cl-test-grid results, on every implementation where the tests compiled and ran, the bug/walk.2 test failed.
Example of failure output (this from ECL 12.2.1):
Test ITERATE.
Form: (ITERATE:ITER (RETURN (IF (ODDP 1) (PROGN) 'ITERATE.
Expected value: NIL
Actual value: ITERATE.TEST::EVEN.
As a group at the TC Lispers meeting, we looked at this one. We believe it is the "just for looks" NIL as the consequent in the IF form here:
(defun walk-progn (progn &rest stuff)
;; The only difference between this and walk-cdr is that *top-level* is not
;; bound. This is so macros can return PROGNs of things. It's exactly like
;; the definition of "top-level" in lisp.
;; (Also, just for looks, this returns nil if the progn is empty.)
(
Return instead a list containing (cons progn nil) got us to pass the test on the implementation we tried. We didn't look to hard to make sure that didn't break anything else, but it feels safe.
tags: | added: iterate |
This was also reported to iterate-devel list Anton Vodonosov avodonosov at yandex.ru
Wed Dec 28 14:02:10 PST 2011
http:// lists.common- lisp.net/ pipermail/ iterate- devel/2011- December/ 000686. html
======= ======= ======= ======= ======= ======= ==
Hello.
I am running iterate tests (between other often-used CL libraries) on different Lisps. common- lisp.net/ project/ cl-test- grid/pivot_ ql-lib_ lisp.html.
The results of continuous testing may be found here:
http://
Currently Iterate has the same failure on all the lisps:
Test ITERATE. TEST::BUG/ WALK.2 failed
(PROGN)
'ITERATE. TEST::EVEN) ))
Form: (ITERATE:ITER
(RETURN
(IF (ODDP 1)
Expected value: NIL
Actual value: ITERATE.TEST::EVEN.
Best regards, ======= ======= ======= ======= ======= ==
- Anton
=======