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: @export
  (defun check-version (version)
    (let ((*standard-output* (make-broadcast-stream)))
      (unless (string= version
                       (slot-value (asdf:find-system :shelly) 'asdf:version))
        (format *error-output*
                "Warning: different version of Shelly was detected. Try \\\"shly --install\\\".~%")
        (force-output *error-output*))
  
negative.code:                                 *eval-option*
                                  command))))
  
  @export
  (defun rm-core ()
    (handler-case
        (progn (delete-file *dumped-core-path*)
               (format *standard-output*
                       "~&Successfully deleted: ~A~%"
                       *dumped-core-path*))
      (file-error (c) (princ c)))
  
    (quit-lisp))
  
  (defun dump-core-command (filepath)
    #+allegro `(excl:dumplisp :name ,filepath)
    #+ccl `(ccl:save-application ,filepath)
  