X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=clsql-uffi.asd;h=3903eb0df58a7b3f7c1e596e1a4e2c38fcbabca4;hb=8ef3f8059e39bf66e8afddc2cbcd97c7c0710c7c;hp=48372a1cff433b5060ae08a564e0f355c5108045;hpb=17255eb0ed45809a179853e9099d92d26d3717ac;p=clsql.git diff --git a/clsql-uffi.asd b/clsql-uffi.asd index 48372a1..3903eb0 100644 --- a/clsql-uffi.asd +++ b/clsql-uffi.asd @@ -21,8 +21,9 @@ (defpackage clsql-uffi-system (:use #:asdf #:cl)) (in-package clsql-uffi-system) -(defvar *library-file-dir* (append (pathname-directory *load-truename*) - (list "uffi"))) +(defvar *clsql-uffi-library-dir* + (merge-pathnames "uffi/" + (make-pathname :name nil :type nil :defaults *load-truename*))) (defclass clsql-uffi-source-file (c-source-file) ()) @@ -43,7 +44,7 @@ found (make-pathname :name (component-name c) :type library-file-type - :directory *library-file-dir*))))) + :defaults *clsql-uffi-library-dir*))))) (defmethod perform ((o load-op) (c clsql-uffi-source-file)) nil) ;;; library will be loaded by a loader file @@ -57,11 +58,9 @@ (unless (operation-done-p o c) #-(or win32 mswindows) (unless (zerop (run-shell-command - #-freebsd "cd ~A; make" - #+freebsd "cd ~A; gmake" - (namestring (make-pathname :name nil - :type nil - :directory *library-file-dir*)))) + #-(or freebsd netbsd) "cd ~A; make" + #+(or freebsd netbsd) "cd ~A; gmake" + (namestring *clsql-uffi-library-dir*))) (error 'operation-error :component c :operation o)))) (defmethod operation-done-p ((o compile-op) (c clsql-uffi-source-file)) @@ -71,7 +70,7 @@ (find-package '#:uffi)))))) (and (probe-file lib) (probe-file (component-pathname c)) (> (file-write-date lib) (file-write-date (component-pathname c))))))) - + (defsystem clsql-uffi :name "cl-sql-base" :author "Kevin M. Rosenberg " @@ -80,8 +79,8 @@ :description "Common UFFI Helper functions for Common Lisp SQL Interface Library" :long-description "cl-sql-uffi package provides common helper functions using the UFFI for the CLSQL package." - :depends-on (uffi clsql) - + :depends-on (cffi-uffi-compat clsql) + :components ((:module :uffi :components