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

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