anchor.diff:      :initarg :subscription-url)
      (plist
       :reader plist
  -    :initarg :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)
  
positive.code:                     (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"))))
  
  (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.~%"))
            ((client-version-lessp local-info newest-info)
             (format t "Updating client from version ~A to version ~A.~%"
                     (version local-info)
  
negative.code:                      :client-tar-url client-tar-url
                       :version version
                       :subscription-url subscription-url
                       :plist plist
                       :source-file (probe-file file)))))
  
  (defun fetch-client-info (url)
    (let ((info-file (qmerge "tmp/client-info.sexp")))
  