anchor.diff:      (format t "sbcl install options~%")
       (fmt "as" "nickname" "install non-default optioned version of SBCL")
       (fmt "install" t "Download archive")
  -    (dolist (e *sbcl-options*)
  -      (apply #'fmt e)))
  -  (cons t argv))
  -
  -(push `("sbcl" . ,(list #+win32 'sbcl-msys
  -                        'sbcl-version
  +    (loop for (name default description sb-prefix) in *sbcl-options*
  +       do (fmt name default description)))
  +  (cons t argv))
  +
  +(push `("sbcl" . ,(list 'sbcl-version
                           'sbcl-argv-parse
  +                        #+win32 'sbcl-msys
                           'sbcl-start
                           'start
                           'sbcl-download
  
positive.code:                        :direction :output :if-exists :supersede :if-does-not-exist :create)
      (format out "~s"
              `(lambda (list)
                 (dolist (i ',(loop for (name . nil) in *sbcl-options*
                                 collect (list (read-from-string (format nil ":sb-~A" name)) (get-opt name))))
                   (if (second i)
                       (pushnew (first i) list)
                       (setf list (remove (first i) list))))
  
negative.code:                       (cond ((position (format nil "--with-~A" opt) (getf argv :argv) :test 'equal) t)
                              ((position (format nil "--without-~A" opt) (getf argv :argv) :test 'equal) nil)
                              (t default)))))
      (loop for (name default description sb-prefix) in *sbcl-options*
         do (with name default)))
    (cons t argv))
  
  (defun sbcl-start (argv)
  