Commit a1875755 authored by pfdietz's avatar pfdietz

Removed two NO-NEXT-METHOD tests on :around methods. Apparently these methods...

Removed two NO-NEXT-METHOD tests on :around methods.  Apparently these methods can't ever cause no-next-method to be invoked, since there must be an applicable primary method.
parent 0b874fd3
......@@ -23,24 +23,24 @@
(error () :good))
:good)
(defparameter *no-next-meth-gf-02*
(defgeneric no-next-meth-gf-02 (x)))
(defmethod no-next-meth-gf-02 ((x integer))
(call-next-method))
(defmethod no-next-meth-gf-02 :around ((x character))
(call-next-method))
(defmethod no-next-method ((gf (eql *no-next-meth-gf-02*))
(method standard-method)
&rest args)
(values args :aborted))
(deftest no-next-method.3
(no-next-meth-gf-02 10)
(10) :aborted)
(deftest no-next-method.4
(no-next-meth-gf-02 #\a)
(#\a) :aborted)
;;; (defparameter *no-next-meth-gf-02*
;;; (defgeneric no-next-meth-gf-02 (x)))
;;;
;;; (defmethod no-next-meth-gf-02 ((x integer))
;;; (call-next-method))
;;;
;;; (defmethod no-next-meth-gf-02 :around ((x character))
;;; (call-next-method))
;;;
;;; (defmethod no-next-method ((gf (eql *no-next-meth-gf-02*))
;;; (method standard-method)
;;; &rest args)
;;; (values (copy-list args) :aborted))
;;;
;;; (deftest no-next-method.3
;;; (no-next-meth-gf-02 10)
;;; (10) :aborted)
;;;
;;; (deftest no-next-method.4
;;; (no-next-meth-gf-02 #\a)
;;; (#\a) :aborted)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment