Changeset 4128

Timestamp:

09/29/03 16:16:57 (20 years ago)

Author:

piso

Message:

CHAR-NAME: added backspace.

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (6 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.453 2003-09-29 14:25:40 piso Exp $
+ * $Id: Primitives.java,v 1.454 2003-09-29 16:16:57 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -3616 +3616 @@
     };
 
-    private static final Primitive1 CHAR_NAME = new Primitive1("char-name") {
+    private static final Primitive1 CHAR_NAME = new Primitive1("char-name")
+    {
         public LispObject execute(LispObject arg) throws ConditionThrowable
         {
@@ -3637 +3638 @@
                     name = "Page";
                     break;
+                case '\b':
+                    name = "Backspace";
+                    break;
                 default:
                     break;
@@ -3644 +3648 @@
     };
 
-    private static final Primitive DIGIT_CHAR = new Primitive("digit-char") {
+    private static final Primitive DIGIT_CHAR = new Primitive("digit-char")
+    {
         public LispObject execute(LispObject[] args) throws ConditionThrowable
         {
@@ -3668 +3673 @@
 
     private static final Primitive1 _CALL_COUNT =
-        new Primitive1("%call-count", PACKAGE_SYS, false) {
+        new Primitive1("%call-count", PACKAGE_SYS, false)
+    {
         public LispObject execute(LispObject arg) throws ConditionThrowable
         {
@@ -3676 +3682 @@
 
     private static final Primitive2 _SET_CALL_COUNT =
-        new Primitive2("%set-call-count", PACKAGE_SYS, false) {
+        new Primitive2("%set-call-count", PACKAGE_SYS, false)
+    {
         public LispObject execute(LispObject first, LispObject second)
             throws ConditionThrowable