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