/[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.3 by pfdietz, Thu May 22 00:15:35 2003 UTC revision 1.4 by pfdietz, Wed May 28 13:33:30 2003 UTC
# Line 56  Line 56 
56    (no-app-meth-gf-04 'a 'b 'c 'd)    (no-app-meth-gf-04 'a 'b 'c 'd)
57    (a b c d))    (a b c d))
58    
59    (defparameter *no-app-meth-gf-05*
60      (defgeneric no-app-meth-gf-05 (x &key)
61        (:method ((x symbol) &key) x)))
62    
63    (defmethod no-applicable-method ((x (eql *no-app-meth-gf-05*)) &rest args)
64      (and (eql x *no-app-meth-gf-05*)
65           (copy-list args)))
66    
67    (deftest no-applicable-method.8
68      (no-app-meth-gf-05 'a)
69      a)
70    
71    ;;; From section 7.6.6: 'Calling no-applicable-method takes precedence
72    ;;;   over checking for acceptable keyword arguments'
73    
74    (deftest no-applicable-method.9
75      (no-app-meth-gf-05 10 :nonsense t)
76      (10 :nonsense t))

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