(:use #:asdf #:cl))
(in-package #:uffi-tests-system)
-(defvar *asd-file-dir* (pathname-directory *load-truename*))
-(defvar *library-file-dir* (append *asd-file-dir* "tests"))
+(defvar *library-file-dir* (append (pathname-directory *load-truename*)
+ (list "tests")))
(defclass uffi-test-source-file (c-source-file)
())
(defmethod output-files ((o compile-op) (c uffi-test-source-file))
(let ((found (some #'(lambda (dir)
- (probe-file (make-pathname :directory d
+ (probe-file (make-pathname :directory dir
:name (component-name c)
:type "so")))
- '((:absolute "usr" "lib" "uffi")
- *asd-file-dir*))))
- (if found
- (list searched)
- (list (make-pathname :name (component-name c)
+ '((:absolute "usr" "lib" "uffi")))))
+ (list (if found
+ found
+ (make-pathname :name (component-name c)
:type "so"
:directory *library-file-dir*)))))