/[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.1 by pfdietz, Wed May 28 18:10:04 2003 UTC revision 1.2 by pfdietz, Wed Jun 4 01:04:49 2003 UTC
# Line 152  Line 152 
152       (multiple-value-list (funcall fn '(a b c)))))       (multiple-value-list (funcall fn '(a b c)))))
153    () (a b c) (1 2 3 4 5 6) ((b)))    () (a b c) (1 2 3 4 5 6) ((b)))
154    
155    (deftest defgeneric-method-combination.append.9
156      (handler-case
157       (let ((fn (eval '(defgeneric dg-mc.append.9 (x)
158                          (:method-combination append)))))
159         (funcall fn '(a)))
160       (error () :error))
161      :error)
162    
163    (deftest defgeneric-method-combination.append.10
164      (handler-case
165       (eval '(defgeneric dg-mc.append.10 (x)
166                (:method-combination append)
167                (:method ((x t)) '(a))))
168       (error () :error))
169      :error)
170    
171    (deftest defgeneric-method-combination.append.11
172      (handler-case
173       (eval '(defgeneric dg-mc.append.11 (x)
174                (:method-combination append)
175                (:method nonsense ((x t)) '(a))))
176       (error () :error))
177      :error)
178    
179    (deftest defgeneric-method-combination.append.12
180      (let ((fn (eval '(defgeneric dg-mc.append.12 (x)
181                         (:method-combination append)
182                         (:method :around ((x t)) '(a))
183                         (:method append ((x integer)) x)))))
184        (handler-case (funcall fn '(b))
185                      (error () :error)))
186      :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