X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fclasses.lisp;fp=src%2Fclasses.lisp;h=cc0a21ddc1ef3a0ae8d42cd1a8a8bc147536516f;hb=ba63acfa943d02a524ae0a81ffd59477f1ccd6b3;hp=7404c4961c4c4ac996c373bdd616e9aab19d6433;hpb=7b3b2cf51c6213e6a097ff049594977e1b1deae3;p=fiveam.git

diff --git a/src/classes.lisp b/src/classes.lisp
index 7404c49..cc0a21d 100644
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -11,11 +11,11 @@
                :documentation "The list of AND, OR, NOT forms specifying when to run this test.")
    (status :initarg :status :accessor status :initform :unknown
            :documentation "A symbol specifying the current status
-	   of this test. Either: T - this test (and all its
-	   dependencies, have passed. NIL - this test
-	   failed (either it failed or its dependecies weren't
-	   met. :circular this test has a circular dependency
-	   and was skipped. Or :depends-not-satisfied or :resolving")
+           of this test. Either: T - this test (and all its
+           dependencies, have passed. NIL - this test
+           failed (either it failed or its dependecies weren't
+           met. :circular this test has a circular dependency
+           and was skipped. Or :depends-not-satisfied or :resolving")
    (profiling-info :accessor profiling-info
                    :initform nil
                    :documentation "An object representing how
@@ -39,8 +39,8 @@
 (defclass test-suite (testable-object)
   ((tests :accessor tests :initform (make-hash-table :test 'eql)
           :documentation "The hash table mapping names to test
-	  objects in this suite. The values in this hash table
-	  can be either test-cases or other test-suites.")
+          objects in this suite. The values in this hash table
+          can be either test-cases or other test-suites.")
    (fixture :accessor fixture :initform nil :initarg :fixture
             :documentation "FIXTURE to use, by default, for tests in
             this suite."))