Changeset 3789


Ignore:
Timestamp:
09/15/03 04:17:14 (19 years ago)
Author:
piso
Message:

(typep t 'boolean) => T

File:
1 edited

Legend:

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

    r3786 r3789  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Symbol.java,v 1.72 2003-09-15 03:52:12 piso Exp $
     5 * $Id: Symbol.java,v 1.73 2003-09-15 04:17:14 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    177177    public LispObject typep(LispObject typeSpecifier) throws LispError
    178178    {
    179         if (typeSpecifier instanceof Cons)
    180             return CompoundTypeSpecifier.getInstance(typeSpecifier).test(this);
    181 
    182179        if (typeSpecifier == Symbol.SYMBOL)
    183180            return T;
     181        if (typeSpecifier == Symbol.BOOLEAN)
     182            return this == T ? T : NIL;
    184183        if (typeSpecifier instanceof LispClass) {
    185184            final String name = typeSpecifier.getName();
Note: See TracChangeset for help on using the changeset viewer.