		Search-engine friendly clone of the ACL2 documentation.

Double-array

Make-double-array

Basic constructor macro for double-array structures.

Syntax

(make-double-array [:components <components>])

This is the usual way to construct double-array structures. It simply conses together a structure with the specified fields.

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

Definition

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

Macro: make-double-array

(defmacro make-double-array (&rest args)
  (std::make-aggregate 'double-array
                       args '((:components))
                       'make-double-array
                       nil))

Function: double-array

(defun double-array (components)
  (declare (xargs :guard (double-value-listp components)))
  (declare (xargs :guard (< (len components) (expt 2 31))))
  (let ((__function__ 'double-array))
    (declare (ignorable __function__))
    (b* ((components (mbe :logic (double-value-list-fix components)
                          :exec components)))
      (let ((components (mbe :logic
                             (if (< (len components) (expt 2 31))
                                 components
                               nil)
                             :exec components)))
        (cons :double-array (list components))))))