/[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.3 by pfdietz, Tue Jul 1 12:16:10 2003 UTC revision 1.4 by pfdietz, Sun Jul 27 02:41:52 2003 UTC
# Line 182  Line 182 
182    :error)    :error)
183    
184  (deftest defgeneric-method-combination.nconc.10  (deftest defgeneric-method-combination.nconc.10
185    (handler-case    (progn
186     (eval '(defgeneric dg-mc.nconc.10 (x)      (eval '(defgeneric dg-mc.nconc.10 (x)
187              (:method-combination nconc)               (:method-combination nconc)
188              (:method ((x t)) (list 'a))))               (:method ((x t)) (list 'a))))
189     (error () :error))      (handler-case
190         (dg-mc.nconc.10 'a)
191         (error () :error)))
192    :error)    :error)
193    
194  (deftest defgeneric-method-combination.nconc.11  (deftest defgeneric-method-combination.nconc.11
195    (handler-case    (progn
196     (eval '(defgeneric dg-mc.nconc.11 (x)      (eval '(defgeneric dg-mc.nconc.11 (x)
197              (:method-combination nconc)              (:method-combination nconc)
198              (:method nonsense ((x t)) (list 'a))))              (:method nonsense ((x t)) (list 'a))))
199     (error () :error))      (handler-case
200         (dg-mc.nconc.11 0)
201         (error () :error)))
202    :error)    :error)
203    
204  (deftest defgeneric-method-combination.nconc.12  (deftest defgeneric-method-combination.nconc.12

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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