From 71548856f46f8a0c5b171d3ee37c1e2d7b070686 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Mon, 3 Dec 2012 21:37:13 +0100 Subject: [PATCH] Typo. --- src/suite.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/suite.lisp b/src/suite.lisp index 1fbd70a..345a090 100644 --- a/src/suite.lisp +++ b/src/suite.lisp @@ -53,7 +53,7 @@ def-test) to pass to tests in this suite." (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 its :IN some other suite, remove it. (dolist (s (list-all-suites)) (when (gethash test-name (tests s)) (remhash test-name (tests s)))))) -- 1.7.10.4