Reverse WITH and FOR in LOOP.

Some lisps don't like having the WITH bindings before FOR.
rpgoldman · Apr 16, 2019 · 6322771 · 6322771
1 parent 3b17d68
commit 6322771
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/code.lisp b/code.lisp
@@ -71,8 +71,8 @@ test-op, we will fail if the expected number of checks are not run.")
 
 (defmethod perform ((op test-op) (sys fiveam-tester-system))
   (let* ((test-syms
-           (loop for x in (test-names sys)
-                 with test-name and package-name and test-sym and package
+           (loop with test-name and package-name and test-sym and package
+                 for x in (test-names sys)
                  if (symbolp x)
                    do (setf test-name x
                             package-name (test-package sys))