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