2
;;;; Author: Paul Dietz
3
;;;; Created: Sat May 17 08:12:35 2003
4
;;;; Contains: Tests of MAKE-INSTANCES-OBSOLETE
8
(defclass make-instances-obsolete-class-01 ()
10
(b :initarg :b :allocation :class)
11
(c :initarg :c :initform 'abc)
12
(d :initarg :d :type fixnum :initform 0)))
14
(deftest make-instances-obsolete.1
15
(let* ((class (find-class 'make-instances-obsolete-class-01))
16
(obj (make-instance class :a 'x :b 'y :c 'z :d 17)))
18
(eqt (class-of obj) class)
19
(map-slot-value obj '(a b c d))
20
(eqt (make-instances-obsolete class) class)
21
(map-slot-value obj '(a b c d))))
22
t (x y z 17) t (x y z 17))
24
(deftest make-instances-obsolete.2
25
(let* ((class-designator 'make-instances-obsolete-class-01)
26
(class (find-class class-designator))
27
(obj (make-instance class :a 'x :b 'y :c 'z :d 17)))
29
(eqt (class-of obj) class)
30
(map-slot-value obj '(a b c d))
31
(eqt (make-instances-obsolete class-designator) class-designator)
32
(map-slot-value obj '(a b c d))))
33
t (x y z 17) t (x y z 17))
37
(deftest make-instances-obsolete.error.1
38
(signals-error (make-instances-obsolete) program-error)
41
(deftest make-instances-obsolete.error.2
42
(signals-error (make-instances-obsolete
43
(find-class 'make-instances-obsolete-class-01)