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

Diff of /gcl/ansi-tests/defgeneric-method-combination-and.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 148  Line 148 
148       (multiple-value-list (funcall fn #c(9 8)))       (multiple-value-list (funcall fn #c(9 8)))
149       (multiple-value-list (funcall fn '(a b c)))))       (multiple-value-list (funcall fn '(a b c)))))
150    () (a b c) (1 2 3 4 5 6) (b))    () (a b c) (1 2 3 4 5 6) (b))
151    
152    (deftest defgeneric-method-combination.and.9
153      (handler-case
154       (let ((fn (eval '(defgeneric dg-mc.and.9 (x)
155                          (:method-combination and)))))
156         (funcall fn 'x))
157       (error () :error))
158      :error)
159    
160    (deftest defgeneric-method-combination.and.10
161      (handler-case
162       (eval '(defgeneric dg-mc.and.10 (x)
163                (:method-combination and)
164                (:method ((x t)) t)))
165       (error () :error))
166      :error)
167    
168    (deftest defgeneric-method-combination.and.11
169      (handler-case
170       (eval '(defgeneric dg-mc.and.11 (x)
171                (:method-combination and)
172                (:method nonsense ((x t)) t)))
173       (error () :error))
174      :error)
175    
176    (deftest defgeneric-method-combination.and.12
177      (let ((fn (eval '(defgeneric dg-mc.and.12 (x)
178                         (:method-combination and)
179                         (:method :around ((x t)) t)
180                         (:method and ((x integer)) x)))))
181        (handler-case (funcall fn 'x)
182                      (error () :error)))
183      :error)
184    
185    
186    
187    

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