From 1dfea3abdf558452687fc35f7270d55e9626de7c Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Mon, 4 Jun 2007 19:31:49 +0000
Subject: [PATCH] Added slot LIBNAME to component class LIBRARY

---
 tools/asdf-extensions.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/tools/asdf-extensions.lisp b/tools/asdf-extensions.lisp
index cd69b85..576c8f8 100644
--- a/tools/asdf-extensions.lisp
+++ b/tools/asdf-extensions.lisp
@@ -2,7 +2,7 @@
 
 (export '*dso-extension*)
 
-(defvar *dso-extension* #-darwin"so" #+darwin"dylib")
+(defparameter *dso-extension* #-darwin"so" #+darwin"dylib")
 
 
 ;;; The following code is more or less copied frm sb-bsd-sockets.asd,
@@ -106,7 +106,8 @@
 ;;; Shared libraries
 
 (defclass library (component) 
-  ((libdir :initarg :libdir)))
+  ((libdir :initarg :libdir)
+   (libname :initarg :libname :initform nil)))
 
 
 (defun split-path (path)
@@ -123,7 +124,7 @@
 
 (defmethod component-pathname ((lib library))
   (make-pathname :type *dso-extension*
-		 :name (component-name lib)
+		 :name (or (slot-value lib 'libname) (component-name lib))
 		 :directory (split-path (slot-value lib 'libdir))))
 
 (defmethod perform ((o load-op) (c library))
-- 
2.11.0