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

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Apr 18 01:38:15 2012
New Revision: 13918

Log:
SYS:AVAILABLE-ENCODINGS now returns symbols in the KEYWORD package.

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	Mon Apr 16 15:09:14 2012	(r13917)
+++ trunk/abcl/src/org/armedbear/lisp/Stream.java	Wed Apr 18 01:38:15 2012	(r13918)
@@ -360,7 +360,7 @@
     SortedMap<String, Charset> available = Charset.availableCharsets();
     Set<String> encodings = available.keySet();
     for (String charset : encodings) {
-      result.add(new Symbol(charset));
+      result.add(new Symbol(charset, PACKAGE_KEYWORD));
     }
     return result;
   }