Commit 6e2de16a authored by Jean-Claude Beaudoin's avatar Jean-Claude Beaudoin
Browse files

Utility dpp is from now on in pre-retirement with very limited duties, restricted to .dh files.

parent 6193e618
...@@ -1319,7 +1319,7 @@ mk_si_write_ugly_object(MKCL, mkcl_object x, mkcl_object stream) ...@@ -1319,7 +1319,7 @@ mk_si_write_ugly_object(MKCL, mkcl_object x, mkcl_object stream)
return mk_si_write_object(env, x, stream); return mk_si_write_object(env, x, stream);
} }
if (MKCL_CAR(x) == MK_SI_unquote_splice) { if (MKCL_CAR(x) == MK_SI_unquote_splice) {
write_str(env, ",@@", stream); write_str(env, ",@", stream);
x = MKCL_CADR(x); x = MKCL_CADR(x);
return mk_si_write_object(env, x, stream); return mk_si_write_object(env, x, stream);
} }
......
...@@ -726,7 +726,7 @@ mkcl_object comma_reader(MKCL, mkcl_object in, mkcl_object c) ...@@ -726,7 +726,7 @@ mkcl_object comma_reader(MKCL, mkcl_object in, mkcl_object c)
mkcl_FEreader_error(env, "A comma has appeared out of a backquote.", in, 0); mkcl_FEreader_error(env, "A comma has appeared out of a backquote.", in, 0);
/* Read character & complain at EOF */ /* Read character & complain at EOF */
c = mk_cl_peek_char(env, 2,mk_cl_Cnil,in); c = mk_cl_peek_char(env, 2,mk_cl_Cnil,in);
if (c == MKCL_CODE_CHAR('@@')) { if (c == MKCL_CODE_CHAR('@')) {
x = MK_SI_unquote_splice; x = MK_SI_unquote_splice;
mkcl_read_char(env, in); mkcl_read_char(env, in);
} else if (c == MKCL_CODE_CHAR('.')) { } else if (c == MKCL_CODE_CHAR('.')) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment