1836 |
DEF_ORDINARY("PRETTY-PRINT-FORMAT",sSpretty_print_format,SI,""); |
DEF_ORDINARY("PRETTY-PRINT-FORMAT",sSpretty_print_format,SI,""); |
1837 |
|
|
1838 |
void |
void |
1839 |
init_print() |
gcl_init_print() |
1840 |
{ |
{ |
1841 |
|
|
1842 |
travel_push_type[(int)t_array]=1; |
travel_push_type[(int)t_array]=1; |
2037 |
DEFVAR("*PRINT-NANS*",sSAprint_nansA,SI,Cnil,""); |
DEFVAR("*PRINT-NANS*",sSAprint_nansA,SI,Cnil,""); |
2038 |
|
|
2039 |
void |
void |
2040 |
init_print_function() |
gcl_init_print_function() |
2041 |
{ |
{ |
2042 |
make_function("WRITE", Lwrite); |
make_function("WRITE", Lwrite); |
2043 |
make_function("PRIN1", Lprin1); |
make_function("PRIN1", Lprin1); |