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

Diff of /gcl/ansi-tests/no-applicable-method.lsp

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

revision 1.1 by pfdietz, Sun May 11 18:54:47 2003 UTC revision 1.2 by pfdietz, Sun May 11 21:03:54 2003 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
 (deftest no-applicable-method.error.1  
   (classify-error (no-applicable-method))  
   program-error)  
   
8  (defgeneric no-app-meth-gf-01 (x))  (defgeneric no-app-meth-gf-01 (x))
9    
10  (deftest no-applicable-method.2  (deftest no-applicable-method.2
# Line 48  Line 44 
44  (deftest no-applicable-method.6  (deftest no-applicable-method.6
45    (no-app-meth-gf-03 100000000000000000)    (no-app-meth-gf-03 100000000000000000)
46    :good)    :good)
47    
48    (defparameter *no-app-meth-gf-04*
49      (defgeneric no-app-meth-gf-04 (x)))
50    
51    (defmethod no-applicable-method ((x (eql *no-app-meth-gf-04*)) &rest args)
52      (and (eql x *no-app-meth-gf-04*)
53           (copy-list args)))
54    
55    (deftest no-applicable-method.7
56      (no-app-meth-gf-04 'a 'b 'c 'd)
57      (a b c d))

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