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