anchor.diff:       (sb-posix:setuid (parse-integer uid))))
     (let ((archive (ros:opt "download.archive"))
           (path (merge-pathnames "impls/ALL/ALL/quicklisp/" (homedir))))
  -    (patch-quicklisp path)
  +    (quicklisp-patch path)
       (cond
         ((probe-file (merge-pathnames "setup.lisp" path))
          (format *error-output* "Quicklisp is already setup.~%"))
  
positive.code:   (cons (not (ros:opt "without-install")) argv))
  
  (defun quicklisp-install (argv)
    (format *error-output* "~S~%" argv)
    #-win32
    (ignore-errors
     (require :sb-posix)
  
negative.code:   (format *error-output* "no options for quicklisp~%")
    (cons t argv))
  
  (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
  