anchor.diff:  (defun initial-install (&key (client-url *client-info-url*) dist-url)
     (setf *quickstart-parameters*
           (list :proxy-url *proxy-url*
  -	      :proxy-user *proxy-user*
  -	      :proxy-pass *proxy-pass*
                 :initial-dist-url dist-url))
     (ensure-directories-exist (qmerge "tmp/"))
     (let ((client-info (fetch-client-info client-url))
  
positive.code:          (setf state (funcall state (aref urlstring pos)))
           (incf pos))))))
  
  (defun url (thing)
    (if (stringp thing)
        (parse-urlstring thing)
        thing))
  
  (defgeneric request-buffer (method url)
  
negative.code:                   dist-url
                    dist-version)
    (setf *home* (merge-pathnames *home* (truename *default-pathname-defaults*)))
    (let ((name (non-empty-file-namestring *home*)))
      (when name
        (warn "Making ~A part of the install pathname directory"
  