From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 11 Nov 2003 22:41:57 +0000 (+0000)
Subject: r8164: fixed improved building
X-Git-Tag: v1.6.1~152
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=5e2e0ef7bdffa859aff33e6a60a87e421f8f81bd;hp=a90b2382e88626ea8ac6a0e470fdb515f0351a0a;p=uffi.git

r8164: fixed improved building
---

diff --git a/doc/html.tar.gz b/doc/html.tar.gz
index f25d6b2..b0c2406 100644
Binary files a/doc/html.tar.gz and b/doc/html.tar.gz differ
diff --git a/uffi-tests.asd b/uffi-tests.asd
index 18af90b..d68d1b0 100644
--- a/uffi-tests.asd
+++ b/uffi-tests.asd
@@ -14,22 +14,21 @@
   (: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*)))))