diff --git a/bundle.lisp b/bundle.lisp index bde9574b1f32d98fd5c155a3b55044ecda6c7efa..43a1d1f7c795a8ad1c908fb9916f63e0b1615676 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)