-(mk:defsystem :clsql-base
- :source-pathname "CL-LIBRARY:clsql;base;"
- :source-extension "cl"
- :binary-pathname "CL-LIBRARY:clsql;base;bin;"
- :components ((:file "cmucl-compat")
- (:file "package")
- (:file "utils" :depends-on ("package"))
- (:file "classes" :depends-on ("package"))
- (:file "conditions" :depends-on ("classes"))
- (:file "db-interface" :depends-on ("conditions"))
- (:file "initialize" :depends-on ("db-interface")))
- :finally-do
- (pushnew :clsql cl:*features*)
- )
+(defsystem :clsql-base
+ :source-pathname #.(format nil "~A:clsql-base;" +clsql-logical-host+)
+ :source-extension "cl"
+ :components ((:file "cmucl-compat")
+ (:file "package")
+ (:file "utils" :depends-on ("package"))
+ (:file "classes" :depends-on ("package"))
+ (:file "conditions" :depends-on ("classes"))
+ (:file "db-interface" :depends-on ("conditions"))
+ (:file "initialize" :depends-on ("db-interface")))
+ :finally-do
+ (pushnew :clsql-base cl:*features*)
+ )