;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: clsql.system,v 1.18 2002/08/01 03:06:26 kevin Exp $
+;;;; $Id: clsql.system,v 1.20 2002/09/06 10:56:13 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(in-package :make)
-;; For use with non-Debian installations
-(let ((helper-pathname (make-pathname :name "set-cl-library" :type "cl"
+#-clsql-base
+(let ((path (make-pathname :name "clsql-base" :type "system"
:defaults *load-truename*)))
- (when (probe-file helper-pathname)
- (load helper-pathname)))
+ (when (probe-file path)
+ (load path)))
;;; System definitions
(defsystem :clsql
- :source-pathname "cl-library:clsql;"
- :source-extension "cl"
- :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)
- :finally-do
- (pushnew :clsql cl:*features*)
- )
+ :source-pathname #.(format nil "~A:clsql;"
+ #+common-lisp-controller "cl-library"
+ #-common-lisp-controller "clsql")
+ :source-extension "cl"
+ :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)
+ :finally-do
+ (pushnew :clsql cl:*features*)
+ )