anchor.diff:  
   
   (defun split-path (path)
  -  (labels ((split (path)
  -	     (unless (zerop (length path))
  -	       (let ((slash (position #\/ path)))
  -		 (if slash
  -		     (cons (subseq path 0 slash) (split (subseq path (1+ slash))))
  -		   (list path))))))
  -    (if (and (not (zerop (length path))) (char= (char path 0) #\/))
  -	(cons :absolute (split (subseq path 1)))
  -      (cons :relative (split path)))))
  -
  +  (when path
  +    (labels ((split (path)
  +	       (unless (zerop (length path))
  +		 (let ((slash (position #\/ path)))
  +		   (if slash
  +		       (cons (subseq path 0 slash) (split (subseq path (1+ slash))))
  +		       (list path))))))
  +      (if (and (not (zerop (length path))) (char= (char path 0) #\/))
  +	  (cons :absolute (split (subseq path 1)))
  +	(cons :relative (split path))))))
  +  
   
   (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))))
  +  (or
  +   (when (slot-value lib 'libname)
  +     (let ((filename (format nil "~A~A" (namestring (make-pathname :directory (split-path (slot-value lib 'libdir)))) (slot-value lib 'libname))))
  +       (when (probe-file filename)
  +	 (pathname filename))))
  +   
  +   (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) (lib library))
     (load-shared-object (component-pathname lib) (absolute-p lib)))
  
positive.code: 	  (setf (cdr shared-object) name+type))))
      #+clisp 
      (progn
        (ffi::foreign-library namestring)
        (pushnew 
         (if absolute-p namestring name+type)
         *loaded-libraries* :test #'string=))))
  
negative.code: (in-package :asdf)
  
  (export '(*absolute-paths-as-default* *dso-extension*
  	  *operation* *system* *component* library shared-object))
  
  (defparameter *dso-extension* 
   #-(or darwin win32)"so" #+darwin"dylib" #+win32"dll")
  