From 579e28599eccb032d300a7e284e78cdd94e2a942 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 28 Aug 2004 22:07:41 +0000 Subject: [PATCH] Fixed two typos --- ansi-tests/loop5.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ansi-tests/loop5.lsp b/ansi-tests/loop5.lsp index 190276b6..01673320 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 -- GitLab