;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: assert.lisp,v 1.7 2003/08/06 14:15:32 kevin Exp $
+;;;; ID: $Id: assert.lisp,v 1.8 2003/08/06 14:51:01 kevin Exp $
;;;; Purpose: Assert functions for XLUnit
;;;;
;;;; *************************************************************************
(failure-message ,message "Assert false: ~S" ',v)))
(defmacro assert-condition (condition v &optional message)
+
)
(defmacro assert-not-condition (condition v &optional message)