Raw constructor for honsed sd-problem-p structures.
Syntax:
(honsed-sd-problem type priority groupsize key ctx)
This is identical to sd-problem, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-sd-problem (type priority groupsize key ctx) (declare (xargs :guard (and (symbolp type) (natp priority) (natp groupsize) (sd-key-p key) (vl-context1-p ctx)))) (mbe :logic (sd-problem type priority groupsize key ctx) :exec (hons :sd-problem (hons (hons type priority) (hons groupsize (hons key ctx))))))