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