From afc28140cdcec76e93cf874e34570f5cee221123 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 3 Jun 2005 00:45:54 +0000
Subject: [PATCH] Relax make-sequence.error.15 since it's only specified to
 produce an error, not necessarily a type-error

---
 ansi-tests/make-sequence.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/make-sequence.lsp b/ansi-tests/make-sequence.lsp
index 5086099e..6ef56a47 100644
--- a/ansi-tests/make-sequence.lsp
+++ b/ansi-tests/make-sequence.lsp
@@ -472,7 +472,7 @@
 (deftest make-sequence.error.15
   :notes (:result-type-element-type-by-subtype)
   (if (subtypep '(or (vector bit) (vector t)) 'vector)
-      (signals-error (make-sequence '(or (vector bit) (vector t)) 10 :initial-element 0) type-error)
+      (signals-error (make-sequence '(or (vector bit) (vector t)) 10 :initial-element 0) error)
     t)
   t)
 
-- 
GitLab