589 |
|
|
590 |
(declaim (special *class-21-s1-initvar-1* *class-21-s1-initvar-2*)) |
(declaim (special *class-21-s1-initvar-1* *class-21-s1-initvar-2*)) |
591 |
|
|
592 |
(defclass class-21 () |
(let ((*class-21-s1-initvar-1* 0) |
593 |
((s1 :initarg :s1 :initarg :s1b) |
(*class-21-s1-initvar-2* 0)) |
594 |
(s2 :initarg :s1b :initarg :s2)) |
(declaim (special *class-21-s1-initvar-1* *class-21-s1-initvar-2*)) |
595 |
(:default-initargs :s1 (incf *class-21-s1-initvar-1*) |
(defclass class-21 () |
596 |
:s1b (incf *class-21-s1-initvar-2*))) |
((s1 :initarg :s1 :initarg :s1b) |
597 |
|
(s2 :initarg :s1b :initarg :s2)) |
598 |
|
(:default-initargs :s1 (incf *class-21-s1-initvar-1*) |
599 |
|
:s1b (incf *class-21-s1-initvar-2*)))) |
600 |
|
|
601 |
(deftest class-21.1 |
(deftest class-21.1 |
602 |
(let* ((*class-21-s1-initvar-1* 10) |
(let* ((*class-21-s1-initvar-1* 10) |
611 |
*class-21-s1-initvar-2*)) |
*class-21-s1-initvar-2*)) |
612 |
11 21 11 21) |
11 21 11 21) |
613 |
|
|
614 |
|
(deftest class-21.2 |
615 |
|
(let* ((*class-21-s1-initvar-1* 10) |
616 |
|
(*class-21-s1-initvar-2* 20) |
617 |
|
(c (make-instance 'class-21 :s1 'x))) |
618 |
|
(declare (special *class-21-s1-initvar-1* |
619 |
|
*class-21-s1-initvar-2*)) |
620 |
|
(values |
621 |
|
(slot-value c 's1) |
622 |
|
(slot-value c 's2) |
623 |
|
*class-21-s1-initvar-1* |
624 |
|
*class-21-s1-initvar-2*)) |
625 |
|
x 21 10 21) |
626 |
|
|
627 |
|
(deftest class-21.3 |
628 |
|
(let* ((*class-21-s1-initvar-1* 10) |
629 |
|
(*class-21-s1-initvar-2* 20) |
630 |
|
(c (make-instance 'class-21 :s1 'x :s1b 'y))) |
631 |
|
(declare (special *class-21-s1-initvar-1* |
632 |
|
*class-21-s1-initvar-2*)) |
633 |
|
(values |
634 |
|
(slot-value c 's1) |
635 |
|
(slot-value c 's2) |
636 |
|
*class-21-s1-initvar-1* |
637 |
|
*class-21-s1-initvar-2*)) |
638 |
|
x y 10 20) |
639 |
|
|
640 |
|
(deftest class-21.4 |
641 |
|
(let* ((*class-21-s1-initvar-1* 10) |
642 |
|
(*class-21-s1-initvar-2* 20) |
643 |
|
(c (make-instance 'class-21 :s1b 'y))) |
644 |
|
(declare (special *class-21-s1-initvar-1* |
645 |
|
*class-21-s1-initvar-2*)) |
646 |
|
(values |
647 |
|
(slot-value c 's1) |
648 |
|
(slot-value c 's2) |
649 |
|
*class-21-s1-initvar-1* |
650 |
|
*class-21-s1-initvar-2*)) |
651 |
|
y y 11 20) |
652 |
|
|
653 |
|
(deftest class-21.5 |
654 |
|
(let* ((*class-21-s1-initvar-1* 10) |
655 |
|
(*class-21-s1-initvar-2* 20) |
656 |
|
(c (make-instance 'class-21 :s2 'y))) |
657 |
|
(declare (special *class-21-s1-initvar-1* |
658 |
|
*class-21-s1-initvar-2*)) |
659 |
|
(values |
660 |
|
(slot-value c 's1) |
661 |
|
(slot-value c 's2) |
662 |
|
*class-21-s1-initvar-1* |
663 |
|
*class-21-s1-initvar-2*)) |
664 |
|
11 y 11 21) |