0.8.0.78.vector-nil-string.8:

[sbcl.git] / src / code / deftypes-for-target.lisp

diff --git a/src/code/deftypes-for-target.lisp b/src/code/deftypes-for-target.lisp
index cea2e9b..ab58e4e 100644 (file)
--- a/src/code/deftypes-for-target.lisp
+++ b/src/code/deftypes-for-target.lisp
@@ -24,6 +24,11 @@
 \f
 ;;;; 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)