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