Changeset 14061


Ignore:
Timestamp:
Jul 27, 2010, 10:52:06 PM (9 years ago)
Author:
gb
Message:

BIGNUM-REM: missed refs to *TRUNCATE-X*.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/l0-bignum32.lisp

    r13941 r14061  
    15271527                       (let* ((res-len-1 (1- len-y)))
    15281528                         (declare (fixnum res-len-1))
    1529                          (bignum-shift-right-loop-1 y-shift *truncate-x* *truncate-x* res-len-1 0)))
    1530                      (let ((the-res (%normalize-bignum-macro *truncate-x*)))
     1529                         (bignum-shift-right-loop-1 y-shift truncate-x truncate-x res-len-1 0)))
     1530                     (let ((the-res (%normalize-bignum-macro truncate-x)))
    15311531                       (if (not (fixnump the-res))
    15321532                         (if x-plusp (copy-bignum the-res) (negate-bignum the-res))
Note: See TracChangeset for help on using the changeset viewer.