/[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.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 167  Line 167 
167    :error)    :error)
168    
169  (deftest defgeneric-method-combination.and.10  (deftest defgeneric-method-combination.and.10
170    (handler-case    (progn
171     (eval '(defgeneric dg-mc.and.10 (x)      (eval '(defgeneric dg-mc.and.10 (x)
172              (:method-combination and)               (:method-combination and)
173              (:method ((x t)) t)))               (:method ((x t)) t)))    
174     (error () :error))      (handler-case
175         (dg-mc.and.10 'a)
176         (error () :error)))
177    :error)    :error)
178    
179  (deftest defgeneric-method-combination.and.11  (deftest defgeneric-method-combination.and.11
180    (handler-case    (progn
181     (eval '(defgeneric dg-mc.and.11 (x)      (eval '(defgeneric dg-mc.and.11 (x)
182              (:method-combination and)               (:method-combination and)
183              (:method nonsense ((x t)) t)))               (:method nonsense ((x t)) t)))
184     (error () :error))      (handler-case
185         (dg-mc.and.11 0)
186         (error () :error)))
187    :error)    :error)
188    
189  (deftest defgeneric-method-combination.and.12  (deftest defgeneric-method-combination.and.12
# Line 191  Line 195 
195      (handler-case (funcall fn 'x)      (handler-case (funcall fn 'x)
196                    (error () :error)))                    (error () :error)))
197    :error)    :error)
   
   
   
   

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