Changeset 4806


Ignore:
Timestamp:
11/17/03 16:02:47 (18 years ago)
Author:
piso
Message:

TYPEP: (typep :a 'keyword) => T

File:
1 edited

Legend:

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

    r4527 r4806  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Symbol.java,v 1.89 2003-10-24 18:32:39 piso Exp $
     5 * $Id: Symbol.java,v 1.90 2003-11-17 16:02:47 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    221221        if (type == BuiltInClass.SYMBOL)
    222222            return T;
     223        if (type == Symbol.KEYWORD)
     224            return pkg == PACKAGE_KEYWORD ? T : NIL;
    223225        if (type == Symbol.BOOLEAN)
    224226            return this == T ? T : NIL;
Note: See TracChangeset for help on using the changeset viewer.