anchor.diff:      (ensure-directories-exist local-client-info-file)
       (renaming-fetch url local-client-info-file)
       (with-open-file (stream local-client-info-file)
  -      (safely-read stream))))
  +      (list* :source-file local-client-info-file
  +             (safely-read stream)))))
   
   (defun fetch-client-info (url)
     (let ((plist (fetch-client-info-plist url)))
       (destructuring-bind (&key setup-url asdf-url client-tar-url version
  +                              source-file
                                 &allow-other-keys)
           plist
         (unless (and setup-url asdf-url client-tar-url version)
  
positive.code:     (unpack-tarball tmptar :directory (qmerge "./"))
      (renaming-fetch (setup-url client-info) setup)
      (renaming-fetch (asdf-url client-info) asdf)
      (load setup :verbose nil :print nil)
      (write-string *after-initial-setup-message*)
      (finish-output)))
  
negative.code:                      :asdf-url asdf-url
                       :client-tar-url client-tar-url
                       :version version
                       :plist plist
                       :source-file source-file))))
  
  (defun client-info-url-from-version (version)
    (format nil "http://zeta.quicklisp.org/client/~A/client-info.sexp"
  