Commit a4b45ed1 authored by Daniel Kochmański's avatar Daniel Kochmański Committed by Francois-Rene Rideau
Browse files

bundle: be case-insensitive when recognizing type

`pathname-type-equal-function' was case-sensitive when filtering
`direct-dependency-files' called from `input-files' specialized on
`gather-op'. That caused rejection of the prebuilt system libraries
denoted in upper case like #P"SYS:LIBASDF.A" and as a result any
dependencies on the prebuilt weren't linked in the final image.
parent 74940751
......@@ -307,7 +307,7 @@ for all the linkable object files associated with the system or its dependencies
:when (funcall test f) :do (collect f))))))
(defun pathname-type-equal-function (type)
#'(lambda (p) (equal (pathname-type p) type)))
#'(lambda (p) (equalp (pathname-type p) type)))
(defmethod input-files ((o gather-op) (c system))
(unless (eq (bundle-type o) :no-output-file)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment