Changeset 3480


Ignore:
Timestamp:
08/24/03 16:19:52 (19 years ago)
Author:
piso
Message:

CLASS-OF

File:
1 edited

Legend:

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

    r3466 r3480  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.341 2003-08-23 01:36:31 piso Exp $
     5 * $Id: Primitives.java,v 1.342 2003-08-24 16:19:52 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    22872287    };
    22882288
     2289    // ### class-of
     2290    private static final Primitive1 CLASS_OF = new Primitive1("class-of") {
     2291        public LispObject execute(LispObject arg) throws LispError
     2292        {
     2293            return arg.classOf();
     2294        }
     2295    };
     2296
    22892297    // ### typep
    22902298    private static final Primitive2 TYPEP = new Primitive2("typep") {
Note: See TracChangeset for help on using the changeset viewer.