Tutorial: LFE Records

(defmodule person
  (export (print-data 0)))

(defrecord person
  name
  address
  age)

(defun print-data ()
  (let ((ford (make-person name '"Ford Prefect"
                           address '"Betelgeuse Seven"
                           age 234)))
    (: io format '"~p~n" (list ford))
    (: io format '"~p~n" (list (person-name ford)))
    (: io format '"~p~n" (list (person-address ford)))
    (: io format '"~p~n" (list (person-age ford)))))