Basic constructor macro for g-cons structures.
(make-g-cons [:car <car>] [:cdr <cdr>])
This is the usual way to construct g-cons structures. It simply conses together a structure with the specified fields.
This macro generates a new g-cons structure from scratch. See also change-g-cons, which can "change" an existing structure, instead.
This is an ordinary
Macro:
(defmacro make-g-cons (&rest args) (std::make-aggregate 'g-cons args '((:car) (:cdr)) 'make-g-cons nil))
Function:
(defun g-cons (car cdr) (declare (xargs :guard (and (fgl-object-p car) (fgl-object-p cdr)))) (declare (xargs :guard t)) (let ((__function__ 'g-cons)) (declare (ignorable __function__)) (b* ((car (mbe :logic (fgl-object-fix car) :exec car)) (cdr (mbe :logic (fgl-object-fix cdr) :exec cdr))) (cons car cdr))))