anchor.diff:      (format nil "# -*- mode: perl -*-
   
   {
  -    default_lisp    => ~:[undef~;~:*\"~A\"~],
  -    implementations => {
  -        ~:*~:[~*~;~:*~A => \"~A\",~]
  -    },
  +~:[~;~:*    binary_path => \"~A\",~]
   }
   "
  -            *current-lisp-name*
               *current-lisp-path*))
  +
  +(defvar *config-file-path*
  +    (format nil "config.~A" *current-lisp-name*))
   
   @export
   (defparameter *shelly-version*
  
positive.code: 
      (if (fad:file-exists-p shly-path)
          (fad:copy-file shly-path
           (merge-pathnames "bin/shly" home-config-path))
          (warn "Shelly script doesn't exist. Ignored."))
  
      (dump-core
  
negative.code: 
      (ensure-directories-exist home-config-path)
  
      (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/"))
  