• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Community
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
      • Io
      • Defttag
      • Sys-call
      • Save-exec
      • Quicklisp
      • Std/io
      • Oslib
      • Bridge
      • Clex
      • Tshell
      • Unsound-eval
      • Hacker
      • ACL2s-interface
      • Startup-banner
      • Command-line
        • Save-exec
        • Argv
        • Getopt
          • Demo-p
          • Defoptions
          • Demo2
            • Demo2-opts-p
              • Parse-demo2-opts
              • Demo2-opts
              • Make-demo2-opts
              • Change-demo2-opts
              • Make-honsed-demo2-opts
              • Honsed-demo2-opts
                • *demo2-opts-usage*
                • Demo2-opts->version
                • Demo2-opts->help
                • Demo2-opts->fail
              • Demo2-main
            • Parsers
            • Sanity-check-formals
            • Formal->parser
            • Formal->argname
            • Formal->longname
            • Formal->alias
            • Formal->usage
            • Formal->merge
            • Formal->hiddenp
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Demo2-opts-p

    Honsed-demo2-opts

    Raw constructor for honsed demo2-opts-p structures.

    Syntax:

    (honsed-demo2-opts help version fail)

    This is identical to demo2-opts, except that we hons the structure we are creating.

    Definition

    This is an ordinary honsing constructor introduced by std::defaggregate.

    Function: honsed-demo2-opts

    (defun honsed-demo2-opts (help version fail)
     (declare (xargs :guard (and (booleanp help)
                                 (booleanp version)
                                 (booleanp fail))))
     (mbe
        :logic (demo2-opts help version fail)
        :exec (hons :demo2 (hons (hons 'help help)
                                 (hons (hons 'version version)
                                       (hons (hons 'fail fail) nil))))))