From: espen <espen>
Date: Mon, 4 Jun 2007 19:31:49 +0000 (+0000)
Subject: Added slot LIBNAME to component class LIBRARY
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/1dfea3abdf558452687fc35f7270d55e9626de7c?ds=inline

Added slot LIBNAME to component class LIBRARY
---

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 @@ (in-package :asdf)
 
 (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 @@ (defmethod perform ((operation load-op) (c c-source-file))
 ;;; Shared libraries
 
 (defclass library (component) 
-  ((libdir :initarg :libdir)))
+  ((libdir :initarg :libdir)
+   (libname :initarg :libname :initform nil)))
 
 
 (defun split-path (path)
@@ -123,7 +124,7 @@ (defun split-path (path)
 
 (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))