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)) |
; (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);})") |
(push '((fixnum fixnum) fixnum #.(flags rfa)"@01;({fixnum _t=(#0)%(#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 |