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

Let sharp-equal (#n=) reader macros work inside a sharp-dot.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-09-01 19:32:56 +02:00
parent 4c1bf9322b
commit 94ddca2413
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/CHANGELOG
View file

@ -71,6 +71,11 @@ ECL 0.9l-p1:
- PROCLAIM/DECLAIM now understand the abbreviated form of type declarations
user-defined and complex types.
- Sharp-dot macro reader (#.) gets its own sharp-equal context (#=) so that
the following form
(read-from-string "'#.(princ (list '#1=(1 2) '#1#))")
actually prints the right list (#1=(1 2) #1#).
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

2
src/c/read.d
View file

@ -1037,7 +1037,7 @@ sharp_dot_reader(cl_object in, cl_object c, cl_object d)
{
if (d != Cnil && !read_suppress)
extra_argument('.', in, d);
c = ecl_read_object(in);
c = ecl_read_object_non_recursive(in);
if (c == OBJNULL)
FEend_of_file(in);
if (read_suppress)