Changeset 5199


Ignore:
Timestamp:
12/19/03 18:29:29 (18 years ago)
Author:
piso
Message:

ALLOCATE-SLOT-STORAGE

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r5114 r5199  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: Autoload.java,v 1.111 2003-12-13 00:58:50 piso Exp $
     5 * $Id: Autoload.java,v 1.112 2003-12-19 18:29:29 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    327327        autoload(PACKAGE_SYS, "%structure-set-2", "StructureObject");
    328328        autoload(PACKAGE_SYS, "%time", "Time");
     329        autoload(PACKAGE_SYS, "allocate-slot-storage", "StandardObject");
    329330        autoload(PACKAGE_SYS, "allocate-std-instance", "StandardObject");
    330331        autoload(PACKAGE_SYS, "class-direct-methods", "LispClass");
  • trunk/j/src/org/armedbear/lisp/StandardObject.java

    r5114 r5199  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StandardObject.java,v 1.12 2003-12-13 00:58:51 piso Exp $
     5 * $Id: StandardObject.java,v 1.13 2003-12-19 18:29:03 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    170170    };
    171171
     172    // ### allocate-slot-storage
     173    // allocate-slot-storage size initial-value
     174    private static final Primitive2 ALLOCATE_SLOT_STORAGE =
     175        new Primitive2("allocate-slot-storage", PACKAGE_SYS, false)
     176    {
     177        public LispObject execute(LispObject first, LispObject second)
     178            throws ConditionThrowable
     179        {
     180            Vector v = new Vector(Fixnum.getValue(first));
     181            v.fill(second);
     182            return v;
     183        }
     184    };
     185
    172186    // ### allocate-std-instance
    173187    // allocate-std-instance class slots => instance
Note: See TracChangeset for help on using the changeset viewer.