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

Diff of /gcl/ansi-tests/defgeneric-method-combination-nconc.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 164  Line 164 
164       (multiple-value-list (funcall fn '(a b c)))))       (multiple-value-list (funcall fn '(a b c)))))
165    () (a b c) (1 2 3 4 5 6) ((b)))    () (a b c) (1 2 3 4 5 6) ((b)))
166    
167    (deftest defgeneric-method-combination.nconc.9
168      (handler-case
169       (let ((fn (eval '(defgeneric dg-mc.nconc.9 (x)
170                          (:method-combination nconc)))))
171         (funcall fn (list 'a)))
172       (error () :error))
173      :error)
174    
175    (deftest defgeneric-method-combination.nconc.10
176      (handler-case
177       (eval '(defgeneric dg-mc.nconc.10 (x)
178                (:method-combination nconc)
179                (:method ((x t)) (list 'a))))
180       (error () :error))
181      :error)
182    
183    (deftest defgeneric-method-combination.nconc.11
184      (handler-case
185       (eval '(defgeneric dg-mc.nconc.11 (x)
186                (:method-combination nconc)
187                (:method nonsense ((x t)) (list 'a))))
188       (error () :error))
189      :error)
190    
191    (deftest defgeneric-method-combination.nconc.12
192      (let ((fn (eval '(defgeneric dg-mc.nconc.12 (x)
193                         (:method-combination nconc)
194                         (:method :around ((x t)) (list 'a))
195                         (:method nconc ((x integer)) x)))))
196        (handler-case (funcall fn (list 'b))
197                      (error () :error)))
198      :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