anchor.diff:                   :dist-version <version>~%~%"))
   
   (defvar *after-load-message*
  -  (format nil "~&~%  ==== quicklisp quickstart loaded ====~%~%    ~
  +  (format nil "~&~%  ==== quicklisp quickstart ~A loaded ====~%~%    ~
                  To continue with installation, evaluate: (quicklisp-quickstart:install)~%~%    ~
  -               For installation options, evaluate: (quicklisp-quickstart:help)~%~%"))
  +               For installation options, evaluate: (quicklisp-quickstart:help)~%~%"
  +          qlqs-info:*version*))
   
   (defvar *after-initial-setup-message*
     (with-output-to-string (*standard-output*)
  
positive.code:                   dist-url
                    dist-version)
    (setf *home* (merge-pathnames *home* (truename *default-pathname-defaults*)))
    (let ((name (file-namestring *home*)))
      (when name
        (warn "Making ~A part of the install pathname directory"
              name)
  
negative.code:   (write-string *help-message*)
    t)
  
  (defun non-empty-file-namestring (pathname)
    (let ((string (file-namestring pathname)))
      (unless (or (null string)
                  (equal string ""))
        string)))
  
  (defun install (&key ((:path *home*) *home*)
                    ((:proxy *proxy-url*) *proxy-url*)
                    client-url
  