26 |
(typep* #'(setf class-name) 'standard-generic-function) |
(typep* #'(setf class-name) 'standard-generic-function) |
27 |
t) |
t) |
28 |
|
|
29 |
|
(deftest setf-class-name.2 |
30 |
|
(let ((sym (gensym)) |
31 |
|
(newsym (gensym))) |
32 |
|
(eval `(defclass ,sym () (a b c))) |
33 |
|
(let ((class (find-class sym))) |
34 |
|
(values |
35 |
|
(eqlt (class-name class) sym) |
36 |
|
(equalt |
37 |
|
(multiple-value-list (setf (class-name (find-class sym)) newsym)) |
38 |
|
(list newsym)) |
39 |
|
(eqlt newsym (class-name class))))) |
40 |
|
t t t) |
41 |
|
|
42 |
|
|
43 |
|
;;; Error tests |
44 |
|
|
45 |
(deftest class-name.error.1 |
(deftest class-name.error.1 |
46 |
(signals-error (class-name) program-error) |
(signals-error (class-name) program-error) |
47 |
t) |
t) |