projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9329: * db-odbc/*.lisp: Add a layer of indirection to foreign-type
[clsql.git]
/
clsql.asd
diff --git
a/clsql.asd
b/clsql.asd
index f74e884b009bea3b7a8fb927f83794bee750a226..ebfefa2d0494fd29817fed9db138950378a0b6f5 100644
(file)
--- a/
clsql.asd
+++ b/
clsql.asd
@@
-14,7
+14,11
@@
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(asdf:defsystem #:clsql
+(in-package #:cl-user)
+(defpackage #:clsql-system (:use #:asdf #:cl))
+(in-package #:clsql-system)
+
+(defsystem #:clsql
:name "CLSQL"
:author ""
:maintainer ""
:name "CLSQL"
:author ""
:maintainer ""
@@
-35,14
+39,15
@@
a functional and an object oriented interface."
(:file "kmr-mop" :depends-on ("package"))))
(:module :core
:pathname ""
(: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 "operations" :depends-on ("classes"))
- (:file "syntax"))
+ (:file "syntax"
:depends-on ("operations")
))
:depends-on (:package))
(:module :functional
:pathname ""
:components ((:file "sql")
:depends-on (:package))
(:module :functional
:pathname ""
:components ((:file "sql")
- (:file "table"))
+ (:file "table"
:depends-on ("sql")
))
:depends-on (:core))
(:module :object
:pathname ""
:depends-on (:core))
(:module :object
:pathname ""
@@
-50,3
+55,7
@@
a functional and an object oriented interface."
(:file "objects" :depends-on ("metaclasses")))
:depends-on (:functional))))))
(:file "objects" :depends-on ("metaclasses")))
: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))