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

Removed dispatch function which interpreted #"..." as pathname.

Browse source
This commit is contained in:
jjgarcia 2003-08-07 12:26:24 +00:00
parent 1e10ab5d8b
commit 967ebe9b74
1 changed files with 2 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/c/read.d
View file

@ -1129,7 +1129,7 @@ sharp_vertical_bar_reader(cl_object in, cl_object ch, cl_object d)
static cl_object
default_dispatch_macro_fun(cl_object in, cl_object c, cl_object d)
{
FEreader_error("Undefined dispatch macro character.", in, 1, c);
FEreader_error("No dispatch function defined for character ~s.", in, 1, c);
}
/*
@ -1137,19 +1137,9 @@ default_dispatch_macro_fun(cl_object in, cl_object c, cl_object d)
*/
static cl_object
sharp_P_reader(cl_object in, cl_object c, cl_object d)
{
@(return cl_pathname(read_object(in)))
}
/*
#" ... " returns the pathname with namestring ... .
*/
static cl_object
sharp_double_quote_reader(cl_object in, cl_object c, cl_object d)
{
if (d != Cnil && !read_suppress)
extra_argument('"', in, d);
unread_char(c, in);
extra_argument('P', in, d);
@(return cl_pathname(read_object(in)))
}
@ -1791,7 +1781,6 @@ init_read(void)
dtab['<'] = make_cf3(sharp_less_than_reader);
*/
dtab['|'] = make_cf3(sharp_vertical_bar_reader);
dtab['"'] = make_cf3(sharp_double_quote_reader);
/* This is specific to this implementation */
dtab['$'] = make_cf3(sharp_dollar_reader);
/* This is specific to this implimentation */