Commit 2582760f authored by pfdietz's avatar pfdietz
Browse files

Fixed typo in a position-if test.

parent 0423aeaf
......@@ -433,7 +433,7 @@
(flet ((%f (c) (eql c #\0))
(%g (c) (eql c #\1)))
(let ((a (make-array '(10) :initial-contents
(coerce "1111100000" 'list())
(coerce "1111100000" 'list)
:fill-pointer 5
:element-type 'character)))
(values (position-if #'%f a)
......
Supports Markdown
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