Changeset 8248


Ignore:
Timestamp:
12/16/04 15:06:23 (17 years ago)
Author:
piso
Message:

SINGLE_VALUED_P()
setSingleValued()

File:
1 edited

Legend:

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

    r8216 r8248  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Symbol.java,v 1.165 2004-12-06 19:38:41 piso Exp $
     5 * $Id: Symbol.java,v 1.166 2004-12-16 15:06:23 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    190190    private static final int FLAG_CONSTANT          = 0x0002;
    191191    private static final int FLAG_BUILT_IN_FUNCTION = 0x0004;
     192    private static final int FLAG_SINGLE_VALUED_P   = 0x0008;
    192193
    193194    public static final Symbol addFunction(String name, LispObject obj)
     
    351352        else
    352353            flags &= ~FLAG_BUILT_IN_FUNCTION;
     354    }
     355
     356    public final LispObject SINGLE_VALUED_P()
     357    {
     358        return (flags & FLAG_SINGLE_VALUED_P) != 0 ? T : NIL;
     359    }
     360
     361    public final void setSingleValued(boolean b)
     362    {
     363        if (b)
     364            flags |= FLAG_SINGLE_VALUED_P;
     365        else
     366            flags &= ~FLAG_SINGLE_VALUED_P;
    353367    }
    354368
Note: See TracChangeset for help on using the changeset viewer.