Changeset 10348


Ignore:
Timestamp:
11/04/05 13:08:02 (16 years ago)
Author:
piso
Message:

Symbol.MAILBOX
BuiltInClass?.MAILBOX

File:
1 edited

Legend:

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

    r8087 r10348  
    22 * Mailbox.java
    33 *
    4  * Copyright (C) 2004 Peter Graves
    5  * $Id: Mailbox.java,v 1.6 2004-11-03 15:39:01 piso Exp $
     4 * Copyright (C) 2004-2005 Peter Graves, Andras Simon
     5 * $Id: Mailbox.java,v 1.7 2005-11-04 13:08:02 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2828{
    2929    private LinkedList box = new LinkedList();
     30
     31    public LispObject typeOf()
     32    {
     33        return Symbol.MAILBOX;
     34    }
     35
     36    public LispObject classOf()
     37    {
     38        return BuiltInClass.MAILBOX;
     39    }
     40
     41    public LispObject typep(LispObject typeSpecifier) throws ConditionThrowable
     42    {
     43        if (typeSpecifier == Symbol.MAILBOX)
     44            return T;
     45        if (typeSpecifier == BuiltInClass.MAILBOX)
     46            return T;
     47        return super.typep(typeSpecifier);
     48    }
    3049
    3150    private void send (LispObject o)
     
    94113                return T;
    95114            } else
    96                 return signal(new TypeError(first, "MAILBOX"));
     115                return signalTypeError(first, Symbol.MAILBOX);
    97116        }
    98117    };
     
    108127                return mbox.read();
    109128            } else
    110                 return signal(new TypeError(arg, "MAILBOX"));
     129                return signalTypeError(arg, Symbol.MAILBOX);
    111130        }
    112131    };
     
    122141                return mbox.peek();
    123142            } else
    124                 return signal(new TypeError(arg, "MAILBOX"));
     143                return signalTypeError(arg, Symbol.MAILBOX);
    125144        }
    126145    };
     
    136155                return mbox.empty();
    137156            } else
    138                 return signal(new TypeError(arg, "MAILBOX"));
     157                return signalTypeError(arg, Symbol.MAILBOX);
    139158        }
    140159    };
Note: See TracChangeset for help on using the changeset viewer.