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:        (let ((*standard-output* (make-broadcast-stream)))
           (funcall (intern (string :install) (find-package :quicklisp-quickstart))
                    :path path
                    :client-url (ros:opt "quicklisp.client")
                    :dist-url (ros:opt "quicklisp.dist"))))))
    (cons t argv))
  
  (push '("quicklisp" quicklisp-help) *help-cmds*)
  
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))
  