anchor.diff:          @@ -155,7 +155,7 @@
                             ,(unique-dir-name)))
               (user-homedir-pathname)))
  -         
  +
           -(defvar *fasl-directory* (default-fasl-dir)
           +(defvar *fasl-directory* #P"$out/lib/common-lisp/swank/fasl/"
              "The directory where fasl files should be placed.")
  -         
  +
            (defun binary-pathname (src-pathname binary-dir)
           @@ -277,12 +277,7 @@
                             (contrib-dir src-dir))))
  -         
  +
            (defun delete-stale-contrib-fasl-files (swank-files contrib-files fasl-dir)
           -  (let ((newest (reduce #'max (mapcar #'file-write-date swank-files))))
           -    (dolist (src contrib-files)
  
positive.code:         -                   (<= (file-write-date fasl) newest))
          -          (delete-file fasl))))))
          +  (declare (ignore swank-files contrib-files fasl-dir)))
           
           (defun compile-contribs (&key (src-dir (contrib-dir *source-directory*))
                                      (fasl-dir (contrib-dir *fasl-directory*))
          EOD
  
negative.code:       '';
      };
    };
    dbi = x: {
      parasites = [];
      deps = pkgs.lib.filter
        (x:
          (
            x.name != quicklisp-to-nix-packages.dbd-mysql.name &&
            x.name != quicklisp-to-nix-packages.dbd-postgres.name &&
            x.name != quicklisp-to-nix-packages.dbd-sqlite3.name &&
            x.name != quicklisp-to-nix-packages.dbi-test.name &&
            true))
        x.deps;
    };
  }
  