From 75fd99681e73390fd850c3807c278c37c1ec42dd Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 15 Feb 2003 12:51:59 +0000 Subject: [PATCH] Fixed test broken by editting error. --- ansi-tests/subseq.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ansi-tests/subseq.lsp b/ansi-tests/subseq.lsp index 80d3d123..d9304b26 100644 --- a/ansi-tests/subseq.lsp +++ b/ansi-tests/subseq.lsp @@ -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) -- GitLab