Changeset 4825


Ignore:
Timestamp:
11/18/03 13:54:09 (18 years ago)
Author:
piso
Message:

Symbol.SPECIAL

File:
1 edited

Legend:

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

    r4806 r4825  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Symbol.java,v 1.90 2003-11-17 16:02:47 piso Exp $
     5 * $Id: Symbol.java,v 1.91 2003-11-18 13:54:09 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5050    public static final Symbol QUOTE                            = PACKAGE_CL.addExternalSymbol("QUOTE");
    5151    public static final Symbol SETF                             = PACKAGE_CL.addExternalSymbol("SETF");
     52    public static final Symbol SPECIAL                          = PACKAGE_CL.addExternalSymbol("SPECIAL");
    5253
    5354    // Type specifiers.
     
    170171
    171172    // Bit flags.
    172     private static final int SPECIAL  = 0x0001;
    173     private static final int CONSTANT = 0x0002;
     173    private static final int FLAG_SPECIAL  = 0x0001;
     174    private static final int FLAG_CONSTANT = 0x0002;
    174175
    175176    public static final Symbol addFunction(String name, LispObject obj)
     
    235236    public LispObject CONSTANTP()
    236237    {
    237         return (flags & CONSTANT) != 0 ? T : NIL;
     238        return (flags & FLAG_CONSTANT) != 0 ? T : NIL;
    238239    }
    239240
     
    250251    public final boolean isSpecialVariable()
    251252    {
    252         return (flags & SPECIAL) != 0;
     253        return (flags & FLAG_SPECIAL) != 0;
    253254    }
    254255
     
    256257    {
    257258        if (b)
    258             flags |= SPECIAL;
     259            flags |= FLAG_SPECIAL;
    259260        else
    260             flags &= ~SPECIAL;
     261            flags &= ~FLAG_SPECIAL;
    261262    }
    262263
    263264    public final boolean isConstant()
    264265    {
    265         return (flags & CONSTANT) != 0;
     266        return (flags & FLAG_CONSTANT) != 0;
    266267    }
    267268
     
    269270    {
    270271        if (b)
    271             flags |= CONSTANT;
     272            flags |= FLAG_CONSTANT;
    272273        else
    273             flags &= ~CONSTANT;
     274            flags &= ~FLAG_CONSTANT;
    274275    }
    275276
     
    308309    public final LispObject symbolValue() throws ConditionThrowable
    309310    {
    310         if ((flags & SPECIAL) != 0) {
     311        if ((flags & FLAG_SPECIAL) != 0) {
    311312            LispObject val = LispThread.currentThread().lookupSpecial(this);
    312313            if (val != null)
     
    320321    public final LispObject symbolValueNoThrow()
    321322    {
    322         if ((flags & SPECIAL) != 0) {
     323        if ((flags & FLAG_SPECIAL) != 0) {
    323324            LispObject val = LispThread.currentThread().lookupSpecial(this);
    324325            if (val != null)
     
    330331    public final LispObject symbolValueNoThrow(LispThread thread)
    331332    {
    332         if ((flags & SPECIAL) != 0) {
     333        if ((flags & FLAG_SPECIAL) != 0) {
    333334            LispObject val = thread.lookupSpecial(this);
    334335            if (val != null)
Note: See TracChangeset for help on using the changeset viewer.