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

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed May  6 14:52:17 2009
New Revision: 11836

Log:
Support the #\Escape character.

Patch by: Eric Marsden (eric marsden free fr)


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	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispCharacter.java	Wed May  6 14:52:17 2009
@@ -250,6 +250,9 @@
           case '\r':
             sb.append("Return");
             break;
+          case 27:
+            sb.append("Escape");
+            break;
           case 127:
             sb.append("Rubout");
             break;
@@ -554,6 +557,8 @@
       return '\f';
     if (lower.equals("return"))
       return '\r';
+    if (lower.equals("escape"))
+        return 27;
     if (lower.equals("space"))
       return ' ';
     if (lower.equals("rubout"))
@@ -593,6 +598,8 @@
         return "Page";
       case '\r':
         return "Return";
+      case 27:
+        return "Escape";
       case ' ':
         return "Space";
       case 127: