Changeset 4128


Ignore:
Timestamp:
09/29/03 16:16:57 (19 years ago)
Author:
piso
Message:

CHAR-NAME: added backspace.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Primitives.java

    r4125 r4128  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.453 2003-09-29 14:25:40 piso Exp $
     5 * $Id: Primitives.java,v 1.454 2003-09-29 16:16:57 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    36163616    };
    36173617
    3618     private static final Primitive1 CHAR_NAME = new Primitive1("char-name") {
     3618    private static final Primitive1 CHAR_NAME = new Primitive1("char-name")
     3619    {
    36193620        public LispObject execute(LispObject arg) throws ConditionThrowable
    36203621        {
     
    36373638                    name = "Page";
    36383639                    break;
     3640                case '\b':
     3641                    name = "Backspace";
     3642                    break;
    36393643                default:
    36403644                    break;
     
    36443648    };
    36453649
    3646     private static final Primitive DIGIT_CHAR = new Primitive("digit-char") {
     3650    private static final Primitive DIGIT_CHAR = new Primitive("digit-char")
     3651    {
    36473652        public LispObject execute(LispObject[] args) throws ConditionThrowable
    36483653        {
     
    36683673
    36693674    private static final Primitive1 _CALL_COUNT =
    3670         new Primitive1("%call-count", PACKAGE_SYS, false) {
     3675        new Primitive1("%call-count", PACKAGE_SYS, false)
     3676    {
    36713677        public LispObject execute(LispObject arg) throws ConditionThrowable
    36723678        {
     
    36763682
    36773683    private static final Primitive2 _SET_CALL_COUNT =
    3678         new Primitive2("%set-call-count", PACKAGE_SYS, false) {
     3684        new Primitive2("%set-call-count", PACKAGE_SYS, false)
     3685    {
    36793686        public LispObject execute(LispObject first, LispObject second)
    36803687            throws ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.