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

Diff of /gcl/ansi-tests/defgeneric-method-combination-append.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 7  Line 7 
7    
8  (declaim (special *x*))  (declaim (special *x*))
9    
10    (compile-and-load "defgeneric-method-combination-aux.lsp")
11    
12  (deftest defgeneric-method-combination.append.1  (deftest defgeneric-method-combination.append.1
13    (let ((*x* nil)    (let ((*x* nil)
14          (fn          (fn
# Line 170  Line 172 
172    :error)    :error)
173    
174  (deftest defgeneric-method-combination.append.10  (deftest defgeneric-method-combination.append.10
175    (handler-case    (progn
176     (eval '(defgeneric dg-mc.append.10 (x)      (eval '(defgeneric dg-mc.append.10 (x)
177              (:method-combination append)                (:method-combination append)
178              (:method ((x t)) '(a))))                (:method ((x t)) '(a))))
179     (error () :error))      (handler-case
180         (dg-mc.append.10 'x)
181         (error () :error)))
182    :error)    :error)
183    
184  (deftest defgeneric-method-combination.append.11  (deftest defgeneric-method-combination.append.11
185    (handler-case    (progn
186     (eval '(defgeneric dg-mc.append.11 (x)      (eval '(defgeneric dg-mc.append.11 (x)
187              (:method-combination append)               (:method-combination append)
188              (:method nonsense ((x t)) '(a))))               (:method nonsense ((x t)) '(a))))
189     (error () :error))      (handler-case
190         (dg-mc.append.11 0)
191         (error () :error)))
192    :error)    :error)
193    
194  (deftest defgeneric-method-combination.append.12  (deftest defgeneric-method-combination.append.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