From 8e52348d690c1de07eeec0969b159489b1bcd910 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 26 Aug 2004 11:38:19 +0000
Subject: [PATCH] Fixed typo

---
 ansi-tests/loop5.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/loop5.lsp b/ansi-tests/loop5.lsp
index 7164d8b8..325765f6 100644
--- a/ansi-tests/loop5.lsp
+++ b/ansi-tests/loop5.lsp
@@ -32,7 +32,7 @@
   (#\a #\b #\c))
 
 (deftest loop.5.7
-  (let ((x (make-array '(4) :initial-elements "abcd" :element-type 'base-char)))
+  (let ((x (make-array '(4) :initial-contents "abcd" :element-type 'base-char)))
     (loop for e across (the base-string x) collect e))
   (#\a #\b #\c #\d))
 
-- 
GitLab