anchor.diff:  
       (if (fad:file-exists-p shly-path)
           (fad:copy-file shly-path
  -         (merge-pathnames "bin/shly" home-config-path))
  +         (merge-pathnames "bin/shly" home-config-path)
  +         :overwrite t)
           (warn "Shelly script doesn't exist. Ignored."))
   
       (dump-core
  
positive.code: 
      (ensure-directories-exist home-config-path)
  
      (with-open-file (out (merge-pathnames "config" home-config-path)
                           :direction :output)
        (write-string *config-file* out))
  
      (dolist (dir '("dumped-cores/" "bin/"))
  
negative.code:     (format nil "# -*- mode: perl -*-
  
  {
  ~:[~;~:*    binary_path => \"~A\",~]
  }
  "
              *current-lisp-path*))
  
  (defvar *config-file-path*
      (format nil "config.~A" *current-lisp-name*))
  
  @export
  (defparameter *shelly-version*
  