Commit 75fd9968 authored by pfdietz's avatar pfdietz
Browse files

Fixed test broken by editting error.

parent e81cdd30
......@@ -121,7 +121,7 @@
t)
(deftest subseq-vector.9
(let* ((x (make-array '(1000) :initial-element 17.6e.1
(let* ((x (make-array '(1000) :initial-element 17.6e-1
:element-type 'single-float))
(lo 164)
(hi 873)
......@@ -129,7 +129,7 @@
(and (eqlt (length y) (- hi lo))
(equal-array y
(make-array (list (- hi lo))
:initial-element 17.6e.1
:initial-element 17.6e-1
:element-type 'single-float))))
t)
......
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