Method: (CACHE-CREATE-OBJECT T STANDARD-CACHE)

Source

(defmethod cache-create-object (object (cache standard-cache))
  ;; This is called by a before method on SHARED-INITIALIZE and
  ;; by MAKE-PERSISTENT-DATA.
  (let ((id (new-object-id (object-table (heap cache)))))
    ;; Add to dirty objects.
    (transaction-touch-object (current-transaction) object id)
    id))