diff --git a/ansi-tests/loop5.lsp b/ansi-tests/loop5.lsp index 7164d8b86597e6d596482d0a552b0734164ba71d..325765f69ad1be6803e9ce661f71875e28e7d85f 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))