anchor.diff:                      (version local-info)))
       (rename-directory new-quicklisp-directory current-quicklisp-directory)
       (replace-file local-setup (qmerge "setup.lisp"))
  -    (replace-file local-asdf (qmerge "asdf.lisp"))))
  +    (replace-file local-asdf (qmerge "asdf.lisp"))
  +    (replace-file (source-file newest-info) (qmerge "client-info.sexp"))))
   
   (defun update-client (&key (prompt t))
     (let* ((local-info (local-client-info))
            (newest-info (newest-client-info local-info)))
       (cond ((null newest-info)
  -           (format t "No updates for this client are available.~%"))
  +           (format t "No client update available.~%"))
             ((client-version-lessp local-info newest-info)
              (format t "Updating client from version ~A to version ~A.~%"
                      (version local-info)
  
positive.code:                      :client-tar-url client-tar-url
                       :version version
                       :subscription-url subscription-url
                       :plist plist))))
  
  (defun fetch-client-info (url)
    (let ((info-file (qmerge "tmp/client-info.sexp")))
  
negative.code:     :initarg :subscription-url)
     (plist
      :reader plist
      :initarg :plist)
     (source-file
      :reader source-file
      :initarg :source-file)))
  
  (defmethod print-object ((client-info client-info) stream)
    (print-unreadable-object (client-info stream :type t)
  