anchor.diff:                (slot-value (asdf:find-system :shelly) 'asdf:version))
   
   @export
  +(defvar *dumped-core-path*
  +    (merge-pathnames (format nil "dumped-cores/~A.core"
  +                             *current-lisp-name*)
  +                     (merge-pathnames ".shelly/" (user-homedir-pathname))))
  +
  +@export
   (defun install-script (&key quit-lisp)
     (let ((home-config-path
            (merge-pathnames ".shelly/" (user-homedir-pathname)))
  
positive.code:                                 *eval-option*
                                  command))))
  
  (defun dump-core-command (filepath)
    #+allegro `(excl:dumplisp :name ,filepath)
    #+ccl `(ccl:save-application ,filepath)
  
negative.code:   (values))
  
  @export
  (defun dump-core (&key (quit-lisp t))
    (let ((command (dump-core-command *dumped-core-path*)))
      (unless command
        (princ "`dump-core' isn't supported on this implementation.")
        (return-from dump-core))
  