40 |
(let* ((obj (make-instance 'make-load-form-class-01)) |
(let* ((obj (make-instance 'make-load-form-class-01)) |
41 |
(fun #'make-load-form) |
(fun #'make-load-form) |
42 |
(methods (compute-applicable-methods fun (list obj)))) |
(methods (compute-applicable-methods fun (list obj)))) |
43 |
(values |
(notnot-mv methods)) |
44 |
(typep* fun 'standard-generic-function) |
t) |
|
(notnot-mv methods))) |
|
|
t t) |
|
45 |
|
|
46 |
(deftest make-load-form.5 |
(deftest make-load-form.5 |
47 |
(let* ((obj (make-make-load-form-struct-02)) |
(let* ((obj (make-make-load-form-struct-02)) |
48 |
(fun #'make-load-form) |
(fun #'make-load-form) |
49 |
(methods (compute-applicable-methods fun (list obj)))) |
(methods (compute-applicable-methods fun (list obj)))) |
50 |
(values |
(notnot-mv methods)) |
51 |
(typep* fun 'standard-generic-function) |
t) |
|
(notnot-mv methods))) |
|
|
t t) |
|
52 |
|
|
53 |
(deftest make-load-form.6 |
(deftest make-load-form.6 |
54 |
(let* ((obj (make-condition 'make-load-form-condition-03)) |
(let* ((obj (make-condition 'make-load-form-condition-03)) |
55 |
(fun #'make-load-form) |
(fun #'make-load-form) |
56 |
(methods (compute-applicable-methods fun (list obj)))) |
(methods (compute-applicable-methods fun (list obj)))) |
57 |
(values |
(notnot-mv methods)) |
58 |
(typep* fun 'standard-generic-function) |
t) |
|
(notnot-mv methods))) |
|
|
t t) |
|
59 |
|
|
60 |
|
(deftest make-load-form.7 |
61 |
|
(let* ((obj (make-instance 'make-load-form-class-01)) |
62 |
|
(fun #'make-load-form) |
63 |
|
(methods (compute-applicable-methods fun (list obj nil)))) |
64 |
|
(notnot-mv methods)) |
65 |
|
t) |
66 |
|
|
67 |
|
(deftest make-load-form.8 |
68 |
|
(let* ((obj (make-make-load-form-struct-02)) |
69 |
|
(fun #'make-load-form) |
70 |
|
(methods (compute-applicable-methods fun (list obj nil)))) |
71 |
|
(notnot-mv methods)) |
72 |
|
t) |
73 |
|
|
74 |
|
(deftest make-load-form.9 |
75 |
|
(let* ((obj (make-condition 'make-load-form-condition-03)) |
76 |
|
(fun #'make-load-form) |
77 |
|
(methods (compute-applicable-methods fun (list obj nil)))) |
78 |
|
(notnot-mv methods)) |
79 |
|
t) |
80 |
|
|
81 |
|
(deftest make-load-form.10 |
82 |
|
(macrolet |
83 |
|
((%m (&environment env) |
84 |
|
(let* ((obj (make-instance 'make-load-form-class-01)) |
85 |
|
(fun #'make-load-form) |
86 |
|
(methods (compute-applicable-methods fun (list obj env)))) |
87 |
|
(notnot-mv methods)))) |
88 |
|
(%m)) |
89 |
|
t) |
90 |
|
|
91 |
|
(deftest make-load-form.11 |
92 |
|
(macrolet |
93 |
|
((%m (&environment env) |
94 |
|
(let* ((obj (make-make-load-form-struct-02)) |
95 |
|
(fun #'make-load-form) |
96 |
|
(methods (compute-applicable-methods fun (list obj env)))) |
97 |
|
(notnot-mv methods)))) |
98 |
|
(%m)) |
99 |
|
t) |
100 |
|
|
101 |
|
(deftest make-load-form.12 |
102 |
|
(macrolet |
103 |
|
((%m (&environment env) |
104 |
|
(let* ((obj (make-condition 'make-load-form-condition-03)) |
105 |
|
(fun #'make-load-form) |
106 |
|
(methods (compute-applicable-methods fun (list obj env)))) |
107 |
|
(notnot-mv methods)))) |
108 |
|
(%m)) |
109 |
|
t) |