Changeset 15560 for trunk/source/level0/l0numbers.lisp
 Timestamp:
 Jan 4, 2013, 2:51:07 PM (8 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/level0/l0numbers.lisp
r14681 r15560 679 679 (truncate x y))) 680 680 681 681 682 (defun *2 (x y) 682 683 ;(declare (optimize (speed 3)(safety 0))) … … 709 710 (complex (complex*real y x)))) 710 711 (bignum (numbercase y 711 (fixnum (multiplybignumandfixnum x y)) 712 (fixnum 713 (if (eql y target::targetmostnegativefixnum) 714 (withsmallbignumbuffers ((by y)) 715 (multiplybignums x by)) 716 (multiplybignumandfixnum x y))) 712 717 (bignum (multiplybignums x y)) 713 718 (doublefloat (dfloatrat * y x)) … … 716 721 (complex (complex*real y x)))) 717 722 (fixnum (numbercase y 718 (bignum (multiplybignumandfixnum y x)) 723 (bignum (if (eql x target::targetmostnegativefixnum) 724 (withsmallbignumbuffers ((bx x)) 725 (multiplybignums y bx)) 726 (multiplybignumandfixnum y x))) 719 727 (fixnum (multiplyfixnums (the fixnum x) (the fixnum y))) 720 728 (shortfloat (sfloatrat * y x))
Note: See TracChangeset
for help on using the changeset viewer.