Fix typos.

diff --git a/src/check.lisp b/src/check.lisp
index 12f2256..21f7bf4 100644 (file)
--- a/src/check.lisp
+++ b/src/check.lisp
@@ -121,7 +121,7 @@ REASON-ARGS is provided, is generated based on the form of TEST:
  (predicate value) - Means that we want to ensure that VALUE
  satisfies PREDICATE.
 
- Wrapping the TEST form in a NOT simply preducse a negated reason
+ Wrapping the TEST form in a NOT simply produces a negated reason
  string."
   (assert (listp test)
           (test)

diff --git a/src/random.lisp b/src/random.lisp
index 446f710..6b2059a 100644 (file)
--- a/src/random.lisp
+++ b/src/random.lisp
@@ -144,7 +144,7 @@ Examples:
   (:method ((object t)) nil))
 
 (defmethod reason ((result for-all-test-failed))
-  (format nil "Falsafiable with ~S" (slot-value result 'failure-values)))
+  (format nil "Falsifiable with ~S" (slot-value result 'failure-values)))
 
 (defclass for-all-test-no-tests (test-failure for-all-test-result)
   ())

diff --git a/src/run.lisp b/src/run.lisp
index 2f9d363..417acd8 100644 (file)
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -221,7 +221,7 @@ run."))
 ;;;; ** Public entry points
 
 (defun run! (&optional (test-spec *suite*))
-  "Equivalent to (explain (run TEST-SPEC))."
+  "Equivalent to (explain! (run TEST-SPEC))."
   (explain! (run test-spec)))
 
 (defun explain! (result-list)

diff --git a/src/suite.lisp b/src/suite.lisp
index a71c6eb..972e1f6 100644 (file)
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -79,7 +79,7 @@ See also: DEF-SUITE *SUITE*"
          (progn
            (when ,fail-on-error
              (cerror "Create a new suite named ~A."
-                     "Unkown suite ~A." ',suite-name))
+                     "Unknown suite ~A." ',suite-name))
            (setf (get-test ',suite-name) (make-suite ',suite-name :in ',in)
                  *suite* (get-test ',suite-name))))
        ',suite-name)))