anchor.diff:          (write-line "!!! Quicklisp has already been set up. !!!")
           (write-string *after-initial-setup-message*)
           t)
  -      (call-with-quiet-compilation #'initial-install)))
  -
  -;;; Try to canonicalize to an absolute pathname; helps on Lisps where
  -;;; *default-pathname-defaults* isn't an absolute pathname at startup
  -;;; (e.g. CCL, CMUCL)
  -(setf *default-pathname-defaults* (truename *default-pathname-defaults*))
  +      (call-with-quiet-compilation
  +       (lambda ()
  +         (let ((client-url (or client-url
  +                               (and client-version
  +                                    (client-info-url-from-version client-version))
  +                               *client-info-url*))
  +               ;; It's ok for dist-url to be nil; there's a default in
  +               ;; the client
  +               (dist-url (or dist-url
  +                             (and dist-version
  +                                  (distinfo-url-from-version dist-version)))))
  +           (initial-install :client-url client-url
  +                            :dist-url dist-url))))))
   
   (write-string *after-load-message*)
   
  
positive.code:                   #:socket-connect
                    #:socket-make-stream))
  
  ;;;
  ;;; Utility function
  ;;;
  
negative.code:                                   (format nil ":~D" port)))
        (add-line "Connection: close")
        ;; FIXME: get this version string from somewhere else.
        (add-line "User-Agent: quicklisp-bootstrap/"
                  qlqs-info:*version*)
        (add-newline sink)
        (sink-buffer sink))))
  
  