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

Diff of /gcl/ansi-tests/defgeneric-method-combination-plus.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pfdietz, Tue Jul 1 12:16:10 2003 UTC revision 1.5 by pfdietz, Sun Jul 27 02:41:52 2003 UTC
# Line 158  Line 158 
158    :error)    :error)
159    
160  (deftest defgeneric-method-combination.+.10  (deftest defgeneric-method-combination.+.10
161    (handler-case    (progn
162     (eval '(defgeneric dg-mc.+.10 (x)      (eval '(defgeneric dg-mc.+.10 (x)
163              (:method-combination +)               (:method-combination +)
164              (:method ((x t)) 0)))               (:method ((x t)) 0)))
165     (error () :error))      (handler-case
166         (dg-mc.+.10 'a)
167         (error () :error)))
168    :error)    :error)
169    
170  (deftest defgeneric-method-combination.+.11  (deftest defgeneric-method-combination.+.11
171    (handler-case    (progn
172     (eval '(defgeneric dg-mc.+.11 (x)      (eval '(defgeneric dg-mc.+.11 (x)
173              (:method-combination +)               (:method-combination +)
174              (:method nonsense ((x t)) 0)))               (:method nonsense ((x t)) 0)))
175     (error () :error))      (handler-case
176         (dg-mc.+.11 0)
177         (error () :error)))
178    :error)    :error)
179    
180  (deftest defgeneric-method-combination.+.12  (deftest defgeneric-method-combination.+.12

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

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