anchor.diff:                        (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 (opt default . nil) in *sbcl-options*
  -       do (with opt default)))
  +    (loop for (name default description sb-prefix) in *sbcl-options*
  +       do (with name default)))
     (cons t argv))
   
   (defun sbcl-start (argv)
  
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:     (format t "sbcl install options~%")
      (fmt "as" "nickname" "install non-default optioned version of SBCL")
      (fmt "install" t "Download archive")
      (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
  