-;; For use with non-Common Lisp Controller installations
-#-common-lisp-controller
-(let ((path (make-pathname :name "set-logical" :type "cl"
- :defaults *load-truename*)))
- (when (probe-file path)
- (load path)
- (set-logical-host-for-pathname
- "clsql"
- (make-pathname :host (pathname-host *load-truename*)
- :device (pathname-device *load-truename*)
- :directory (pathname-directory *load-truename*)))))
+#+(or allegro lispworks cmu sbcl openmcl mcl scl)
+(defsystem :clsql-base
+ :name "cl-sql-base"
+ :author "Kevin M. Rosenberg <kmr@debian.org>"
+ :version "0.9.2"
+ :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
+ :licence "Lessor Lisp General Public License"
+ :description "Common Lisp SQL Base Package"
+ :long-description "cl-sql-base package provides the low-level interface for the database drivers."