1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; ID: $Id: listener.lisp,v 1.1 2003/08/04 16:13:58 kevin Exp $
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)))