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:     (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
                          'sbcl-argv-parse
                          'sbcl-start
                          'start
                          'sbcl-download
  
negative.code: |#
  
  (defvar *sbcl-options*
    ;;(name default description sb-prefix)
    `(("thread" ,(or #+(or x86 x86-64 arm64) t) "Build SBCL without support for native threads" t)
      ("core-compression" t "Build SBCL without support for compressed cores and without a dependency on zlib" t)
      ("ldb" nil "Include low-level debugger in the build" t)
      ("xref-for-internals" nil "Include XREF information for SBCL internals (increases core size by 5-6MB)" t)
      ("simd-pack" nil "Enable SIMD intrinsics" t)))
  
  (defun sbcl-get-version ()
    (let (result
  