anchor.diff:  (in-package :asdf)
  +
  +(export 'load-dso)
   
   (defun concatenate-strings (strings &optional delimiter)
     (if (not (rest strings))
  
positive.code: 			      (module-components dso)))))
        (error 'operation-error :operation operation :component dso))))
  
  (defmethod perform ((o load-op) (c unix-dso))
    (let ((co (make-instance 'compile-op)))
      (let ((filename (car (output-files co c))))
        #+cmu (ext:load-foreign filename)
        #+sbcl (sb-alien:load-shared-object filename))))
  
  
  
  
negative.code:      (logical-pathname (translate-logical-pathname pathname))
       (t pathname))))
  
  (defmethod input-files ((operation compile-op) (dso unix-dso))
    (mapcar #'component-pathname (module-components dso)))
  
  (defmethod output-files ((operation compile-op) (dso unix-dso))
  