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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Wed Jan 11 13:36:09 2012
New Revision: 13765

Log:
Make #\Nul an alias for #\Null

As reported on #lisp, and following the example of sbcl.

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

Modified: trunk/abcl/src/org/armedbear/lisp/LispCharacter.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispCharacter.java	Wed Jan 11 13:17:23 2012	(r13764)
+++ trunk/abcl/src/org/armedbear/lisp/LispCharacter.java	Wed Jan 11 13:36:09 2012	(r13765)
@@ -563,6 +563,8 @@
 
     if (lower.equals("null"))
       return 0;
+    if (lower.equals("nul"))
+      return 0;
     if (lower.equals("bell"))
       return 7;
     if (lower.equals("backspace"))