anchor.diff:    :short "Recogizer for function-option-"
     (function-option-lst-syntax-p-helper term nil))
   
  -;; BOZO:
  -;; Look at last BOZO
  -;; (define function-option-lst-syntax-fix (())
  -;;   )
  -
   (define function-syntax-p ((term t))
     :returns (syntax-good? booleanp)
     :short "Recognizer for function-syntax."
  
positive.code:     (qbooleanp (qbooleanp term))
      (qstringp (qstringp term))
      (smt-solver-params-p (smt-solver-params-p term))
      (t (smt-solver-cnf-p term nil))))
  
  (define smtlink-option-syntax-p ((term t) (used smtlink-option-name-lst-p))
    :returns (mv (syntax-good? booleanp)
  
negative.code:   :guard-debug t
    :hints (("Goal" :in-theory (enable smtlink-option-syntax-p smtlink-option-name-p
                                       eval-smtlink-option-type smtlink-option-name-lst-p))))
  
  (define smtlink-hint-syntax-p-helper ((term t) (used smtlink-option-name-lst-p))
    :returns (syntax-good? booleanp)
  