Changeset 11836

Timestamp:

05/06/09 18:52:17 (14 years ago)

Author:

ehuelsmann

Message:

Support the #\Escape character.

Patch by: Eric Marsden (eric marsden free fr)

File:

• trunk/abcl/src/org/armedbear/lisp/LispCharacter.java (modified) (3 diffs)

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

@@ -251 +251 @@
             sb.append("Return");
             break;
+          case 27:
+            sb.append("Escape");
+            break;
           case 127:
             sb.append("Rubout");
@@ -555 +558 @@
     if (lower.equals("return"))
       return '\r';
+    if (lower.equals("escape"))
+        return 27;
     if (lower.equals("space"))
       return ' ';
@@ -594 +599 @@
       case '\r':
         return "Return";
+      case 27:
+        return "Escape";
       case ' ':
         return "Space";