+ (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*)))))
+
+(defconstant +clsql-logical-host+
+ #+common-lisp-controller "cl-library"
+ #-common-lisp-controller "clsql"
+ "Logical hostname for loading system")