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

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

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

revision 1.1 by pfdietz, Thu May 29 02:41:20 2003 UTC revision 1.2 by pfdietz, Wed Jun 4 01:04:49 2003 UTC
# Line 142  Line 142 
142       (multiple-value-list (funcall fn #c(9 8)))       (multiple-value-list (funcall fn #c(9 8)))
143       (multiple-value-list (funcall fn '(a b c)))))       (multiple-value-list (funcall fn '(a b c)))))
144    () (a b c) (1 2 3 4 5 6) (b))    () (a b c) (1 2 3 4 5 6) (b))
145    
146    (deftest defgeneric-method-combination.or.9
147      (handler-case
148       (let ((fn (eval '(defgeneric dg-mc.or.9 (x)
149                          (:method-combination or)))))
150         (funcall fn (list 'a)))
151       (error () :error))
152      :error)
153    
154    (deftest defgeneric-method-combination.or.10
155      (handler-case
156       (eval '(defgeneric dg-mc.or.10 (x)
157                (:method-combination or)
158                (:method ((x t)) 0)))
159       (error () :error))
160      :error)
161    
162    (deftest defgeneric-method-combination.or.11
163      (handler-case
164       (eval '(defgeneric dg-mc.or.11 (x)
165                (:method-combination or)
166                (:method nonsense ((x t)) 0)))
167       (error () :error))
168      :error)
169    
170    (deftest defgeneric-method-combination.or.12
171      (let ((fn (eval '(defgeneric dg-mc.or.12 (x)
172                         (:method-combination or)
173                         (:method :around ((x t)) t)
174                         (:method or ((x integer)) x)))))
175        (handler-case (funcall fn 'a)
176                      (error () :error)))
177      :error)

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

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