Changeset 3970


Ignore:
Timestamp:
09/21/03 17:42:29 (19 years ago)
Author:
piso
Message:

CLASSP

File:
1 edited

Legend:

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

    r3967 r3970  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: LispClass.java,v 1.22 2003-09-21 15:13:48 piso Exp $
     5 * $Id: LispClass.java,v 1.23 2003-09-21 17:42:29 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    136136        }
    137137    };
     138
     139    private static final Primitive1 CLASSP =
     140        new Primitive1("classp", PACKAGE_SYS, false)
     141    {
     142        public LispObject execute(LispObject arg)
     143        {
     144            return arg instanceof LispClass ? T : NIL;
     145        }
     146    };
    138147}
Note: See TracChangeset for help on using the changeset viewer.