From 0c0ebcc6514fe6c426de2be4cbba1a5bbe79fcd2 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 23 Mar 2006 13:53:10 +0000
Subject: [PATCH] Fixed test bug detected by piso: it's legal for all vectors
 in an implementation to have fill pointers

---
 ansi-tests/fill-pointer.lsp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/fill-pointer.lsp b/ansi-tests/fill-pointer.lsp
index b318724b..4b084024 100644
--- a/ansi-tests/fill-pointer.lsp
+++ b/ansi-tests/fill-pointer.lsp
@@ -56,8 +56,10 @@
   t)
 
 (deftest fill-pointer.error.3
-  (signals-error (fill-pointer (make-array '(10) :fill-pointer nil))
-		 type-error)
+  (let ((a (make-array '(10) :fill-pointer nil)))
+    (if (array-has-fill-pointer-p a)
+	t
+      (eval `(signals-error (fill-pointer ',a) type-error))))
   t)
 
 (deftest fill-pointer.error.4
-- 
GitLab