- :perform (load-op :after (op hyperobject)
- (pushnew :hyperobject cl:*features*))
- :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))
+ :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"))
+ )
+ :depends-on (:kmrcl :clsql))
+
+#+(or allegro lispworks sbcl cmu scl openmcl)
+(defmethod perform ((o test-op) (c (eql (find-system :hyperobject))))
+ (oos 'load-op 'hyperobject-tests)
+ (oos 'test-op 'hyperobject-tests))
+