From: Thomas M. Hermann <thomas.m.hermann@odonata-research.com>
Date: Tue, 2 Apr 2013 21:41:55 +0000 (-0500)
Subject: Use a function instead of a generic function to generate the failure instance.
X-Git-Tag: Version-1.0.0~10
X-Git-Url: https://repo.or.cz/w/lisp-unit.git/commitdiff_plain/f2fad063023e1e4f28bdd6a267534afc56bdf5f4

Use a function instead of a generic function to generate the failure instance.
---

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index 449ffb9..3c5369b 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -435,7 +435,7 @@ assertion.")
   (:documentation
    "Failure details of the assertion."))
 
-(defmethod record-failure (class form actual expected extras test)
+(defun %record-failure (class form actual expected extras test)
   "Return an instance of the failure result."
   (make-instance class
                  :form form
@@ -458,7 +458,7 @@ assertion.")
 (defmethod record-failure ((type (eql :equal))
                            form actual expected extras test)
   "Return an instance of an equal failure result."
-  (call-next-method 'equal-result form actual expected extras test))
+  (%record-failure 'equal-result form actual expected extras test))
 
 (defclass error-result (failure-result)
   ()
@@ -475,7 +475,7 @@ assertion.")
 (defmethod record-failure ((type (eql :error))
                            form actual expected extras test)
   "Return an instance of an error failure result."
-  (call-next-method 'error-result form actual expected extras test))
+  (%record-failure 'error-result form actual expected extras test))
 
 (defclass macro-result (failure-result)
   ()
@@ -508,7 +508,7 @@ assertion.")
 (defmethod record-failure ((type (eql :macro))
                            form actual expected extras test)
   "Return an instance of a macro failure result."
-  (call-next-method 'macro-result form actual expected extras test))
+  (%record-failure 'macro-result form actual expected extras test))
 
 (defclass boolean-result (failure-result)
   ()
@@ -523,7 +523,7 @@ assertion.")
 (defmethod record-failure ((type (eql :result))
                            form actual expected extras test)
   "Return an instance of a boolean failure result."
-  (call-next-method 'boolean-result form actual expected extras test))
+  (%record-failure 'boolean-result form actual expected extras test))
 
 (defclass output-result (failure-result)
   ()
@@ -540,7 +540,7 @@ assertion.")
 (defmethod record-failure ((type (eql :output))
                            form actual expected extras test)
   "Return an instance of an output failure result."
-  (call-next-method 'output-result form actual expected extras test))
+  (%record-failure 'output-result form actual expected extras test))
 
 (defun internal-assert
        (type form code-thunk expected-thunk extras test)