You are looking at historical revision 2618 of this page. It may differ significantly from its current revision.

regular define-record records don't support genralized set. This macro implements support for binding to srfi-17.

(define-macro (define-gs-record type . fields)

    (define-record ,type ,@fields)
    ,@(map (lambda (f)
             (let* ((getter (string->symbol
                              (symbol->string type)
                              (symbol->string f))))
                    (setter (string->symbol
                              (symbol->string getter)
              (list 'define getter (list 'getter-with-setter getter setter))))

(define-gs-record test a b c)

now you can say (define t (make-test 1 2 3)) (set! (test-a t) 'new-val)