From 0e2c3b363dbbf2ae08c3f60c61fd59de0dce67fd Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Tue, 28 Jun 2011 19:32:43 +0200
Subject: [PATCH] Minor changes in the function that translate lisp component
 names to compiler flags: they are now absolute pathnames.

---
 src/cmp/cmpmain.lsp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index b19c3a8d3..87eaaa1b9 100755
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -354,7 +354,12 @@ filesystem or in the database of ASDF modules."
              (find-archive (system)
                  (or (existing-system-output system :library)
                      (existing-system-output system :shared-library)))
-             (fallback () (format nil #-msvc "-l~A" #+msvc "~A.lib" (string-downcase library))))
+             (fallback ()
+		 (translate-logical-pathname
+		  (merge-pathnames
+		   "SYS:"
+		   (compile-file-pathname (string-downcase library)
+					  :type :library)))))
       (or
        #-ecl-min
        (and asdf
@@ -517,6 +522,8 @@ List of offending files:~{~%~T~S~}"
     (cmp-delete-file o-name)
     output-name))
 
+(trace builder)
+
 (defun build-fasl (&rest args)
   (apply #'builder :fasl args))