anchor.diff:  ;; Copyright (c) 2003 Nikodemus Siivola
  -;; 
  +;;
   ;; Permission is hereby granted, free of charge, to any person obtaining
   ;; a copy of this software and associated documentation files (the
   ;; "Software"), to deal in the Software without restriction, including
  
positive.code: 
  (defvar *gcc* "/usr/bin/gcc")
  
  (defvar *gcc-options* '(#-darwin "-shared"
  			#+darwin "-bundle"
  			"-fPIC"))
  
  ;;; 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 "so"
  		       :defaults (component-pathname c))))
  
  (defmethod perform ((o load-op) (c uffi-c-source-file))
  
negative.code: ;; distribute, sublicense, and/or sell copies of the Software, and to
  ;; permit persons to whom the Software is furnished to do so, subject to
  ;; the following conditions:
  ;;
  ;; The above copyright notice and this permission notice shall be included
  ;; in all copies or substantial portions of the Software.
  ;;
  ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  ;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  