Changeset 14482
- Timestamp:
- 04/24/13 12:51:25 (10 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/StandardClass.java
r14480 r14482 470 470 public static final StandardClass BUILT_IN_CLASS = 471 471 addStandardClass(Symbol.BUILT_IN_CLASS, list(CLASS)); 472 473 public static final StandardClass FORWARD_REFERENCED_CLASS =474 addStandardClass(Symbol.FORWARD_REFERENCED_CLASS, list(CLASS));475 472 476 473 public static final StandardClass FUNCALLABLE_STANDARD_CLASS = … … 644 641 ERROR, SERIOUS_CONDITION, CONDITION, 645 642 STANDARD_OBJECT, BuiltInClass.CLASS_T); 646 FORWARD_REFERENCED_CLASS.setCPL(FORWARD_REFERENCED_CLASS, CLASS,647 SPECIALIZER, METAOBJECT, STANDARD_OBJECT, BuiltInClass.CLASS_T);648 // Not all of these slots are necessary, but for now we take the649 // standard layout. Instances of this class will be redefined and650 // get a new layout in due course.651 FORWARD_REFERENCED_CLASS.setClassLayout(layoutStandardClass);652 FORWARD_REFERENCED_CLASS.setDirectSlotDefinitions(standardClassSlotDefinitions());653 643 FUNCALLABLE_STANDARD_OBJECT.setCPL(FUNCALLABLE_STANDARD_OBJECT, 654 644 STANDARD_OBJECT, BuiltInClass.FUNCTION, … … 756 746 FUNCALLABLE_STANDARD_OBJECT.finalizeClass(); 757 747 FUNCALLABLE_STANDARD_CLASS.finalizeClass(); 758 FORWARD_REFERENCED_CLASS.finalizeClass();759 748 GENERIC_FUNCTION.finalizeClass(); 760 749 ARITHMETIC_ERROR.finalizeClass(); -
trunk/abcl/src/org/armedbear/lisp/Symbol.java
r14480 r14482 3097 3097 public static final Symbol FLOAT_OVERFLOW_MODE = 3098 3098 PACKAGE_SYS.addExternalSymbol("FLOAT-OVERFLOW-MODE"); 3099 public static final Symbol FORWARD_REFERENCED_CLASS =3100 PACKAGE_SYS.addExternalSymbol("FORWARD-REFERENCED-CLASS");3101 3099 public static final Symbol GETHASH1 = 3102 3100 PACKAGE_SYS.addExternalSymbol("GETHASH1"); -
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14479 r14482 119 119 (find-class 'funcallable-standard-object)) 120 120 (defconstant +the-standard-method-class+ (find-class 'standard-method)) 121 (defconstant +the-forward-referenced-class+122 (find-class 'forward-referenced-class))123 121 (defconstant +the-standard-generic-function-class+ 124 122 (find-class 'standard-generic-function)) … … 209 207 'standard-effective-slot-definition) 210 208 (add-subclasses 'class 211 '(built-in-class forward-referenced-class standard-class 212 funcallable-standard-class)))) 209 '(built-in-class standard-class funcallable-standard-class)))) 213 210 (fixup-standard-class-hierarchy) 214 211 … … 953 950 (defconstant +the-structure-class+ (find-class 'structure-class)) 954 951 952 (define-primordial-class forward-referenced-class (class) 953 ;; The standard-class layout. Not all of these slots are necessary, 954 ;; but at least NAME and DIRECT-SUBCLASSES are. 955 ((sys::name :initarg :name :initform nil) 956 (sys::layout :initform nil) 957 (sys::direct-superclasses :initform nil) 958 (sys::direct-subclasses :initform nil) 959 (sys::precedence-list :initform nil) 960 (sys::direct-methods :initform nil) 961 (sys::direct-slots :initform nil) 962 (sys::slots :initform nil) 963 (sys::direct-default-initargs :initform nil) 964 (sys::default-initargs :initform nil) 965 (sys::finalized-p :initform nil) 966 (sys::%documentation :initform nil))) 967 (defconstant +the-forward-referenced-class+ 968 (find-class 'forward-referenced-class)) 955 969 956 970 (defvar *extensible-built-in-classes*
Note: See TracChangeset
for help on using the changeset viewer.