Changeset 4104


Ignore:
Timestamp:
09/28/03 18:32:16 (19 years ago)
Author:
piso
Message:

MAKE-INSTANCE-STANDARD-CLASS

File:
1 edited

Legend:

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

    r3968 r4104  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StandardClass.java,v 1.4 2003-09-21 16:58:41 piso Exp $
     5 * $Id: StandardClass.java,v 1.5 2003-09-28 18:32:16 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5555        return sb.toString();
    5656    }
     57
     58    private static final Primitive MAKE_INSTANCE_STANDARD_CLASS =
     59        new Primitive("make-instance-standard-class", PACKAGE_SYS, false)
     60    {
     61        public LispObject execute(LispObject[] args) throws ConditionThrowable
     62        {
     63            if (args.length < 1)
     64                throw new ConditionThrowable(new WrongNumberOfArgumentsException(this));
     65            Symbol symbol = checkSymbol(args[0]);
     66            return new StandardClass(symbol, NIL);
     67        }
     68    };
    5769}
Note: See TracChangeset for help on using the changeset viewer.