PROBE-FILE does not output a string, which is the output of system-ld-flag.

This commit is contained in:
jgarcia 2007-11-25 18:39:25 +00:00
parent 1f892f9d67
commit 9853379317

View file

@ -300,7 +300,7 @@ filesystem or in the database of ASDF modules."
(first (asdfcall :output-files build system))))
(existing-system-output (system type)
(let ((o (system-output system type)))
(and o (probe-file o))))
(and o (setf o (probe-file o)) (namestring o))))
(find-archive (system)
(or (existing-system-output system :library)
(existing-system-output system :shared-library)))