/[gcl]/gcl/ansi-tests/defgeneric-method-combination-append.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defgeneric-method-combination-append.lsp

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

revision 1.4 by pfdietz, Sun Jul 27 02:41:52 2003 UTC revision 1.5 by pfdietz, Sun Jul 27 13:03:21 2003 UTC
# Line 200  Line 200 
200      (handler-case (funcall fn '(b))      (handler-case (funcall fn '(b))
201                    (error () :error)))                    (error () :error)))
202    :error)    :error)
203    
204    (deftest defgeneric-method-combination.append.13
205      (progn
206        (eval '(defgeneric dg-mc.append.13 (x)
207                 (:method-combination append)
208                 (:method append ((x dgmc-class-01)) (list 'foo))
209                 (:method append ((x dgmc-class-02)) (list 'bar))
210                 (:method nonsense ((x dgmc-class-03)) (list 'bad))))
211        (values
212         (dg-mc.append.13 (make-instance 'dgmc-class-01))
213         (dg-mc.append.13 (make-instance 'dgmc-class-02))
214         (handler-case
215          (dg-mc.append.13 (make-instance 'dgmc-class-03))
216          (error () :caught))
217         (handler-case
218          (dg-mc.append.13 (make-instance 'dgmc-class-04))
219          (error () :caught))
220              (handler-case
221          (dg-mc.append.13 (make-instance 'dgmc-class-07))
222          (error () :caught))))
223      (foo)
224      (bar foo)
225      :caught
226      :caught
227      :caught)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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