Changeset 13584 for release/1.5/source/level-0

Timestamp:

Apr 6, 2010, 3:52:27 AM (11 years ago)

Author:

rme

Message:

trunk changes r13580 through r13583

Location:

release/1.5/source

Files:

• . (modified) (1 prop)
• level-0/l0-numbers.lisp (modified) (2 diffs)

release/1.5/source/level-0/l0-numbers.lisp

@@ -1157 +1157 @@
        (number-case divisor
          (fixnum (if (eq divisor 1) (values number 0) (%fixnum-truncate number divisor)))
-         (bignum (values 0 number))
+         (bignum (if (eq number target::target-most-negative-fixnum)
+                   (with-small-bignum-buffers ((bn number))
+                     (bignum-truncate bn divisor))
+                   (values 0 number)))
          (double-float (truncate-rat-dfloat number divisor))
          (short-float (truncate-rat-sfloat number divisor))
@@ -1164 +1167 @@
                   (values q (- number (* q divisor)))))))
       (bignum (number-case divisor
-                (fixnum (if (eq divisor 1) (values number 0)
+                (fixnum (if (eq divisor 1)
+                          (values number 0)
                           (if (eq divisor target::target-most-negative-fixnum);; << aargh
                             (with-small-bignum-buffers ((bd divisor))