Changeset 14153
- Timestamp:
- 09/19/12 14:34:44 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14145 r14153 549 549 (unless (slot-definition-location slot) 550 550 (let ((allocation-class (slot-definition-allocation-class slot))) 551 (setf (slot-definition-location slot) 552 (if (eq allocation-class class) 553 (cons (slot-definition-name slot) +slot-unbound+) 551 (if (eq allocation-class class) 552 ;; We initialize class slots here so they can be 553 ;; accessed without creating a dummy instance. 554 (let ((initfunction (slot-definition-initfunction slot))) 555 (setf (slot-definition-location slot) 556 (cons (slot-definition-name slot) 557 (if initfunction 558 (funcall initfunction) 559 +slot-unbound+)))) 560 (setf (slot-definition-location slot) 554 561 (slot-location allocation-class (slot-definition-name slot)))))) 555 562 (push (slot-definition-location slot) shared-slots))))
Note: See TracChangeset
for help on using the changeset viewer.