;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Sep 2002
;;;;
-;;;; $Id: tester.asd,v 1.1 2002/09/20 07:34:06 kevin Exp $
+;;;; $Id: tester.asd,v 1.4 2002/11/08 16:51:40 kevin Exp $
;;;;
;;;; This file, part of cl-tester, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(in-package :asdf)
+#-allegro
(defsystem :tester
:name "cl-tester"
:author "Kevin Layer, Franz, Inc"
:components
((:file "tester")))
-(defmethod source-file-type ((c cl-source-file) (s (eql (find-system 'tester))))
- "cl")
-
-(when (ignore-errors (find-class 'load-compiled-op))
- (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :tester))))
- (pushnew :tester cl:*features*)))