/[gcl]/gcl/ansi-tests/remove-method.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/remove-method.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Mon May 12 02:09:19 2003 UTC revision 1.3 by pfdietz, Mon May 12 02:16:04 2003 UTC
# Line 148  Line 148 
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))
# Line 178  Line 178 
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))
# Line 193  Line 193 
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))
# Line 207  Line 207 
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)))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26