anchor.diff:             (merge-pathnames name env)
              (merge-pathnames name #p"/root/common-lisp/"))))
   
  -(defun download-release (release path url)
  +(defun download-release (env release path url)
     (with-open-file (f path
                        :direction :output
                        :element-type '(unsigned-byte 8)
  
positive.code:   (multiple-value-prog1 (ql-dist:provided-systems release)
      (let ((archive-url (ql-dist:archive-url release))
            (name (archive-name release)))
        (download-release release (merge-pathnames name env) archive-url)
        (extract-release env name))))
  
  (defun extract-release (env name)
  
negative.code:     (let ((archive (drakma:http-request url :force-binary t)))
        (unless (check-archive release archive)
          (format t "~A corrupted, trying again...~%" (namestring path))
          (return-from download-release (download-release env release path url)))
        (write-sequence archive f)
        (format t "~A is downloaded to ~A~%" url (namestring path)))))
  
  