1105 |
(push '((fixnum-float) boolean #.(flags)"(#0)==0") |
(push '((fixnum-float) boolean #.(flags)"(#0)==0") |
1106 |
(get 'zerop 'inline-always)) |
(get 'zerop 'inline-always)) |
1107 |
|
|
1108 |
|
;;CMOD |
1109 |
|
(push '((t) t #.(flags) "cmod(#0)") |
1110 |
|
(get 'system:cmod 'inline-always)) |
1111 |
|
|
1112 |
|
;;CTIMES |
1113 |
|
(push '((t t) t #.(flags) "ctimes(#0,#1)") |
1114 |
|
(get 'system:ctimes 'inline-always)) |
1115 |
|
|
1116 |
|
;;CPLUS |
1117 |
|
(push '((t t) t #.(flags) "cplus(#0,#1)") |
1118 |
|
(get 'system:cplus 'inline-always)) |
1119 |
|
|
1120 |
|
;;CDIFFERENCE |
1121 |
|
(push '((t t) t #.(flags) "cdifference(#0,#1)") |
1122 |
|
(get 'system:cdifference 'inline-always)) |
1123 |
|
|