mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

default_dispatch_macro should be private.

Browse source
This commit is contained in:
jjgarcia 2002-10-04 15:47:34 +00:00
parent 15b66bff98
commit e2d71f3f18
2 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/read.d
View file

@ -34,7 +34,6 @@ cl_object delimiting_char;
bool detect_eos_flag;
bool in_list_flag;
bool dot_flag;
cl_object default_dispatch_macro;
cl_object sharp_eq_context;
#endif /* THREADS */
@ -47,6 +46,7 @@ extern int backq_level;
#endif
static cl_object dispatch_reader;
static cl_object default_dispatch_macro;
#define cat(rtbl,c) ((rtbl)->readtable.table[c].syntax_type)
#define read_suppress (SYM_VAL(@'*read-suppress*') != Cnil)
@ -1894,9 +1894,7 @@ init_read(void)
*/
default_dispatch_macro = make_cf(default_dispatch_macro_fun);
#ifndef THREADS
register_root(&default_dispatch_macro);
#endif
rtab['#'].dispatch_table
= dtab

1
src/h/external.h
View file

@ -663,7 +663,6 @@ extern cl_object delimiting_char;
extern bool detect_eos_flag;
extern bool in_list_flag;
extern bool dot_flag;
extern cl_object default_dispatch_macro;
extern cl_object sharp_eq_context;
#endif
extern cl_object interactive_readc(cl_object stream);