Browse files

Fix loop clause order problem

ECL twigged on an invalid loop clause ordering that
most other Lisps seem to let slide by. Thanks to
Anton Vodonosov for finding and reporting the problem.
  • Loading branch information...
1 parent 946f6e5 commit ae04ac38a297dca04645a47de6ad342bcbf17c36 Gary King committed Jan 9, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 dev/reports.lisp
@@ -644,8 +644,8 @@ lift::(progn
(let ((tests (tests-run result))
(current-suite nil))
(loop for rest = tests then (rest rest)
- while rest
- for (suite test-name datum) = (first rest) do
+ for (suite test-name datum) = (first rest)
+ while rest do
(unless (eq current-suite suite)
(when current-suite
(format stream "~%~%"))

0 comments on commit ae04ac3

Please sign in to comment.