Changeset 13201 for trunk/abcl/src/org


Ignore:
Timestamp:
01/31/11 21:45:41 (11 years ago)
Author:
ehuelsmann
Message:

Rename STD-ALLOCATE-INSTANCE to %STD-ALLOCATE-INSTANCE,
creating STD-ALLOCATE-INSTANCE which is closer to the one
specified by AMOP.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
3 edited

Legend:

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

    r13196 r13201  
    688688        autoload(PACKAGE_SYS, "simple-list-remove-duplicates", "simple_list_remove_duplicates");
    689689        autoload(PACKAGE_SYS, "single-float-bits", "FloatFunctions", true);
    690         autoload(PACKAGE_SYS, "std-allocate-instance", "StandardObjectFunctions", true);
     690        autoload(PACKAGE_SYS, "%std-allocate-instance", "StandardObjectFunctions", true);
    691691        autoload(PACKAGE_SYS, "unzip", "unzip", true);
    692692        autoload(PACKAGE_SYS, "zip", "zip", true);
  • trunk/abcl/src/org/armedbear/lisp/StandardObjectFunctions.java

    r13192 r13201  
    3838public class StandardObjectFunctions
    3939{
    40   // ### std-allocate-instance class => instance
    41   private static final Primitive STD_ALLOCATE_INSTANCE =
    42     new Primitive("std-allocate-instance", PACKAGE_SYS, true, "class")
     40  // ### %std-allocate-instance class => instance
     41  private static final Primitive _STD_ALLOCATE_INSTANCE =
     42    new Primitive("%std-allocate-instance", PACKAGE_SYS, true, "class")
    4343    {
    4444      @Override
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13200 r13201  
    623623(defun instance-slot-p (slot)
    624624  (eq (slot-definition-allocation slot) :instance))
     625
     626(defun std-allocate-instance (class)
     627  ;; AMOP says ALLOCATE-INSTANCE checks if the class is finalized
     628  ;; and if not, tries to finalize it.
     629  (unless (class-finalized-p class)
     630    (std-finalize-inheritance class))
     631  (sys::%std-allocate-instance class))
    625632
    626633(defun make-instance-standard-class (metaclass
Note: See TracChangeset for help on using the changeset viewer.