Filtering...

macro-namep-tests

books/std/system/macro-namep-tests

Included Books

macro-namep assert-bang must-succeed-star
other
(in-package "ACL2")
include-book
(include-book "macro-namep")
include-book
(include-book "std/testing/assert-bang" :dir :system)
include-book
(include-book "std/testing/must-succeed-star" :dir :system)
other
(assert! (macro-namep 'append (w state)))
other
(assert! (not (macro-namep 'cons (w state))))
other
(assert! (not (macro-namep 'aaaaaaaaaa (w state))))
other
(must-succeed* (defmacro m (x) `(list ,X))
  (assert! (macro-namep 'm (w state))))
other
(assert! (not (macro-namep 5/3 (w state))))
other
(assert! (not (macro-namep "append" (w state))))