Changeset 11109


Ignore:
Timestamp:
Oct 16, 2008, 8:06:06 PM (11 years ago)
Author:
gb
Message:

Add at least a naive version of ADD-BIGNUM-AND-FIXNUM for 32-bit ports.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-bignum32.lisp

    r10157 r11109  
    157157          (%add-with-carry res len-a carry (%bignum-sign a) nil sign-b nil))
    158158        (%normalize-bignum-macro res))))
     159
     160;;; Could do better than this, surely.
     161(defun add-bignum-and-fixnum (bignum fixnum)
     162  (with-small-bignum-buffers ((bigfix fixnum))
     163    (add-bignums bignum bigfix)))
    159164
    160165
Note: See TracChangeset for help on using the changeset viewer.