From abe8ae3e856b48ecaeaa6261a7c233ccd32b82a2 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 21 Feb 2005 12:44:25 +0000
Subject: [PATCH] TRUENAME will fail if the file does not exist

---
 src/lsp/ffi.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp
index 56ca23456..722e9367b 100644
--- a/src/lsp/ffi.lsp
+++ b/src/lsp/ffi.lsp
@@ -579,7 +579,7 @@
     (dolist (p directories)
       (dolist (n names)
         (dolist (e types)
-	  (let ((full-path (truename (make-pathname
+	  (let ((full-path (probe-file (make-pathname
 					  :device d
 	                                  :directory (etypecase p
 					               (pathname (pathname-directory p))
@@ -587,7 +587,7 @@
 						       (list p))
 					  :name n
 					  :type e))))
-	    (when (probe-file full-path)
+	    (when full-path
 	      (return-from find-foreign-library full-path))
 	  )))))
   nil)