148 |
(mapcar #'remove-meth-gf-01 '(10 20.0)))) |
(mapcar #'remove-meth-gf-01 '(10 20.0)))) |
149 |
(10 20.0) (11 21.0) (9 21.0) t (9 20.0) t (10 20.0)) |
(10 20.0) (11 21.0) (9 21.0) t (9 20.0) t (10 20.0)) |
150 |
|
|
151 |
(deftest remove-method.7 |
(deftest remove-method.8 |
152 |
(let (meth1 meth2) |
(let (meth1 meth2) |
153 |
(values |
(values |
154 |
(mapcar #'remove-meth-gf-01 '(10 20.0)) |
(mapcar #'remove-meth-gf-01 '(10 20.0)) |
178 |
(defparameter *remove-meth-gf-03-method-t* |
(defparameter *remove-meth-gf-03-method-t* |
179 |
(defmethod remove-meth-gf-03 ((x t)) (list *rmgf-03-var* x))) |
(defmethod remove-meth-gf-03 ((x t)) (list *rmgf-03-var* x))) |
180 |
|
|
181 |
(deftest remove-method.8 |
(deftest remove-method.9 |
182 |
(let (meth (*rmgf-03-var* 0)) |
(let (meth (*rmgf-03-var* 0)) |
183 |
(values |
(values |
184 |
(mapcar #'remove-meth-gf-03 '(5 a)) |
(mapcar #'remove-meth-gf-03 '(5 a)) |
193 |
t |
t |
194 |
((1 5) (1 a))) |
((1 5) (1 a))) |
195 |
|
|
196 |
(deftest remove-method.9 |
(deftest remove-method.10 |
197 |
(let (meth (*rmgf-03-var* 0)) |
(let (meth (*rmgf-03-var* 0)) |
198 |
(values |
(values |
199 |
(mapcar #'remove-meth-gf-03 '(5 a)) |
(mapcar #'remove-meth-gf-03 '(5 a)) |
207 |
((0 5) (1 a)) |
((0 5) (1 a)) |
208 |
t |
t |
209 |
((1 5) (1 a))) |
((1 5) (1 a))) |
210 |
|
|
211 |
|
(deftest remove-method.11 |
212 |
|
(let (meth (*rmgf-03-var* 0)) |
213 |
|
(values |
214 |
|
(mapcar #'remove-meth-gf-03 '(5 a)) |
215 |
|
(progn |
216 |
|
(setf meth (eval '(defmethod remove-meth-gf-03 :around ((x number)) |
217 |
|
(incf *rmgf-03-var*) |
218 |
|
(prog1 (call-next-method) |
219 |
|
(decf *rmgf-03-var*))))) |
220 |
|
(mapcar #'remove-meth-gf-03 '(5 a))) |
221 |
|
(eqt *remove-meth-gf-03* (remove-method *remove-meth-gf-03* meth)) |
222 |
|
(mapcar #'remove-meth-gf-03 '(5 a)))) |
223 |
|
((0 5) (0 a)) |
224 |
|
((1 5) (0 a)) |
225 |
|
t |
226 |
|
((0 5) (0 a))) |