オブジェクトシステム

クラスとインスタンス
    (define-class <2d-point> ()
      ((x :init-keyword :x :init-value 0)
       (y :init-keyword :y :init-value 0)))

    (define pt (make <2d-point> :x 10 :y 20))
    pt           ⇒ #<<2d-point> 0x80ac8f0>
    (ref pt 'x)  ⇒ 10
    (ref pt 'y)  ⇒ 20
    (set! (ref pt 'x) 30)
    (ref pt 'x)  ⇒ 30