;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name:          hyperobject.asd
;;;; Purpose:       ASDF system definition for hyperobject package
;;;; Programmer:    Kevin M. Rosenberg
;;;; Date Started:  Apr 2000
;;;;
;;;; $Id: hyperobject.asd,v 1.21 2003/04/28 16:07:11 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;; *************************************************************************

(in-package :asdf)

#+(or allegro lispworks sbcl cmu scl)
(defsystem hyperobject 
  :name "cl-hyperobject"
  :author "Kevin M. Rosenberg <kevin@rosenberg.net>"
  :version "2.6.x"
  :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
  :licence "BSD-like License"

  :components 
  ((:file "package")
   (:file "metaclass" :depends-on ("package"))
   (:file "mop" :depends-on ("metaclass"))
   (:file "rules" :depends-on ("mop"))
   (:file "connect" :depends-on ("mop"))
   (:file "sql" :depends-on ("connect"))
   (:file "views" :depends-on ("mop"))
   (:file "base-class" :depends-on ("views" "sql" "rules"))
   (:file "wrapper" :depends-on ("base-class"))
   )
  :depends-on (:kmrcl :clsql))

(defmethod perform ((o test-op) (c (eql (find-system :hyperobject))))
  (oos 'load-op 'hyperobject-tests)
  (oos 'test-op 'hyperobject-tests))

(defsystem hyperobject-tests
    :depends-on (rt)
    :components ((:file "tests")))

(defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl-tests))))
  (or (funcall (intern (symbol-name '#:do-tests)
		       (find-package '#:sb)))
      (error "test-op failed")))