anchor.diff:    :short "Recoginizer for smtlink-option-type."
     (if (member-equal option-type *smtlink-option-types*) t nil))
   
  -(define smtlink-option-type-fix)
  +(define smtlink-option-type-fix ((opttype smtlink-option-type-p))
  +  :returns (fixed-opttype smtlink-option-type-p
  +                          :hints (("Goal" :in-theory (enable
  +                                                      smtlink-option-type-p))))
  +  :short "Fixing function for smtlink-option-type."
  +  (mbe :logic (if (smtlink-option-type-p opttype) opttype 'function-lst-syntax-p)
  +       :exec opttype))
   
   (define smtlink-option-name-p ((option-name t))
     :returns (syntax-good? booleanp)
  
positive.code:            (hints-syntax-p (cddr term)))))
  
  (define argument-syntax-fix ((term argument-syntax-p))
    :returns (fixed-argument-syntax argument-syntax-p)
    :short "Fixing function for argument-syntax-p."
    (mbe :logic (if (argument-syntax-p term) term nil)
         :exec term))
  
negative.code:        (booleanp (cadr term))))
  
  (define qboolean-fix ((term qbooleanp))
    :returns (fixed-term qbooleanp)
    :short "Fixing function for a qbooleanp."
    (mbe :logic (if (qbooleanp term) term ''nil)
         :exec term))
  