anchor.diff:      (unpack-tarball tmptar :directory (qmerge "./"))
       (renaming-fetch (setup-url client-info) setup)
       (renaming-fetch (asdf-url client-info) asdf)
  +    (rename-file (source-file client-info) (qmerge "client-info.sexp"))
       (load setup :verbose nil :print nil)
       (write-string *after-initial-setup-message*)
       (finish-output)))
  
positive.code:                      :asdf-url asdf-url
                       :client-tar-url client-tar-url
                       :version version
                       :plist plist))))
  
  (defun client-info-url-from-version (version)
    (format nil "http://zeta.quicklisp.org/client/~A/client-info.sexp"
  
negative.code:     :initarg :version)
     (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)
  