		Search-engine friendly clone of the ACL2 documentation.

Pnumber-number-digit

Make-pnumber-number-digit

Basic constructor macro for pnumber-number-digit structures.

Syntax

(make-pnumber-number-digit [:number <number>] 
                           [:digit <digit>])

This is the usual way to construct pnumber-number-digit structures. It simply conses together a structure with the specified fields.

This macro generates a new pnumber-number-digit structure from scratch. See also change-pnumber-number-digit, which can "change" an existing structure, instead.

Definition

This is an ordinary make- macro introduced by fty::defprod.

Macro: make-pnumber-number-digit

(defmacro make-pnumber-number-digit (&rest args)
  (std::make-aggregate 'pnumber-number-digit
                       args '((:number) (:digit))
                       'make-pnumber-number-digit
                       nil))

Function: pnumber-number-digit

(defun pnumber-number-digit (number digit)
  (declare (xargs :guard (and (pnumberp number)
                              (characterp digit))))
  (declare (xargs :guard (dec-digit-char-p digit)))
  (b* ((number (mbe :logic (pnumber-fix number)
                    :exec number))
       (digit (mbe :logic (acl2::char-fix digit)
                   :exec digit)))
    (let ((digit (mbe :logic (if (dec-digit-char-p digit) digit #\0)
                      :exec digit)))
      (cons :number-digit (list number digit)))))