anchor.diff:                         :direction :output :if-exists :supersede :if-does-not-exist :create)
       (format out "~s"
               `(lambda (list)
  -               (dolist (i '((:sb-thread ,(get-opt "thread"))
  -                            (:sb-core-compression ,(get-opt "core-compression"))
  -                            (:sb-ldb ,(get-opt "ldb"))
  -                            (:sb-xref-for-internals ,(get-opt "xref-for-internals"))))
  +               (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))))
  
positive.code:       (format nil "~A -l" (merge-pathnames (format nil "impls/~A/~A/~A/~A/msys/1.0/bin/sh" (uname-m) (uname) "msys" "mingw32") (homedir)))
        (which "bash")
        "sh"))
  
  (defun sbcl-get-version ()
    (let (result
  
negative.code: 
  (defun sbcl-help (argv)
    (flet ((fmt (param default more)
             (format t "--~A~A ~A~%~5T~A~%"
                     (cond ((eql default t) "without-")
                           ((null default) "with-")
                           (t ""))
                     param
                     (or (and (not (null default))
                              (not (eql default t))
                              default)
                         "")
                     more)))
      (format t "sbcl install options~%")
      (fmt "as" "nickname" "install non-default optioned version of SBCL")
      (dolist (e *sbcl-options*)
        (apply #'fmt e)))
    (cons t argv))
  
  (setq *install-cmds*
  