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

Diff of /gcl/ansi-tests/defgeneric-method-combination-progn.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 244  Line 244 
244    :error)    :error)
245    
246  (deftest defgeneric-method-combination.progn.10  (deftest defgeneric-method-combination.progn.10
247    (handler-case    (progn
248     (eval '(defgeneric dg-mc.progn.10 (x)      (eval '(defgeneric dg-mc.progn.10 (x)
249              (:method-combination progn)               (:method-combination progn)
250              (:method ((x t)) 0)))               (:method ((x t)) 0)))
251     (error () :error))      (handler-case
252         (dg-mc.progn.10 'a)
253         (error () :error)))
254    :error)    :error)
255    
256  (deftest defgeneric-method-combination.progn.11  (deftest defgeneric-method-combination.progn.11
257    (handler-case    (progn
258     (eval '(defgeneric dg-mc.progn.11 (x)      (eval '(defgeneric dg-mc.progn.11 (x)
259              (:method-combination progn)               (:method-combination progn)
260              (:method nonsense ((x t)) 0)))               (:method nonsense ((x t)) 0)))
261     (error () :error))      (handler-case
262         (dg-mc.progn.11 0)
263         (error () :error)))
264    :error)    :error)
265    
266  (deftest defgeneric-method-combination.progn.12  (deftest defgeneric-method-combination.progn.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