r4659: *** empty log message ***

[hyperobject.git] / hyperobject.asd

diff --git a/hyperobject.asd b/hyperobject.asd
index 2c93e03bc913273d0591d648108d39956a023ebd..3c47f1687768688683c66892321dabefae02cb6c 100644 (file)
--- a/hyperobject.asd
+++ b/hyperobject.asd
@@ -7,21 +7,43 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: hyperobject.asd,v 1.4 2002/11/22 10:49:24 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)
 
-(defsystem :hyperobject
-    :perform (load-op :after (op hyperobject)
-                     (pushnew :hyperobject cl:*features*))
-    :components 
-    ((:file "package")
-     #+(or allegro lispworks)
-     (:file "hyperobject-mop" :depends-on ("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))
 
+(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")))