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