Commit 8e52348d authored by pfdietz's avatar pfdietz

Fixed typo

parent a85982bd
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment