235 |
|
|
236 |
|
|
237 |
|
|
238 |
void |
LFD(Llogior)(void) |
|
Llogior(void) |
|
239 |
{ |
{ |
240 |
object x; |
object x; |
241 |
int narg, i; |
int narg, i; |
256 |
vs_push(x); |
vs_push(x); |
257 |
} |
} |
258 |
|
|
259 |
void |
LFD(Llogxor)(void) |
|
Llogxor(void) |
|
260 |
{ |
{ |
261 |
object x; |
object x; |
262 |
int narg, i; |
int narg, i; |
276 |
vs_push(x); |
vs_push(x); |
277 |
} |
} |
278 |
|
|
279 |
void |
LFD(Llogand)(void) |
|
Llogand(void) |
|
280 |
{ |
{ |
281 |
object x; |
object x; |
282 |
int narg, i; |
int narg, i; |
296 |
vs_push(x); |
vs_push(x); |
297 |
} |
} |
298 |
|
|
299 |
void |
LFD(Llogeqv)(void) |
|
Llogeqv(void) |
|
300 |
{ |
{ |
301 |
object x; |
object x; |
302 |
int narg, i; |
int narg, i; |
316 |
vs_push(x); |
vs_push(x); |
317 |
} |
} |
318 |
|
|
319 |
void |
LFD(Lboole)(void) |
|
Lboole(void) |
|
320 |
{ |
{ |
321 |
object x; |
object x; |
322 |
object o; |
object o; |
357 |
vs_push(x); |
vs_push(x); |
358 |
} |
} |
359 |
|
|
360 |
void |
LFD(Llogbitp)(void) |
|
Llogbitp(void) |
|
361 |
{ |
{ |
362 |
object x, p; |
object x, p; |
363 |
int i; |
int i; |
397 |
vs_push(Cnil); |
vs_push(Cnil); |
398 |
} |
} |
399 |
|
|
400 |
void |
LFD(Lash)(void) |
|
Lash(void) |
|
401 |
{ |
{ |
402 |
object r=Cnil, x, y; |
object r=Cnil, x, y; |
403 |
int w, sign_x; |
int w, sign_x; |
446 |
vs_push(r); |
vs_push(r); |
447 |
} |
} |
448 |
|
|
449 |
void |
LFD(Llogcount)(void) |
|
Llogcount(void) |
|
450 |
{ |
{ |
451 |
object x; |
object x; |
452 |
int i; |
int i; |
459 |
vs_push(make_fixnum(i)); |
vs_push(make_fixnum(i)); |
460 |
} |
} |
461 |
|
|
462 |
void |
LFD(Linteger_length)(void) |
|
Linteger_length(void) |
|
463 |
{ |
{ |
464 |
object x; |
object x; |
465 |
int count=0, i; |
int count=0, i; |
523 |
|
|
524 |
|
|
525 |
|
|
526 |
void |
LFD(siLbit_array_op)(void) |
|
gcl_init_num_log(void) |
|
|
{ |
|
|
/* int siLbit_array_op(void); */ |
|
|
|
|
|
make_constant("BOOLE-CLR", make_fixnum(BOOLCLR)); |
|
|
make_constant("BOOLE-SET", make_fixnum(BOOLSET)); |
|
|
make_constant("BOOLE-1", make_fixnum(BOOL1)); |
|
|
make_constant("BOOLE-2", make_fixnum(BOOL2)); |
|
|
make_constant("BOOLE-C1", make_fixnum(BOOLC1)); |
|
|
make_constant("BOOLE-C2", make_fixnum(BOOLC2)); |
|
|
make_constant("BOOLE-AND", make_fixnum(BOOLAND)); |
|
|
make_constant("BOOLE-IOR", make_fixnum(BOOLIOR)); |
|
|
make_constant("BOOLE-XOR", make_fixnum(BOOLXOR)); |
|
|
make_constant("BOOLE-EQV", make_fixnum(BOOLEQV)); |
|
|
make_constant("BOOLE-NAND", make_fixnum(BOOLNAND)); |
|
|
make_constant("BOOLE-NOR", make_fixnum(BOOLNOR)); |
|
|
make_constant("BOOLE-ANDC1", make_fixnum(BOOLANDC1)); |
|
|
make_constant("BOOLE-ANDC2", make_fixnum(BOOLANDC2)); |
|
|
make_constant("BOOLE-ORC1", make_fixnum(BOOLORC1)); |
|
|
make_constant("BOOLE-ORC2", make_fixnum(BOOLORC2)); |
|
|
|
|
|
make_function("LOGIOR", Llogior); |
|
|
make_function("LOGXOR", Llogxor); |
|
|
make_function("LOGAND", Llogand); |
|
|
make_function("LOGEQV", Llogeqv); |
|
|
make_function("BOOLE", Lboole); |
|
|
make_function("LOGBITP", Llogbitp); |
|
|
make_function("ASH", Lash); |
|
|
make_function("LOGCOUNT", Llogcount); |
|
|
make_function("INTEGER-LENGTH", Linteger_length); |
|
|
|
|
|
sLbit = make_ordinary("BIT"); |
|
|
make_si_function("BIT-ARRAY-OP", siLbit_array_op); |
|
|
} |
|
|
|
|
|
void |
|
|
siLbit_array_op(void) |
|
527 |
{ |
{ |
528 |
int i, j, n, d; |
int i, j, n, d; |
529 |
object o, x, y, r, r0=Cnil; |
object o, x, y, r, r0=Cnil; |
749 |
ERROR: |
ERROR: |
750 |
FEerror("Illegal arguments for bit-array operation.", 0); |
FEerror("Illegal arguments for bit-array operation.", 0); |
751 |
} |
} |
752 |
|
|
753 |
|
void |
754 |
|
gcl_init_num_log(void) |
755 |
|
{ |
756 |
|
/* int siLbit_array_op(void); */ |
757 |
|
|
758 |
|
make_constant("BOOLE-CLR", make_fixnum(BOOLCLR)); |
759 |
|
make_constant("BOOLE-SET", make_fixnum(BOOLSET)); |
760 |
|
make_constant("BOOLE-1", make_fixnum(BOOL1)); |
761 |
|
make_constant("BOOLE-2", make_fixnum(BOOL2)); |
762 |
|
make_constant("BOOLE-C1", make_fixnum(BOOLC1)); |
763 |
|
make_constant("BOOLE-C2", make_fixnum(BOOLC2)); |
764 |
|
make_constant("BOOLE-AND", make_fixnum(BOOLAND)); |
765 |
|
make_constant("BOOLE-IOR", make_fixnum(BOOLIOR)); |
766 |
|
make_constant("BOOLE-XOR", make_fixnum(BOOLXOR)); |
767 |
|
make_constant("BOOLE-EQV", make_fixnum(BOOLEQV)); |
768 |
|
make_constant("BOOLE-NAND", make_fixnum(BOOLNAND)); |
769 |
|
make_constant("BOOLE-NOR", make_fixnum(BOOLNOR)); |
770 |
|
make_constant("BOOLE-ANDC1", make_fixnum(BOOLANDC1)); |
771 |
|
make_constant("BOOLE-ANDC2", make_fixnum(BOOLANDC2)); |
772 |
|
make_constant("BOOLE-ORC1", make_fixnum(BOOLORC1)); |
773 |
|
make_constant("BOOLE-ORC2", make_fixnum(BOOLORC2)); |
774 |
|
|
775 |
|
make_function("LOGIOR", Llogior); |
776 |
|
make_function("LOGXOR", Llogxor); |
777 |
|
make_function("LOGAND", Llogand); |
778 |
|
make_function("LOGEQV", Llogeqv); |
779 |
|
make_function("BOOLE", Lboole); |
780 |
|
make_function("LOGBITP", Llogbitp); |
781 |
|
make_function("ASH", Lash); |
782 |
|
make_function("LOGCOUNT", Llogcount); |
783 |
|
make_function("INTEGER-LENGTH", Linteger_length); |
784 |
|
|
785 |
|
sLbit = make_ordinary("BIT"); |
786 |
|
make_si_function("BIT-ARRAY-OP", siLbit_array_op); |
787 |
|
} |
788 |
|
|