[armedbear-cvs] r13772 - branches/1.0.x/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Jan 12 12:18:19 2012
New Revision: 13772

Log:
backport r13768 to fix #193 for the abcl-1.0.2 release.

Modified:
   branches/1.0.x/abcl/src/org/armedbear/lisp/Stream.java

Modified: branches/1.0.x/abcl/src/org/armedbear/lisp/Stream.java
==============================================================================
--- branches/1.0.x/abcl/src/org/armedbear/lisp/Stream.java	Thu Jan 12 11:38:50 2012	(r13771)
+++ branches/1.0.x/abcl/src/org/armedbear/lisp/Stream.java	Thu Jan 12 12:18:19 2012	(r13772)
@@ -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)