[armedbear-cvs] r13768 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Thu Jan 12 11:13:53 2012
New Revision: 13768

Log:
Allow zero-length symbols (written as ||).

Fixes #193 (reported by Anton Vodonosov).

Modified:
   trunk/abcl/src/org/armedbear/lisp/Stream.java

Modified: trunk/abcl/src/org/armedbear/lisp/Stream.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Stream.java	Thu Jan 12 05:00:13 2012	(r13767)
+++ trunk/abcl/src/org/armedbear/lisp/Stream.java	Thu Jan 12 11:13:53 2012	(r13768)
@@ -1136,8 +1136,10 @@
                                                  packageName + '.',
                                                  this));
             }
+        } else {                // token.length == 0
+            Package pkg = (Package)Symbol._PACKAGE_.symbolValue(thread);
+            return pkg.intern("");
         }
-        return error(new ReaderError("Can't intern zero-length symbol.", this));
     }
 
     private final BitSet _readToken(StringBuilder sb, Readtable rt)