161 |
(*trace-output*) |
(*trace-output*) |
162 |
(assert (null (generic-function-to-trace 'a 'b)))) |
(assert (null (generic-function-to-trace 'a 'b)))) |
163 |
""))) |
""))) |
164 |
(assert (equal (trace) '(generic-function-to-trace))) |
(prog1 |
165 |
(untrace generic-function-to-trace) |
(trace) |
166 |
(trace)) |
(untrace generic-function-to-trace) |
167 |
nil) |
(assert (null (trace))))) |
168 |
|
(generic-function-to-trace)) |
169 |
|
|
170 |
|
(declaim (notinline generic-function-to-trace2)) |
171 |
|
|
172 |
|
(deftest trace.15 |
173 |
|
(progn |
174 |
|
(untrace) |
175 |
|
(let* ((gf (defgeneric generic-function-to-trace2 (x y))) |
176 |
|
(m (defmethod generic-function-to-trace2 ((x integer)(y integer)) |
177 |
|
:foo))) |
178 |
|
(defmethod generic-function-to-trace2 ((x symbol)(y symbol)) :bar) |
179 |
|
(assert (eql (generic-function-to-trace2 1 2) :foo)) |
180 |
|
(assert (eql (generic-function-to-trace2 'a 'b) :bar)) |
181 |
|
(trace generic-function-to-trace2) |
182 |
|
(assert (equal (trace) '(generic-function-to-trace2))) |
183 |
|
(remove-method gf m) |
184 |
|
(prog1 (trace) (untrace)))) |
185 |
|
(generic-function-to-trace2)) |