X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=6b6cd19346513dd3804072cc9e852dc749a803e9;hb=da5a7ccd58c2bf3c5287a11fb41e01403e5745e8;hp=ec8162fe90164452ab3354908504698c99898bb2;hpb=d63d80e637e9058ff5db7a10c267796ff7970ba1;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index ec8162f..6b6cd19 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -1243,7 +1243,7 @@
   ;; included in that length to guarantee proper alignment of raw double float
   ;; slots, necessary for (at least) the SPARC backend.
   (let ((layout-length (dd-layout-length dd)))
-    (declare (index layout-length))
+    (declare (type index layout-length))
     (+ layout-length (mod (1+ layout-length) 2))))
 
 ;;; This is called when we are about to define a structure class. It