2589 |
|
|
2590 |
|
|
2591 |
void |
void |
2592 |
init_read() |
gcl_init_read() |
2593 |
{ |
{ |
2594 |
struct rtent *rtab; |
struct rtent *rtab; |
2595 |
object *dtab; |
object *dtab; |
2690 |
dtab[')'] = make_cf(Lsharp_right_parenthesis_reader); |
dtab[')'] = make_cf(Lsharp_right_parenthesis_reader); |
2691 |
*/ |
*/ |
2692 |
|
|
2693 |
init_backq(); |
gcl_init_backq(); |
2694 |
|
|
2695 |
Vreadtable |
Vreadtable |
2696 |
= make_special("*READTABLE*", |
= make_special("*READTABLE*", |
2736 |
} |
} |
2737 |
|
|
2738 |
void |
void |
2739 |
init_read_function() |
gcl_init_read_function() |
2740 |
{ |
{ |
2741 |
make_function("READ", Lread); |
make_function("READ", Lread); |
2742 |
make_function("READ-PRESERVING-WHITESPACE", |
make_function("READ-PRESERVING-WHITESPACE", |