diff --git a/ansi-tests/fill-pointer.lsp b/ansi-tests/fill-pointer.lsp index b318724b9f588f8bd9b8174224132fc4b8fdf782..4b08402439acbb15a77b3ded656d1acc666aa085 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