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

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Jan 27 16:08:52 2011
New Revision: 13187

Log:
Fix #125: FASL reader should not convert symbol case [Qi FASL loading issues].

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

Modified: trunk/abcl/src/org/armedbear/lisp/FaslReadtable.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/FaslReadtable.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/FaslReadtable.java	Thu Jan 27 16:08:52 2011
@@ -103,7 +103,12 @@
         dtfunctions['?']  = FaslReader.FASL_SHARP_QUESTION_MARK;
         dispatchTables.constants['#'] = dt;
 
-        readtableCase = Keyword.UPCASE;
+        readtableCase = Keyword.PRESERVE;
+        // after all, all symbols will have been uppercased by the reader,
+        // if applicable, when reading the source file; so, any lower-case
+        // symbols are really meant to be lower case, even if printed without
+        // pipe characters, which may happen if  the READTABLE-CASE of the
+        // current readtable is :PRESERVE when printing the symbols
     }
 
     private static final FaslReadtable instance = new FaslReadtable();