Changeset 4857


Ignore:
Timestamp:
11/21/03 01:19:51 (18 years ago)
Author:
piso
Message:

MAKE-STRUCTURE-CLASS

File:
1 edited

Legend:

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

    r4851 r4857  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StructureClass.java,v 1.4 2003-11-20 18:41:04 piso Exp $
     5 * $Id: StructureClass.java,v 1.5 2003-11-21 01:19:51 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5757
    5858    // ### make-structure-class
    59     private static final Primitive2 MAKE_STRUCTURE_CLASS =
    60         new Primitive2("make-structure-class", PACKAGE_SYS, false)
     59    private static final Primitive3 MAKE_STRUCTURE_CLASS =
     60        new Primitive3("make-structure-class", PACKAGE_SYS, false)
    6161    {
    62         public LispObject execute(LispObject first, LispObject second)
     62        public LispObject execute(LispObject first, LispObject second,
     63                                  LispObject third)
    6364            throws ConditionThrowable
    6465        {
    6566            Symbol symbol = checkSymbol(first);
    6667            LispObject directSlots = checkList(second);
     68            LispObject slots = checkList(third);
    6769            StructureClass c = new StructureClass(symbol);
    6870            c.setCPL(c, BuiltInClass.STRUCTURE_OBJECT, BuiltInClass.CLASS_T);
    6971            c.setDirectSlots(directSlots);
     72            c.setSlots(slots);
    7073            addClass(symbol, c);
    7174            return c;
Note: See TracChangeset for help on using the changeset viewer.