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

Diff of /gcl/ansi-tests/next-method-p.lsp

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

revision 1.1 by pfdietz, Sat May 31 15:27:31 2003 UTC revision 1.2 by pfdietz, Sun Jul 27 15:30:39 2003 UTC
# Line 36  Line 36 
36    
37  (defgeneric nmp-gf-03 (x y)  (defgeneric nmp-gf-03 (x y)
38    (:method ((x integer) (y symbol)) #'next-method-p)    (:method ((x integer) (y symbol)) #'next-method-p)
39    (:method ((x t) (y (eql nil))) 'foo))    (:method ((x t) (y (eql nil))) (constantly 1)))
40    
41  (deftest next-method-p.6  (deftest next-method-p.6
42    (notnot-mv (funcall (nmp-gf-03 10 nil)))    (notnot-mv (funcall (the function (nmp-gf-03 10 nil))))
43    t)    t)
44        
45  (deftest next-method-p.7  (deftest next-method-p.7
# Line 47  Line 47 
47    nil)    nil)
48    
49  (defmethod nmp-gf-04 ((x integer) (y symbol)) #'next-method-p)  (defmethod nmp-gf-04 ((x integer) (y symbol)) #'next-method-p)
50  (defmethod nmp-gf-04 ((x t) (y (eql nil))) 'foo)  (defmethod nmp-gf-04 ((x t) (y (eql nil))) (constantly 2))
51    
52  (deftest next-method-p.8  (deftest next-method-p.8
53    (notnot-mv (funcall (nmp-gf-04 10 nil)))    (notnot-mv (funcall (the function (nmp-gf-04 10 nil))))
54    t)    t)
55        
56  (deftest next-method-p.9  (deftest next-method-p.9

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26