12 |
(d :initarg :d :type fixnum :initform 0))) |
(d :initarg :d :type fixnum :initform 0))) |
13 |
|
|
14 |
(deftest make-instances-obsolete.1 |
(deftest make-instances-obsolete.1 |
15 |
(let* ((class (find-class 'make-instances-obsolete-class-01)) |
(let* ((class-designator 'make-instances-obsolete-class-01) |
16 |
|
(class (find-class class-designator)) |
17 |
(obj (make-instance class :a 'x :b 'y :c 'z :d 17))) |
(obj (make-instance class :a 'x :b 'y :c 'z :d 17))) |
18 |
(values |
(values |
19 |
(eqt (class-of obj) class) |
(eqt (class-of obj) class) |
20 |
(map-slot-value obj '(a b c d)) |
(map-slot-value obj '(a b c d)) |
21 |
(eqt (make-instances-obsolete class) class) |
(let ((val (make-instances-obsolete class))) |
22 |
|
(or (eqt val class-designator) |
23 |
|
(eqt val class))) |
24 |
(map-slot-value obj '(a b c d)))) |
(map-slot-value obj '(a b c d)))) |
25 |
t (x y z 17) t (x y z 17)) |
t (x y z 17) t (x y z 17)) |
26 |
|
|
31 |
(values |
(values |
32 |
(eqt (class-of obj) class) |
(eqt (class-of obj) class) |
33 |
(map-slot-value obj '(a b c d)) |
(map-slot-value obj '(a b c d)) |
34 |
(eqt (make-instances-obsolete class-designator) class-designator) |
(let ((val (make-instances-obsolete class-designator))) |
35 |
|
(or (eqt val class-designator) |
36 |
|
(eqt val class))) |
37 |
(map-slot-value obj '(a b c d)))) |
(map-slot-value obj '(a b c d)))) |
38 |
t (x y z 17) t (x y z 17)) |
t (x y z 17) t (x y z 17)) |
39 |
|
|