X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=result.lisp;h=80f411a7aab49ca343251cc9f144af6215cb2bb4;hb=3805d34b1d8dc77f7e0ee527a2490194292dd0fc;hp=66f69ee9d5091a64c932911c40e259936116466c;hpb=b889ac95ba72db60faa35fe08b360aaa33a795ed;p=xlunit.git

diff --git a/result.lisp b/result.lisp
index 66f69ee..80f411a 100644
--- a/result.lisp
+++ b/result.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; ID:      $Id: result.lisp,v 1.8 2003/08/10 07:39:33 kevin Exp $
+;;;; ID:      $Id$
 ;;;; Purpose:  Result functions for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -32,8 +32,8 @@
 (defmethod start-test ((tcase test) (res test-results))
   (incf (run-tests res))
   (mapc (lambda (listener)
-	  (start-test listener tcase)) 
-	(listeners res))
+          (start-test listener tcase))
+        (listeners res))
   res)
 
 (defmethod end-test ((tcase test) (res test-results))
@@ -49,12 +49,12 @@
 (defclass test-failure ()
   ((failed-test :initarg :failed-test :reader failed-test)
    (thrown-condition :initarg :thrown-condition
-		     :reader thrown-condition))
+                     :reader thrown-condition))
   (:documentation "Stored failures/errors in test-results slots"))
 
 (defun make-test-failure (test condition)
   (make-instance 'test-failure :failed-test test
-		 :thrown-condition condition))
+                 :thrown-condition condition))
 
 (defmethod is-failure ((failure test-failure))
   "Returns T if a failure was a test-failure condition"
@@ -63,9 +63,9 @@
 (defmethod print-object ((obj test-failure) stream)
   (print-unreadable-object (obj stream :type t :identity nil)
     (format stream "~A: " (failed-test obj))
-    (apply #'format stream 
-	   (simple-condition-format-control (thrown-condition obj))
-	   (simple-condition-format-arguments (thrown-condition obj)))))
+    (apply #'format stream
+           (simple-condition-format-control (thrown-condition obj))
+           (simple-condition-format-arguments (thrown-condition obj)))))
 
 (defmethod was-successful ((result test-results))
   "Returns T if a result has no failures or errors"
@@ -79,13 +79,13 @@
 (defmethod add-error ((ob test-results) (tcase test-case) condition)
     (push (make-test-failure tcase condition) (errors ob))
     (mapc #'(lambda (single-listener)
-	      (add-error single-listener tcase condition))
-	  (listeners ob)))
+              (add-error single-listener tcase condition))
+          (listeners ob)))
 
 
 (defmethod add-failure ((ob test-results) (tcase test-case) condition)
   (push (make-test-failure tcase condition) (failures ob))
   (mapc #'(lambda (single-listener)
-	    (add-failure single-listener tcase condition))
-	(listeners ob)))
+            (add-failure single-listener tcase condition))
+        (listeners ob)))