[Sbcl-commits] master: Tweak MAKE-NUMERIC-TYPE of a single integer.

[Douglas K. <sn...@us...>]

The branch "master" has been updated in SBCL:
       via  e64ad387cb59dbcab8c31614ec7abe2919a758dd (commit)
      from  53445177003b54fe4088a5923db116fc93639343 (commit)

- Log -----------------------------------------------------------------
commit e64ad387cb59dbcab8c31614ec7abe2919a758dd
Author: Douglas Katzman <do...@go...>
Date:   Mon Feb 1 19:01:07 2016 -0500

    Tweak MAKE-NUMERIC-TYPE of a single integer.
    
    The EQL/INTEGER optimizer only needs one bound pre-checked.
---
 src/code/early-type.lisp |    5 +----
 1 files changed, 1 insertions(+), 4 deletions(-)

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index 72b5c45..00c9a48 100644
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -366,10 +366,7 @@
             (t
              ;; no canonicalization necessary
              (values low high)))
-        (when (and (eq class 'rational)
-                   (integerp low)
-                   (integerp high)
-                   (= low high))
+        (when (and (eq class 'rational) (integerp low) (eql low high))
           (setf class 'integer))
 
         ;; Either lookup the canonical interned object for

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL