0.6.11.17:

[sbcl.git] / src / code / early-type.lisp

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index 4042453..0ae1186 100644 (file)
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -29,7 +29,7 @@
 ;;; type is defined (or redefined).
 (defun-cached (values-specifier-type
               :hash-function (lambda (x)
-                               ;; FIXME: the THE FIXNUM stuff is
+                               ;; FIXME: The THE FIXNUM stuff is
                                ;; redundant in SBCL (or modern CMU
                                ;; CL) because of type inference.
                                (the fixnum
@@ -183,8 +183,7 @@
 ;;; A NUMERIC-TYPE represents any numeric type, including things
 ;;; such as FIXNUM.
 (defstruct (numeric-type (:include ctype
-                                  (class-info (type-class-or-lose
-                                               'number)))
+                                  (class-info (type-class-or-lose 'number)))
                         #!+negative-zero-is-not-zero
                         (:constructor %make-numeric-type))
   ;; the kind of numeric type we have, or NIL if not specified (just
@@ -316,13 +315,4 @@
     (values-specifier-type-cache-clear))
   (values))
 
-;;; Is X a fixnum in the target Lisp?
-;;;
-;;; KLUDGE: not clear this really belongs in early-type.lisp, but where?
-(defun target-fixnump (x)
-  (and (integerp x)
-       (<= sb!vm:*target-most-negative-fixnum*
-          x
-          sb!vm:*target-most-positive-fixnum*)))
-
 (!defun-from-collected-cold-init-forms !early-type-cold-init)