X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fsrctran.lisp;h=b4214fc5412901b1ab4c1b40cefed998704c02b7;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;hp=369f705c78fbba0bddce7aa476788a1c5e08c162;hpb=4a96ec6005851c044a36028c051e8beae82a7155;p=sbcl.git

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index 369f705..b4214fc 100644
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -2341,7 +2341,7 @@
              (let ((low (logxor-derive-unsigned-low-bound x y))
                    (high (logxor-derive-unsigned-high-bound x y)))
                (specifier-type `(integer ,low ,high)))
-             (specifer-type '(unsigned-byte* *))))
+             (specifier-type '(unsigned-byte* *))))
         ((and (not x-pos) (not y-pos))
          ;; Both are negative.  The result will be positive, and as long
          ;; as the longer.