Changeset 2073


Ignore:
Timestamp:
06/01/03 01:37:54 (20 years ago)
Author:
piso
Message:

getFunctionalType()

Location:
trunk/j/src/org/armedbear/lisp
Files:
3 edited

Legend:

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

    r1402 r2073  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.17 2003-03-24 18:08:21 piso Exp $
     5 * $Id: LispObject.java,v 1.18 2003-06-01 01:37:20 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2929    }
    3030
     31    public int getFunctionalType()
     32    {
     33        return 0;
     34    }
     35
    3136    public LispObject typeOf()
    3237    {
  • trunk/j/src/org/armedbear/lisp/MacroObject.java

    r1913 r2073  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: MacroObject.java,v 1.1 2003-05-23 17:28:54 piso Exp $
     5 * $Id: MacroObject.java,v 1.2 2003-06-01 01:37:44 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3636    }
    3737
     38    public int getFunctionalType()
     39    {
     40        return FTYPE_MACRO;
     41    }
     42
    3843    public LispObject getExpander()
    3944    {
  • trunk/j/src/org/armedbear/lisp/SpecialOperator.java

    r1278 r2073  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: SpecialOperator.java,v 1.7 2003-03-14 18:41:11 piso Exp $
     5 * $Id: SpecialOperator.java,v 1.8 2003-06-01 01:37:54 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5151    }
    5252
     53    public final int getFunctionalType()
     54    {
     55        return FTYPE_SPECIAL_OPERATOR;
     56    }
     57
    5358    public final String getName()
    5459    {
Note: See TracChangeset for help on using the changeset viewer.