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

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Sep 23 02:16:50 2009
New Revision: 12162

Log:
SET-SYNTAX-FROM-CHAR: Copy the fact that the source char *doesn't*
  have a dispatch table, too.

Found by: Tobias C. Rittweiler.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Readtable.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Readtable.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Readtable.java	Wed Sep 23 02:16:50 2009
@@ -540,6 +540,10 @@
             toReadtable.dispatchTables[toChar] =
               new DispatchTable(fromReadtable.dispatchTables[fromChar]);
           }
+        else
+            // Don't leave behind dispatch tables when fromChar
+            // doesn't have one
+            toReadtable.dispatchTables[toChar] = null;
         return T;
       }
     };