From 9bc0a84eeb54aa60de33613d28d317c19eaebad8 Mon Sep 17 00:00:00 2001 Message-Id: <9bc0a84eeb54aa60de33613d28d317c19eaebad8.1714980335.git.mdw@distorted.org.uk> From: Mark Wooding Date: Fri, 14 Dec 2007 11:38:47 +0000 Subject: [PATCH] Changed filename of shared objects to be component name Organization: Straylight/Edgeware From: espen --- tools/asdf-extensions.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/asdf-extensions.lisp b/tools/asdf-extensions.lisp index 768006a..f0be021 100644 --- a/tools/asdf-extensions.lisp +++ b/tools/asdf-extensions.lisp @@ -31,7 +31,7 @@ (defmethod output-files ((operation compile-op) (dso shared-object)) (let ((dir (component-pathname dso))) (list (make-pathname :type *dso-extension* - :name (car (last (pathname-directory dir))) + :name (component-name dso) :directory (butlast (pathname-directory dir)) :defaults dir)))) -- [mdw]