;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: hyperobject.asd,v 1.2 2002/11/03 20:10:48 kevin Exp $
+;;;; $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 cmu sbcl scl)
-(defsystem :hyperobject
- :perform (load-op :after (op hyperobject)
- (pushnew :hyperobject cl:*features*))
- :components
- ((:file "package")
- (:file "hyperobject" :depends-on ("package")))
- :depends-on (:kmrcl))
+#+(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))
-#+(or allegro lispworks cmu sbcl scl)
-(when (ignore-errors (find-class 'load-compiled-op))
- (defmethod perform :after ((op load-compiled-op)
- (c (eql (find-system :hyperobject))))
- (pushnew :hyperobject cl:*features*)))
+(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")))