gistfile1.lisp

(class +Person +Entity)
(rel nm (+Need +Sn +Idx +String))      # Name
(rel pa (+Joint) kids (+Man))          # Father
(rel ma (+Joint) kids (+Woman))        # Mother
(rel mate (+Joint) mate (+Person))     # Partner
(rel job (+Ref +String))               # Occupation
(rel dat (+Ref +Date))                 # born
(rel fin (+Ref +Date))                 # died
(rel txt (+String))                    # Info

(de person ()
  (app)
  (action
    (html 0 NIL "@lib.css" NIL
      (form NIL
        (gui '(+E/R +TextField +able) '(txt : home obj) 40)
        (saveButton) ) ) ) )

### RUN ###
(de main ()
   (pool "family") )

(de go ()
   (rollback)
   (server 8080 "!person") )