;;;; *************************************************************************
;;;; 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
;;;;
;;;; *************************************************************************
((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