From a4b45ed1c6fe91a6585bf3e74c40b4a3ce9575d7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 9 Sep 2016 14:12:21 +0200
Subject: [PATCH] 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.
---
 bundle.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bundle.lisp b/bundle.lisp
index bde9574b1..43a1d1f7c 100644
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -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)
-- 
GitLab