		Search-engine friendly clone of the ACL2 documentation.

Std/system/function-queries

Rawp

Check if a named function has raw Lisp code.

Signature
(rawp fn state) → yes/no
Arguments: fn — Guard (symbolp fn).
Returns: yes/no — Type (booleanp yes/no).

The global variables logic-fns-with-raw-code and program-fns-with-raw-code list the logic-mode and program-mode functions with raw Lisp code. Their initial values are *initial-logic-fns-with-raw-code* and *initial-program-fns-with-raw-code*, but they may change if functions with raw Lisp code are introduced.

This function checks whether a function has raw Lisp code by checking whether it is listed in one of those global variables.

Definitions and Theorems

Function: rawp

(defun rawp (fn state)
  (declare (xargs :stobjs (state)))
  (declare (xargs :guard (symbolp fn)))
  (let ((__function__ 'rawp))
    (declare (ignorable __function__))
    (and (or (member-eq fn (@ logic-fns-with-raw-code))
             (member-eq fn (@ program-fns-with-raw-code)))
         t)))

Theorem: booleanp-of-rawp

(defthm booleanp-of-rawp
  (b* ((yes/no (rawp fn state)))
    (booleanp yes/no))
  :rule-classes :rewrite)