/[gcl]/gcl/o/read.d
ViewVC logotype

Diff of /gcl/o/read.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by camm, Sat Sep 6 17:32:14 2003 UTC revision 1.21 by camm, Sun Sep 14 02:43:07 2003 UTC
# Line 2589  DEFVAR("*READ-SUPPRESS*",sLAread_suppres Line 2589  DEFVAR("*READ-SUPPRESS*",sLAread_suppres
2589    
2590    
2591  void  void
2592  init_read()  gcl_init_read()
2593  {  {
2594          struct rtent *rtab;          struct rtent *rtab;
2595          object *dtab;          object *dtab;
# Line 2690  init_read() Line 2690  init_read()
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*",
# Line 2736  init_read() Line 2736  init_read()
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",

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26