Changeset 13768

Timestamp:

01/12/12 19:13:53 (12 years ago)

Author:

rschlatte

Message:

Allow zero-length symbols (written as

).

Fixes #193 (reported by Anton Vodonosov).

File:

• trunk/abcl/src/org/armedbear/lisp/Stream.java (modified) (1 diff)

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

@@ -1137 +1137 @@
                                                  this));
             }
-        }
-        return error(new ReaderError("Can't intern zero-length symbol.", this));
+        } else {                // token.length == 0
+            Package pkg = (Package)Symbol._PACKAGE_.symbolValue(thread);
+            return pkg.intern("");
+        }
     }