X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcompiler%2Fppc%2Fmacros.lisp;h=c59e49af87bce6555feefbef9079255182b764c2;hb=8731c1a7c1a585d190151fa881050fb5e14c0616;hp=fa66c78b805f3ca64bb38d3f003a36e024f6c4e3;hpb=cab2c71bb1bb8a575d9eebdae335e731daa64183;p=sbcl.git

diff --git a/src/compiler/ppc/macros.lisp b/src/compiler/ppc/macros.lisp
index fa66c78..c59e49a 100644
--- a/src/compiler/ppc/macros.lisp
+++ b/src/compiler/ppc/macros.lisp
@@ -347,6 +347,7 @@
 			       :element-type '(unsigned-byte 8)
 			       :fill-pointer 0
 			       :adjustable t))))
+     (declare (type (vector (unsigned-byte 8) 16) ,var))
      (setf (fill-pointer ,var) 0)
      (unwind-protect
 	 (progn