anchor.diff:  
   (defmethod perform ((o compile-op) (c uffi-c-source-file))
     (unless (zerop (run-shell-command "~A ~A ~{~A ~}-o ~A"
  -				    *gcc*
  -				    (namestring (component-pathname c))
  -				    *gcc-options*
  -				    (namestring (car (output-files o c)))))
  +                                    *gcc*
  +                                    (namestring (component-pathname c))
  +                                    *gcc-options*
  +                                    (namestring (car (output-files o c)))))
       (error 'operation-error :component c :operation o)))
   
   (defsystem :linedit
  
positive.code:    #-sbcl
     (list "/usr/lib/bundle1.o" "-flat_namespace" "-undefined" "suppress")))
  
  ;;; Separate class so that we don't mess up other packages
  (defclass uffi-c-source-file (c-source-file) ())
  
  (defmethod output-files ((o compile-op) (c uffi-c-source-file))
    (list (make-pathname :name (component-name c)
  		       :type #-(or darwin macosx) "so" #+(or darwin macosx) "dylib"
  		       :defaults (component-pathname c))))
  
  (defmethod perform ((o load-op) (c uffi-c-source-file))
    (let ((loader (intern (symbol-name '#:load-foreign-library) :uffi)))
  
negative.code: ;; Copyright (c) 2003-2012 Nikodemus Siivola <nikodemus@random-state.net>
  ;;
  ;; Permission is hereby granted, free of charge, to any person obtaining
  ;; a copy of this software and associated documentation files (the
  