775 |
(get 'floatp 'inline-always)) |
(get 'floatp 'inline-always)) |
776 |
|
|
777 |
;;FLOOR |
;;FLOOR |
778 |
|
; (push '((fixnum fixnum) fixnum #.(flags rfa) |
779 |
|
; "@01;(#0>=0&&(#1)>0?(#0)/(#1):ifloor(#0,#1))") |
780 |
|
; (get 'floor 'inline-always)) |
781 |
(push '((fixnum fixnum) fixnum #.(flags rfa) |
(push '((fixnum fixnum) fixnum #.(flags rfa) |
782 |
"@01;(#0>=0&&(#1)>0?(#0)/(#1):ifloor(#0,#1))") |
"@01;({fixnum _t=(#0)/(#1);((#1)<0 && (#0)<=0) || ((#1)>0 && (#0)>=0) || ((#1)*_t == (#0)) ? _t : _t - 1;})") |
783 |
(get 'floor 'inline-always)) |
(get 'floor 'inline-always)) |
784 |
|
|
785 |
;;FOURTH |
;;FOURTH |
906 |
(get 'minusp 'inline-always)) |
(get 'minusp 'inline-always)) |
907 |
|
|
908 |
;;MOD |
;;MOD |
909 |
(push '((fixnum fixnum) fixnum #.(flags rfa)"@01;(#0>=0&&(#1)>0?(#0)%(#1):imod(#0,#1))") |
; (push '((fixnum fixnum) fixnum #.(flags rfa)"@01;(#0>=0&&(#1)>0?(#0)%(#1):imod(#0,#1))") |
910 |
|
; (get 'mod 'inline-always)) |
911 |
|
(push '((fixnum fixnum) fixnum #.(flags rfa)"@01;({fixnum _t=(#0)-((#0)/(#1))*(#1);((#1)<0 && _t<=0) || ((#1)>0 && _t>=0) ? _t : _t + (#1);})") |
912 |
(get 'mod 'inline-always)) |
(get 'mod 'inline-always)) |
913 |
|
|
914 |
;;NCONC |
;;NCONC |