Typo.

diff --git a/src/suite.lisp b/src/suite.lisp
index a74f7ed..b3b321d 100644 (file)
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -48,7 +48,7 @@ will overrwrite any existing suite named `NAME`."
 
 (defun remove-from-suites (test-name)
   (when (get-test test-name)
-    ;; if this suite alruady exists, and its :IN some other suite, remove it.
+    ;; if this suite already exists, and it's :IN some other suite, remove it.
     (dolist (s (list-all-suites))
       (when (gethash test-name (tests s))
         (remhash test-name (tests s))))))