Function: SETF OBJECT-VERSION-LIST

Documentation

Let the (previous pointer of the) object in YOUNG-BLOCK point to OLD-BLOCK.

Source

(defun (setf object-version-list) (old-block young-block heap)
  "Let the (previous pointer of the) object in YOUNG-BLOCK point to
OLD-BLOCK."
  (let ((stream (heap-stream heap)))
    (file-position stream (+ young-block (block-header-size heap)))
    (serialize-previous-version-pointer old-block stream))
  old-block)