[Sbcl-commits] master: Declare a type in %set-fill-pointer.

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

The branch "master" has been updated in SBCL:
       via  bc6e1832bcdb4bdf336d2d9e1b174eb847a206e4 (commit)
      from  4302c37afbc2b0794f65c7ed0a1d0bdc05cdf595 (commit)

- Log -----------------------------------------------------------------
commit bc6e1832bcdb4bdf336d2d9e1b174eb847a206e4
Author: Stas Boukarev <sta...@gm...>
Date:   Wed Jun 22 05:58:43 2016 +0300

    Declare a type in %set-fill-pointer.
---
 src/code/array.lisp |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 45f186b..32074b3 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -1073,7 +1073,8 @@ of specialized arrays is supported."
       (fill-pointer-error vector)))
 
 (defun %set-fill-pointer (vector new)
-  (declare (explicit-check))
+  (declare (explicit-check)
+           (index new))
   (flet ((oops (x)
            (fill-pointer-error vector x)))
     (cond ((not (array-has-fill-pointer-p vector))

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


hooks/post-receive
-- 
SBCL