Changeset 13583
 Timestamp:
 Apr 6, 2010, 3:24:54 AM (10 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/level0/l0numbers.lisp
r13532 r13583 1157 1157 (numbercase divisor 1158 1158 (fixnum (if (eq divisor 1) (values number 0) (%fixnumtruncate number divisor))) 1159 (bignum (values 0 number)) 1159 (bignum (if (eq number target::targetmostnegativefixnum) 1160 (withsmallbignumbuffers ((bn number)) 1161 (bignumtruncate bn divisor)) 1162 (values 0 number))) 1160 1163 (doublefloat (truncateratdfloat number divisor)) 1161 1164 (shortfloat (truncateratsfloat number divisor)) … … 1164 1167 (values q ( number (* q divisor))))))) 1165 1168 (bignum (numbercase divisor 1166 (fixnum (if (eq divisor 1) (values number 0) 1169 (fixnum (if (eq divisor 1) 1170 (values number 0) 1167 1171 (if (eq divisor target::targetmostnegativefixnum);; << aargh 1168 1172 (withsmallbignumbuffers ((bd divisor))
Note: See TracChangeset
for help on using the changeset viewer.