;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: clsql-classic.asd
+;;;; Name: clsql.asd
;;;; Purpose: System definition for CLSQL-CLASSIC
;;;; Authors: Marcus Pearce and Kevin M. Rosenberg
;;;; Created: March 2004
;;;;
-;;;; $Id: clsql-classic.asd 8847 2004-04-07 14:38:14Z kevin $
+;;;; $Id$
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(asdf:defsystem #:clsql-usql
- :name "CLSQL-USQL"
+(in-package #:cl-user)
+(defpackage #:clsql-system (:use #:asdf #:cl))
+(in-package #:clsql-system)
+
+(defsystem #:clsql
+ :name "CLSQL"
:author ""
:maintainer ""
:version ""
(:file "kmr-mop" :depends-on ("package"))))
(:module :core
:pathname ""
- :components ((:file "classes")
+ :components ((:file "generics")
+ (:file "classes" :depends-on ("generics"))
(:file "operations" :depends-on ("classes"))
(:file "syntax"))
:depends-on (:package))
(:module :functional
:pathname ""
:components ((:file "sql")
- (:file "table"))
+ (:file "table" :depends-on ("sql")))
:depends-on (:core))
(:module :object
:pathname ""
:components ((:file "metaclasses")
- (:file "objects" :depends-on ("metaclasses")))
+ (:file "objects" :depends-on ("metaclasses"))
+ (:file "relations" :depends-on ("objects")))
:depends-on (:functional))))))
+
+(defmethod perform ((o test-op) (c (eql (find-system 'clsql))))
+ (operate 'load-op 'clsql-tests)
+ (operate 'test-op 'clsql-tests :force t))