anchor.diff:        (t (c)
           (format *error-output* "Error: ~A" c)))))
   
  -(defparameter *config-file*
  -              (format nil "# -*- mode: perl -*-
  +
  +(defvar *current-lisp-path*
  +    (or
  +     #+ccl (car ccl:*command-line-argument-list*)
  +     #+sbcl (car sb-ext:*posix-argv*)
  +     #+allegro (car (system:command-line-arguments))
  +     #+clisp "clisp"
  +     #+cmu (car ext:*command-line-strings*)
  +     #+ecl (car (si:command-args))))
  +
  +(defvar *current-lisp-name*
  +    (or
  +     #+ccl "ccl"
  +     #+sbcl "sbcl"
  +     #+allegro "alisp"
  +     #+clisp "clisp"
  +     #+cmu "cmucl"
  +     #+ecl "ecl"))
  +
  +(defvar *eval-option*
  +    (or
  +     #+ccl "--eval"
  +     #+sbcl "--eval"
  +     #+allegro "-e"
  +     #+clisp "-x"
  +     #+cmu "-eval"
  +     #+ecl "-eval"))
  +
  +(defvar *config-file*
  +    (format nil "# -*- mode: perl -*-
   
   {
       default_lisp    => ~:[undef~;~:*\"~A\"~],
  
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.")))
    t)
  
  @export
  (defun dump-core (filepath)
    #+allegro (excl:dumplisp :name filepath)
    #+ccl (ccl:save-application filepath)
    #+sbcl (sb-ext:save-lisp-and-die filepath)
    #+clisp (progn (ext:saveinitmem filepath) (quit-lisp))
    #+cmu (ext:save-lisp filepath :load-init-file nil)
    #-(or allegro ccl sbcl clisp cmu)
    (princ "`dump-core' isn't supported on this implementation."))
  
  (defun print-usage (fn)
    (format t
  
negative.code:     },
  }
  "
              *current-lisp-name*
              *current-lisp-path*))
  
  @export
  (defparameter *shelly-version*
                (slot-value (asdf:find-system :shelly) 'asdf:version))
  
  @export
  (defun install-script ()
  