1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: Listener functions for XLUnit
8 ;;;; *************************************************************************
12 (defclass test-listener ()
15 (defmethod start-test ((obj test-listener) tcase)
16 (declare (ignore tcase)))
18 (defmethod end-test ((obj test-listener) tcase)
19 (declare (ignore tcase)))