[Sbcl-commits] master: Add a test for (setf (fill-pointer x) 0).

[stassats <sta...@us...>]

The branch "master" has been updated in SBCL:
       via  60c09dad0ecc36b342b4ebd8b0c428de2c7c9abd (commit)
      from  2e54c7158bab3cee95a62b2a3607eb4feb629627 (commit)

- Log -----------------------------------------------------------------
commit 60c09dad0ecc36b342b4ebd8b0c428de2c7c9abd
Author: Stas Boukarev <sta...@gm...>
Date:   Fri Jul 21 18:58:44 2017 +0300

    Add a test for (setf (fill-pointer x) 0).
    
    Should signal an error on vectors without a fill-pointer.
---
 tests/vector.pure.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/vector.pure.lisp b/tests/vector.pure.lisp
index 004a3b1..8e63d6a 100644
--- a/tests/vector.pure.lisp
+++ b/tests/vector.pure.lisp
@@ -64,3 +64,10 @@
       (assert-error (test -1))
       (assert (= (test 0) 1))
       (assert-error (test 1)))))
+
+(with-test (:name :fill-pointer-transform)
+  (assert-error
+   (funcall (checked-compile `(lambda (x)
+                                (setf (fill-pointer x) 0)))
+            (make-array 2 :adjustable t))
+   type-error))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL