anchor.diff:    (format *error-output* "no options for quicklisp~%")
     (cons t argv))
   
  -(defun patch-quicklisp (path)
  +(defun quicklisp-patch (path)
     (with-open-file (out (ensure-directories-exist (merge-pathnames "local-init/ros-download.lisp" path))
                          :direction :output :if-exists :supersede)
       (format
  
positive.code:      (sb-posix:setuid (parse-integer uid))))
    (let ((archive (ros:opt "download.archive"))
          (path (merge-pathnames "impls/ALL/ALL/quicklisp/" (homedir))))
      (patch-quicklisp path)
      (cond
        ((probe-file (merge-pathnames "setup.lisp" path))
         (format *error-output* "Quicklisp is already setup.~%"))
  
negative.code:   (cons (not (ros:opt "without-install")) argv))
  
  (defun quicklisp-install (argv)
    #-win32
    (ignore-errors
     (require :sb-posix)
  