From fd9d29a449e84fa05ba66bcbc72d37269a649668 Mon Sep 17 00:00:00 2001 From: espen Date: Wed, 9 Feb 2005 22:56:02 +0000 Subject: [PATCH] Shared library component improved --- tools/asdf-extensions.lisp | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/tools/asdf-extensions.lisp b/tools/asdf-extensions.lisp index 617b4b3..75918f7 100644 --- a/tools/asdf-extensions.lisp +++ b/tools/asdf-extensions.lisp @@ -100,8 +100,9 @@ t) +;;; Shared libraries -(defclass library (static-file) +(defclass library (component) ((libdir :initarg :libdir))) @@ -119,3 +120,17 @@ (defmethod perform ((o load-op) (c library)) (load-dso (component-pathname c))) + +(defmethod perform ((operation operation) (c library)) + nil) + +(defmethod operation-done-p ((o load-op) (c library)) + #+sbcl(find (sb-ext::unix-namestring (component-pathname c)) sb-alien::*shared-objects* :key #'sb-alien::shared-object-file :test #'equal) + #+cmu(rassoc (unix::unix-namestring (component-pathname c)) + system::*global-table* + :key #'(lambda (pathname) + (when pathname (unix::unix-namestring pathname))) + :test #'equal)) + +(defmethod operation-done-p ((o operation) (c library)) + t) -- 2.11.0