From: stassats <sta...@us...> - 2017-07-21 16:01:30
|
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 |