X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Frandom.lisp;h=6b2059abdc0424299bb047120dd86cae571b0b42;hb=b76fc6a27dc451c7f2f88eb9a1f028228530af6c;hp=446f7109b2bd4dcbb7b62fdf215c75b63a9848b0;hpb=ebf1d93971db80410bb860338eb6f79b9de68b23;p=fiveam.git

diff --git a/src/random.lisp b/src/random.lisp
index 446f710..6b2059a 100644
--- 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)
   ())