/[gcl]/gcl/ansi-tests/find-method.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/find-method.lsp

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

revision 1.3 by pfdietz, Wed Jun 4 03:10:16 2003 UTC revision 1.4 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (defgeneric find-method-gf-01 (x))  (eval-when (:load-toplevel :compile-toplevel :execute)
9  (defparameter *find-method-gf-01-method1*    (report-and-ignore-errors
10    (defmethod find-method-gf-01 ((x integer)) 'a))     (defgeneric find-method-gf-01 (x)))
11  (defparameter *find-method-gf-01-method2*    (report-and-ignore-errors
12    (defmethod find-method-gf-01 ((x rational)) 'b))     (defparameter *find-method-gf-01-method1*
13  (defparameter *find-method-gf-01-method3*       (defmethod find-method-gf-01 ((x integer)) 'a)))
14    (defmethod find-method-gf-01 ((x real)) 'c))    (report-and-ignore-errors
15  (defparameter *find-method-gf-01-method4*     (defparameter *find-method-gf-01-method2*
16    (defmethod find-method-gf-01 ((x t)) 'd))       (defmethod find-method-gf-01 ((x rational)) 'b)))
17      (report-and-ignore-errors
18       (defparameter *find-method-gf-01-method3*
19         (defmethod find-method-gf-01 ((x real)) 'c)))
20      (report-and-ignore-errors
21       (defparameter *find-method-gf-01-method4*
22         (defmethod find-method-gf-01 ((x t)) 'd)))
23      )
24    
25  (deftest find-method.1  (deftest find-method.1
26    (eqt (find-method #'find-method-gf-01 nil (list (find-class 'integer)))    (eqt (find-method #'find-method-gf-01 nil (list (find-class 'integer)))

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