X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Farray.lisp;h=7ba583916f328f007bf184ec25b29b06cf0c0b68;hb=bcd323c39d6f5f80020ba4a5d9eb8d348c6cc499;hp=6102251798e795bf3e9975f3e89f06ad15e4e3fc;hpb=a8e49202d33fffbfe2de1990159d62be25794dfe;p=sbcl.git

diff --git a/src/compiler/x86-64/array.lisp b/src/compiler/x86-64/array.lisp
index 6102251..7ba5839 100644
--- a/src/compiler/x86-64/array.lisp
+++ b/src/compiler/x86-64/array.lisp
@@ -14,7 +14,7 @@
 
 ;; For use in constant indexing; we can't use INDEX since the displacement
 ;; field of an EA can't contain 64 bit values.
-(deftype low-index () '(signed-byte 29))
+(def!type low-index () '(signed-byte 29))
 
 ;;;; allocator for the array header