Changeset 4851


Ignore:
Timestamp:
11/20/03 18:41:04 (18 years ago)
Author:
piso
Message:
File:
1 edited

Legend:

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

    r3989 r4851  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StructureClass.java,v 1.3 2003-09-22 12:05:41 piso Exp $
     5 * $Id: StructureClass.java,v 1.4 2003-11-20 18:41:04 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2222package org.armedbear.lisp;
    2323
    24 public class StructureClass extends LispClass
     24public class StructureClass extends SlotClass
    2525{
    2626    private StructureClass(Symbol symbol)
     
    5757
    5858    // ### make-structure-class
    59     private static final Primitive1 MAKE_STRUCTURE_CLASS =
    60         new Primitive1("make-structure-class", PACKAGE_SYS, false)
     59    private static final Primitive2 MAKE_STRUCTURE_CLASS =
     60        new Primitive2("make-structure-class", PACKAGE_SYS, false)
    6161    {
    62         public LispObject execute(LispObject arg) throws ConditionThrowable
     62        public LispObject execute(LispObject first, LispObject second)
     63            throws ConditionThrowable
    6364        {
    64             Symbol symbol = checkSymbol(arg);
     65            Symbol symbol = checkSymbol(first);
     66            LispObject directSlots = checkList(second);
    6567            StructureClass c = new StructureClass(symbol);
    6668            c.setCPL(c, BuiltInClass.STRUCTURE_OBJECT, BuiltInClass.CLASS_T);
     69            c.setDirectSlots(directSlots);
    6770            addClass(symbol, c);
    6871            return c;
Note: See TracChangeset for help on using the changeset viewer.