anchor.diff:  ;;; Shared libraries
   
   (defclass library (component) 
  -  ((libdir :initarg :libdir)))
  +  ((libdir :initarg :libdir)
  +   (libname :initarg :libname :initform nil)))
   
   
   (defun split-path (path)
  
positive.code: 
  (export '*dso-extension*)
  
  (defvar *dso-extension* #-darwin"so" #+darwin"dylib")
  
  
  ;;; The following code is more or less copied frm sb-bsd-sockets.asd,
  
negative.code: 
  (defmethod component-pathname ((lib library))
    (make-pathname :type *dso-extension*
  		 :name (or (slot-value lib 'libname) (component-name lib))
  		 :directory (split-path (slot-value lib 'libdir))))
  
  (defmethod perform ((o load-op) (c library))
  