Changeset 15619

Timestamp:

12/11/22 09:52:56 (6 months ago)

Author:

Mark Evenson

Message:

Interning even new keywords when specified in the form 'keyword:new-keyword' as in SBCL, CCL & Lispworks

File:

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

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

@@ -1198 +1198 @@
                                                  new SimpleString(packageName)));
                 } else {
+                  if (packageName.equals("KEYWORD")) {
+                    return pkg.intern(symbolName);
+                  }
+                  else {
                     return error(new ReaderError("The symbol \"~A\" was not found in package ~A.",
                                                  this,
                                                  new SimpleString(symbolName),
                                                  new SimpleString(packageName)));
+                  }
                 }
             }