X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=clsql.asd;h=06607abda4e2a6112bba8cb3bf40bcdd1e1689b2;hp=d588c91469fb1037f5eb8aba35cbd43fc49411ca;hb=d9b90caa2f0450deffff461b70294bc741faae7f;hpb=9f51f67ab4f038fef0cc9f84bb9db2f4072d8a9e diff --git a/clsql.asd b/clsql.asd index d588c91..06607ab 100644 --- a/clsql.asd +++ b/clsql.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: clsql.asd,v 1.6 2002/09/06 11:08:19 kevin Exp $ +;;;; $Id: clsql.asd,v 1.11 2002/09/20 06:37:39 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -16,36 +16,38 @@ ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* -(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))) - (in-package :asdf) -#-clsql-base -(let ((path (make-pathname :name "clsql-base" :type "system" - :defaults *load-truename*))) - (when (probe-file path) - (load path))) - -;;; System definitions - - -(defsystem clsql - :pathname #.(format nil "~A:clsql;" - #+common-lisp-controller "cl-library" - #-common-lisp-controller "clsql") +(defsystem :clsql + :name "cl-sql" + :author "Kevin M. Rosenberg " + :version "0.9.2" + :maintainer "Kevin M. Rosenberg " + :licence "Lessor Lisp General Public License" + :description "Common Lisp SQL Interface Library" + :long-description "cl-sql package provides the high-level interface for the CLSQL system." + :perform (load-op :after (op clsql) (pushnew :clsql cl:*features*)) - :components ((:file "package") - (:file "pool" :depends-on ("package")) - (:file "loop-extension") - (:file "sql" :depends-on ("pool")) - (:file "transactions" :depends-on ("sql")) - (:file "functional" :depends-on ("sql")) - (:file "usql" :depends-on ("sql"))) + :components + ((:module :sql + :components + ((:file "package") + (:file "pool" :depends-on ("package")) + (:file "loop-extension") + (:file "sql" :depends-on ("pool")) + (:file "transactions" :depends-on ("sql")) + (:file "functional" :depends-on ("sql")) + (:file "usql" :depends-on ("sql"))))) :depends-on (:clsql-base) ) (defmethod source-file-type ((c cl-source-file) - (s (eql (find-system 'clsql)))) + (s (eql (find-system :clsql)))) "cl") + +(when (ignore-errors (find-class 'load-compiled-op)) + (defmethod perform :after ((op load-compiled-op) (c (eql (find-system :clsql)))) + (pushnew :clsql cl:*features*))) +