(define-record foo bar baz)

(define-record-printer (foo obj port)
  (write (list (cons 'bar (foo-bar obj))
               (cons 'baz (foo-baz obj)))))

(define (introspect-foo obj)
  (with-input-from-string
      (with-output-to-string (cut display obj))
    read))

(define foo (make-foo 'bar 'baz))

(pp (introspect-foo foo))