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

Diff of /gcl/ansi-tests/defgeneric-method-combination-list.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 170  Line 170 
170    :error)    :error)
171    
172  (deftest defgeneric-method-combination.list.10  (deftest defgeneric-method-combination.list.10
173    (handler-case    (progn
174     (eval '(defgeneric dg-mc.list.10 (x)      (eval '(defgeneric dg-mc.list.10 (x)
175              (:method-combination list)               (:method-combination list)
176              (:method ((x t)) (list 'a))))               (:method ((x t)) (list 'a))))
177     (error () :error))      (handler-case
178         (dg-mc.list.10 'a)
179         (error () :error)))
180    :error)    :error)
181    
182  (deftest defgeneric-method-combination.list.11  (deftest defgeneric-method-combination.list.11
183    (handler-case    (progn
184     (eval '(defgeneric dg-mc.list.11 (x)      (eval '(defgeneric dg-mc.list.11 (x)
185              (:method-combination list)               (:method-combination list)
186              (:method nonsense ((x t)) (list 'a))))               (:method nonsense ((x t)) (list 'a))))
187     (error () :error))      (handler-case
188         (dg-mc.list.11 0)
189         (error () :error)))
190    :error)    :error)
191    
192  (deftest defgeneric-method-combination.list.12  (deftest defgeneric-method-combination.list.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