anchor.diff:    (values))
   
   @export
  -(defun dump-core (filepath &key (quit-lisp t))
  -  (let ((command (dump-core-command filepath)))
  +(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))
  
positive.code:               (slot-value (asdf:find-system :shelly) 'asdf:version))
  
  @export
  (defun install-script (&key quit-lisp)
    (let ((home-config-path
           (merge-pathnames ".shelly/" (user-homedir-pathname)))
  
negative.code: @export
  (defun check-version (version)
    (let ((*standard-output* (make-broadcast-stream)))
      (unless (string= version *shelly-version*)
        (format *error-output*
                "Warning: different version of Shelly was detected. Try \\\"shly --install\\\".~%")
        (force-output *error-output*))
  