/[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.2 by pfdietz, Sun May 11 21:03:54 2003 UTC revision 1.3 by pfdietz, Thu May 22 00:15:35 2003 UTC
# Line 46  Line 46 
46    :good)    :good)
47    
48  (defparameter *no-app-meth-gf-04*  (defparameter *no-app-meth-gf-04*
49    (defgeneric no-app-meth-gf-04 (x)))    (defgeneric no-app-meth-gf-04 (&rest args)))
50    
51  (defmethod no-applicable-method ((x (eql *no-app-meth-gf-04*)) &rest args)  (defmethod no-applicable-method ((x (eql *no-app-meth-gf-04*)) &rest args)
52    (and (eql x *no-app-meth-gf-04*)    (and (eql x *no-app-meth-gf-04*)
# Line 55  Line 55 
55  (deftest no-applicable-method.7  (deftest no-applicable-method.7
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    

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

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