commit/XEmacs: kehoea: Adopt GNU's ## syntax for the interned symbol with name "".

1 new commit in XEmacs: https://bitbucket.org/xemacs/xemacs/changeset/febc025c4e0c/ changeset: febc025c4e0c user: kehoea date: 2012-08-06 14:07:55 summary: Adopt GNU's ## syntax for the interned symbol with name "". src/ChangeLog addition: 2012-08-06 Aidan Kehoe <kehoea(a)parhasard.net&gt; * lread.c (read1): * print.c (print_symbol): Adopt GNU's ## syntax for the interned symbol with the zero-length name. man/ChangeLog addition: 2012-08-06 Aidan Kehoe <kehoea(a)parhasard.net&gt; * lispref/symbols.texi (Symbol Components): Document the new syntax of ## for the symbol with name "" interned in obarray. affected #: 5 files diff -r dede3f658f8e3c3299aaf47157a0569abc28e231 -r febc025c4e0c6f95a8adc7995a072205e56cdf07 man/ChangeLog --- a/man/ChangeLog +++ b/man/ChangeLog ＠＠ -1,3 +1,9 ＠＠ +2012-08-06 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * lispref/symbols.texi (Symbol Components): + Document the new syntax of ## for the symbol with name "" interned + in obarray. + 2012-08-02 Stephen J. Turnbull <stephen(a)xemacs.org&gt; * XEmacs 21.5.32 "habanero" is released. diff -r dede3f658f8e3c3299aaf47157a0569abc28e231 -r febc025c4e0c6f95a8adc7995a072205e56cdf07 man/lispref/symbols.texi --- a/man/lispref/symbols.texi +++ b/man/lispref/symbols.texi ＠＠ -73,9 +73,15 ＠＠ Since symbols are represented textually by their names, it is important not to have two symbols with the same name. The Lisp reader ensures this: every time it reads a symbol, it looks for an existing symbol with -the specified name before it creates a new one. (In XEmacs Lisp, -this lookup uses a hashing algorithm and an obarray; see ＠ref{Creating -Symbols}.) +the specified name before it creates a new one. In XEmacs Lisp, +this lookup uses an hashing algorithm and an obarray; see ＠ref{Creating +Symbols}. In Emacs Lisp, the symbol with the zero-length name has the +special print syntax ＠code{##}: + +＠example +(intern "") + ＠result{} ## +＠end example In normal usage, the function cell usually contains a function or macro, as that is what the Lisp interpreter expects to see there diff -r dede3f658f8e3c3299aaf47157a0569abc28e231 -r febc025c4e0c6f95a8adc7995a072205e56cdf07 src/ChangeLog --- a/src/ChangeLog +++ b/src/ChangeLog ＠＠ -1,3 +1,10 ＠＠ +2012-08-06 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * lread.c (read1): + * print.c (print_symbol): + Adopt GNU's ## syntax for the interned symbol with the zero-length + name. + 2012-08-02 Stephen J. Turnbull <stephen(a)xemacs.org&gt; * XEmacs 21.5.32 "habanero" is released. diff -r dede3f658f8e3c3299aaf47157a0569abc28e231 -r febc025c4e0c6f95a8adc7995a072205e56cdf07 src/lread.c --- a/src/lread.c +++ b/src/lread.c ＠＠ -2654,6 +2654,8 ＠＠ goto retry; } + /* The interned symbol with the empty name. */ + case '#': return intern (""); case '$': return Vload_file_name_internal; /* bit vectors */ case '*': return read_bit_vector (readcharfun); diff -r dede3f658f8e3c3299aaf47157a0569abc28e231 -r febc025c4e0c6f95a8adc7995a072205e56cdf07 src/print.c --- a/src/print.c +++ b/src/print.c ＠＠ -2375,8 +2375,6 ＠＠ print_symbol (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) { /* This function can GC */ - /* #### Bug!! (intern "") isn't printed in some distinguished way */ - /* #### (the reader also loses on it) */ Lisp_Object name = symbol_name (XSYMBOL (obj)); Bytecount size = XSTRING_LENGTH (name); struct gcpro gcpro1, gcpro2; ＠＠ -2390,12 +2388,15 ＠＠ GCPRO2 (obj, printcharfun); - if (print_gensym) + if (print_gensym && !IN_OBARRAY (obj)) { - if (!IN_OBARRAY (obj)) - { - write_ascstring (printcharfun, "#:"); - } + write_ascstring (printcharfun, "#:"); + } + else if (0 == size) + { + /* Compatible with GNU, but not with Common Lisp, where the syntax for + this symbol is ||. */ + write_ascstring (printcharfun, "##"); } /* Does it look like an integer or a float? */ Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches