X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fmacros.lisp;h=17c1ddc01dec67a1ff88b3cac3a74c324badb7bb;hb=fb91e1987cc40f3f698f2972d0de50426ec3086f;hp=2fb99fd1cedde3cc1cb2bab014ea0eb31b67feb1;hpb=8731c1a7c1a585d190151fa881050fb5e14c0616;p=sbcl.git

diff --git a/src/compiler/sparc/macros.lisp b/src/compiler/sparc/macros.lisp
index 2fb99fd..17c1ddc 100644
--- a/src/compiler/sparc/macros.lisp
+++ b/src/compiler/sparc/macros.lisp
@@ -166,7 +166,7 @@
 			       :element-type '(unsigned-byte 8)
 			       :fill-pointer 0
 			       :adjustable t))))
-     (delclare (type (vector (unsigned-byte 8) 16) ,var))
+     (declare (type (vector (unsigned-byte 8) 16) ,var))
      (setf (fill-pointer ,var) 0)
      (unwind-protect
 	 (progn