diff --git a/ansi-tests/loop5.lsp b/ansi-tests/loop5.lsp index 190276b6153dc94c2b3e18255bbfc48cb6b6a42f..01673320ceff3ac4cf9b9069d9de55580c749f96 100644 --- a/ansi-tests/loop5.lsp +++ b/ansi-tests/loop5.lsp @@ -176,7 +176,7 @@ for v = (make-array '(10) :initial-contents fvals :element-type type) for r = (loop for x across v collect x) unless (equal r fvals) - collect (list i r))) + collect (list fvals r))) nil) (deftest loop.5.43 @@ -187,7 +187,7 @@ for v = (make-array '(10) :initial-contents fvals :element-type type) for r = (loop for x across v collect x) unless (equal r fvals) - collect (list i r))) + collect (list fvals r))) nil) ;;; Error cases