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

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

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

revision 1.1 by pfdietz, Sun May 11 21:03:54 2003 UTC revision 1.2 by pfdietz, Sun May 11 22:24:51 2003 UTC
# Line 23  Line 23 
23                  (error () :good))                  (error () :good))
24    :good)    :good)
25    
26  (defparameter *no-next-meth-gf-02*  ;;; (defparameter *no-next-meth-gf-02*
27    (defgeneric no-next-meth-gf-02 (x)))  ;;;   (defgeneric no-next-meth-gf-02 (x)))
28    ;;;
29  (defmethod no-next-meth-gf-02 ((x integer))  ;;; (defmethod no-next-meth-gf-02 ((x integer))
30    (call-next-method))  ;;;   (call-next-method))
31    ;;;
32  (defmethod no-next-meth-gf-02 :around ((x character))  ;;; (defmethod no-next-meth-gf-02 :around ((x character))
33    (call-next-method))  ;;;   (call-next-method))
34    ;;;
35  (defmethod no-next-method ((gf (eql *no-next-meth-gf-02*))  ;;; (defmethod no-next-method ((gf (eql *no-next-meth-gf-02*))
36                             (method standard-method)  ;;;                        (method standard-method)
37                             &rest args)  ;;;                        &rest args)
38    (values args :aborted))  ;;;   (values (copy-list args) :aborted))
39    ;;;
40  (deftest no-next-method.3  ;;; (deftest no-next-method.3
41    (no-next-meth-gf-02 10)  ;;;   (no-next-meth-gf-02 10)
42    (10) :aborted)  ;;;   (10) :aborted)
43    ;;;
44  (deftest no-next-method.4  ;;; (deftest no-next-method.4
45    (no-next-meth-gf-02 #\a)  ;;;   (no-next-meth-gf-02 #\a)
46    (#\a) :aborted)  ;;;   (#\a) :aborted)

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