anchor.diff:               (qstringp (car body-lst)))
           (cons option used))))
   
  -(define smt-solver-single-cnf-fix)
  +;; BOZO:
  +;; Refer to last BOZO
  +;; (define smt-solver-single-cnf-fix (())
  +;;   :returns ()
  +;;   :short "Fixing function for smt-solver-single-cnf-fix")
   
   (define smt-solver-cnf-p ((term t) (used cnf-option-lst-p))
     :returns (syntax-good? booleanp)
  
positive.code:   :short "Recoginizer for smtlink-option-type."
    (if (member-equal option-type *smtlink-option-types*) t nil))
  
  (define smtlink-option-type-fix)
  
  (define smtlink-option-name-p ((option-name t))
    :returns (syntax-good? booleanp)
  
negative.code: 
  (define argument-lst-syntax-fix ((term argument-lst-syntax-p))
    :short "Fixing function for argument-lst-syntax."
    :returns (fixed-term argument-lst-syntax-p
                         :hints (("Goal"
                                  :in-theory (enable argument-lst-syntax-p))))
    :verify-guards nil
    (mbe :logic (if (consp term)
                    (cons (argument-syntax-fix (car term))
  