X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdeftypes-for-target.lisp;h=ab58e4e9fe65e23df3e3d48e133b869bb131c84e;hb=cd1f265dd851941557ed3f764248c339c07493a9;hp=cea2e9bbf767e9b4440367c66d23f4318b0454ea;hpb=9767de1cecfe50560fe1da69fd458b6148a66da3;p=sbcl.git

diff --git a/src/code/deftypes-for-target.lisp b/src/code/deftypes-for-target.lisp
index cea2e9b..ab58e4e 100644
--- a/src/code/deftypes-for-target.lisp
+++ b/src/code/deftypes-for-target.lisp
@@ -24,6 +24,11 @@
 
 ;;;; standard types
 
+;;; also has a definition in src/code/class.lisp, but we need it
+;;; earlier for array specialization.
+(sb!xc:deftype fixnum ()
+  '(integer #.sb!xc:most-negative-fixnum #.sb!xc:most-positive-fixnum))
+
 (sb!xc:deftype boolean () '(member t nil))
 
 (sb!xc:deftype mod (n)