anchor.diff:  (in-package :asdf)
   
   (export '(*absolute-paths-as-default* *dso-extension*
  -	  *operation* *system* *component*))
  +	  *operation* *system* *component* library shared-object))
   
   (defparameter *dso-extension* 
    #-(or darwin win32)"so" #+darwin"dylib" #+win32"dll")
  
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: 
  (defmethod perform ((op compile-op) (c c-source-file))
    (unless
        (= 0 (run-shell-command "gcc -Wall ~A~{ ~A~} -o ~S -c ~S"
  	    #-win32 "-fPIC"
  	    #+win32 "-DBUILD_DLL"
  	    (nconc
  