• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Debugging
  • Projects
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
    • Io
    • Defttag
    • Sys-call
    • Save-exec
    • Quicklisp
    • Oslib
    • Std/io
    • Bridge
    • Clex
    • Tshell
    • Unsound-eval
    • Hacker
    • Startup-banner
    • Command-line
      • Save-exec
      • Argv
      • Getopt
        • Demo-p
        • Defoptions
        • Demo2
        • Parsers
        • Sanity-check-formals
        • Formal->parser
        • Formal->argname
        • Formal->longname
        • Formal->merge
        • Formal->alias
        • Formal->usage
        • Formal->hiddenp
  • Hardware-verification
  • Software-verification
  • Testing-utilities
  • Math

• Getopt

Formal->merge

Signature

(formal->merge x) → merge-fn

Arguments

x — Guard (formal-p x).

Returns

merge-fn — Type (symbolp merge-fn).

Definitions and Theorems

Function: formal->merge

(defun formal->merge (x)
       (declare (xargs :guard (formal-p x)))
       (let ((__function__ 'formal->merge))
            (declare (ignorable __function__))
            (b* (((formal x) x)
                 (merge (cdr (assoc :merge x.opts)))
                 ((unless (symbolp merge))
                  (raise "In ~x0, :merge is not even a symbol: ~x1."
                         x.name merge)))
                merge)))