anchor.diff:  @export
   (defun check-version (version)
     (let ((*standard-output* (make-broadcast-stream)))
  -    (unless (string= version
  -                     (slot-value (asdf:find-system :shelly) 'asdf:version))
  +    (unless (string= version *shelly-version*)
         (format *error-output*
                 "Warning: different version of Shelly was detected. Try \\\"shly --install\\\".~%")
         (force-output *error-output*))
  
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:       (t
         (warn "Shelly script doesn't exist. Ignored.")))
  
      (dump-core :quit-lisp nil))
  
    (format t "~&
  Successfully installed!
  