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