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

Diff of /gcl/ansi-tests/defgeneric-method-combination-or.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 161  Line 161 
161    :error)    :error)
162    
163  (deftest defgeneric-method-combination.or.10  (deftest defgeneric-method-combination.or.10
164    (handler-case    (progn
165     (eval '(defgeneric dg-mc.or.10 (x)      (eval '(defgeneric dg-mc.or.10 (x)
166              (:method-combination or)               (:method-combination or)
167              (:method ((x t)) 0)))               (:method ((x t)) 0)))
168     (error () :error))      (handler-case
169         (dg-mc.or.10 'a)
170         (error () :error)))
171    :error)    :error)
172    
173  (deftest defgeneric-method-combination.or.11  (deftest defgeneric-method-combination.or.11
174    (handler-case    (progn
175     (eval '(defgeneric dg-mc.or.11 (x)      (eval '(defgeneric dg-mc.or.11 (x)
176              (:method-combination or)               (:method-combination or)
177              (:method nonsense ((x t)) 0)))               (:method nonsense ((x t)) 0)))
178     (error () :error))      (handler-case
179         (dg-mc.or.11 0)
180         (error () :error)))
181    :error)    :error)
182    
183  (deftest defgeneric-method-combination.or.12  (deftest defgeneric-method-combination.or.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