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

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

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

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

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