Minor changes in the function that translate lisp component names to compiler flags: they are now absolute pathnames.

This commit is contained in:
Juan Jose Garcia Ripoll 2011-06-28 19:32:43 +02:00
parent 0a7e582beb
commit 0e2c3b363d

View file

@ -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))