X-Git-Url: http://git.kpe.io/?p=xlunit.git;a=blobdiff_plain;f=result.lisp;h=e601ec64ac8a89671f861c5da0cef490579c6539;hp=57ceba31def2df3f9373202cfb578f9b63f8974e;hb=53c699a7ed91f78c0e31b7bbd7deda671ca9df05;hpb=8133177de9c5d202520bd83b5e797ef7a39942ad

diff --git a/result.lisp b/result.lisp
index 57ceba3..e601ec6 100644
--- a/result.lisp
+++ b/result.lisp
@@ -2,7 +2,7 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; ID:      $Id: result.lisp,v 1.2 2003/08/04 12:16:13 kevin Exp $
+;;;; ID:      $Id: result.lisp,v 1.3 2003/08/04 12:28:46 kevin Exp $
 ;;;; Purpose:  Result functions for XLUnit
 ;;;;
 ;;;; *************************************************************************
@@ -24,7 +24,7 @@
   ((failed-test :initarg :failed-test :reader failed-test)
    (thrown-condition :initarg :thrown-condition
 		     :reader thrown-condition))
-  (:documention "Stored failures/errors in test-result slots"))
+  (:documentation "Stored failures/errors in test-result slots"))
 
 (defun make-test-failure (test condition)
   (make-instance 'test-failure :failed-test test