Commit 579e2859 authored by pfdietz's avatar pfdietz

Fixed two typos

parent 1dc2103f
...@@ -176,7 +176,7 @@ ...@@ -176,7 +176,7 @@
for v = (make-array '(10) :initial-contents fvals :element-type type) for v = (make-array '(10) :initial-contents fvals :element-type type)
for r = (loop for x across v collect x) for r = (loop for x across v collect x)
unless (equal r fvals) unless (equal r fvals)
collect (list i r))) collect (list fvals r)))
nil) nil)
(deftest loop.5.43 (deftest loop.5.43
...@@ -187,7 +187,7 @@ ...@@ -187,7 +187,7 @@
for v = (make-array '(10) :initial-contents fvals :element-type type) for v = (make-array '(10) :initial-contents fvals :element-type type)
for r = (loop for x across v collect x) for r = (loop for x across v collect x)
unless (equal r fvals) unless (equal r fvals)
collect (list i r))) collect (list fvals r)))
nil) nil)
;;; Error cases ;;; Error cases
......
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