Function: P-MAKE-ARRAY

Source

(defun p-make-array (dimensions &rest options &key &allow-other-keys)
  (let ((contents (apply #'make-array dimensions options)))
    (make-persistent-data 'persistent-array contents)))