654 |
(nil t) |
(nil t) |
655 |
y) |
y) |
656 |
|
|
657 |
|
;;; Order of evaluation tests |
658 |
|
|
659 |
|
(deftest shared-initialize.order.1 |
660 |
|
(let ((obj (allocate-instance (find-class 'shared-init-class-01))) |
661 |
|
(i 0) x r y z w q) |
662 |
|
(values |
663 |
|
(eqt obj |
664 |
|
(shared-initialize (progn (setf x (incf i)) obj) |
665 |
|
(progn (setf r (incf i)) nil) |
666 |
|
:b (setf y (incf i)) |
667 |
|
:a (setf z (incf i)) |
668 |
|
:b (setf w (incf i)) |
669 |
|
:c (setf q (incf i)))) |
670 |
|
(map-slot-value obj '(a b c)) |
671 |
|
i x r y z w q)) |
672 |
|
t (4 3 6) |
673 |
|
6 1 2 3 4 5 6) |
674 |
|
|
675 |
;;; Error tests |
;;; Error tests |
676 |
|
|
677 |
(deftest shared-initialize.error.1 |
(deftest shared-initialize.error.1 |
695 |
(find-class 'shared-init-class-01)))) |
(find-class 'shared-init-class-01)))) |
696 |
(shared-initialize obj nil '(a b c) nil))) |
(shared-initialize obj nil '(a b c) nil))) |
697 |
program-error) |
program-error) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|