anchor.diff:  		 :name (or (slot-value lib 'libname) (component-name lib))
   		 :directory (split-path (slot-value lib 'libdir))))
   
  -;; --fix: is UNIX-NAME really necessary for win32?  i know it will bomb
  -;;        without using it while doing (ASDF:OOS 'ASDF:LOAD-OP :GLIB) but
  -;;        loading the complete pathname for libglib-2.0-0.dll with
  -;;        SB-ALIEN:LOAD-SHARED-OBJECT by hand won't explode.  weird.
  -;;         - cph 18-May-2007
   (defmethod perform ((o load-op) (c library))
  -  (load-dso #-win32 (component-pathname c)
  -	    #+win32 (unix-name (component-pathname c))))
  +  (load-shared-object (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)
  -  #+clisp(find (component-pathname c) *loaded-libraries* :test #'equal))
  +  (let ((namestring (ensure-namestring (component-pathname c))))
  +    #+sbcl(find namestring sb-alien::*shared-objects* :key #'sb-alien::shared-object-file :test #'equal)
  +    #+cmu(rassoc namestring system::*global-table* :test #'equal)
  +    #+clisp(find namestring *loaded-libraries* :test #'equal)))
   
   (defmethod operation-done-p ((o operation) (c library))
     t)
  
positive.code: ;;; Shared libraries
  
  (defclass library (component) 
    ((libdir :initarg :libdir)
     (libname :initarg :libname :initform nil)))
  
  
  
negative.code: 	      for path in (slot-value c 'include-paths)
  	      collect (format nil "-I~A" path))
  	     (slot-value c 'cflags))
  	    (ensure-namestring (first (output-files op c)))
  	    (ensure-namestring (component-pathname c))))
      (error 'operation-error :operation op :component c)))
  
  
  