anchor.diff:       (sb-posix:setgid (parse-integer gid)))
      (let ((uid (sb-posix:getenv "SUDO_UID")))
        (sb-posix:setuid (parse-integer uid))))
  -  (let ((archive (ros:opt "download.archive"))
  -        (path (ros:opt "quicklisp")))
  +  (let ((archive (opt "download.archive"))
  +        (path (opt "quicklisp")))
       (quicklisp-patch path)
       (cond
         ((probe-file (merge-pathnames "setup.lisp" path))
  
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: (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 :cl)))
        (format
         out "~@{~s~^~%~}"
         '(let ((*error-output* (make-broadcast-stream)))
  