anchor.diff:  (defun quicklisp-patch (path)
     (with-open-file (out (ensure-directories-exist (merge-pathnames "local-init/ros-download.lisp" path))
                          :direction :output :if-exists :supersede)
  -    (let ((*package* (find-package :ros.install)))
  +    (let ((*package* (find-package :cl)))
         (format
          out "~@{~s~^~%~}"
          '(let ((*error-output* (make-broadcast-stream)))
  
positive.code:   (cons t argv))
  
  (defun quicklisp-download (argv)
    (if (or (not (probe-file (ros:opt "download.archive")))
            (ros:opt "download.force"))
        (progn
          (format t "~&Downloading archive: ~A~%" (ros:opt "download.uri"))
          (download (ros:opt "download.uri") (ros:opt "download.archive")))
        (format t "~&Skip downloading ~A.~%Specify 'download.force=t' to download again.~%"
                (ros:opt "download.uri")))
    (cons (not (ros:opt "without-install")) argv))
  
  (defun quicklisp-install (argv)
    #-win32
  
negative.code:      (sb-posix:setgid (parse-integer gid)))
     (let ((uid (sb-posix:getenv "SUDO_UID")))
       (sb-posix:setuid (parse-integer uid))))
    (let ((archive (opt "download.archive"))
          (path (opt "quicklisp")))
      (quicklisp-patch path)
      (cond
        ((probe-file (merge-pathnames "setup.lisp" path))
  