(let ((reader (reader-function 'pointer)))
#'(lambda (location &optional (offset 0) weak-p)
(declare (ignore weak-p))
(%tree-path-to-vector (funcall reader location offset)))))
(let ((reader (reader-function 'pointer)))
#'(lambda (location &optional (offset 0) weak-p)
(declare (ignore weak-p))
(%tree-path-to-vector (funcall reader location offset)))))