anchor.diff:  (deftable rsn-auth-realm
     (!dao-def))
   
  -; (defprepared public-realms-name
  -;   (:select 'name :from 'public-realms :where (:= 'name '$1))
  -;   :single!)
  -; (defprepared public-realms-last-modified
  -;   (:select 'last-modified :from 'public-realms :where (:= 'name '$1))
  -;   :single!)
  -; (create-table 'public-realms)
  -
   ;;;; GROUP TABLE
   
   (defclass rsn-auth-group ()
  
positive.code:   (:select 'id :from 'rsn-auth-user :where (:= 'username '$1))
    :single!)
  
  ; (defprepared public-user-username
  ;   (:select 'username :from 'public-user :where (:= 'username '$1))
  ;   :single!)
  ; (defprepared public-user-first-name
  ;   (:select 'first-name :from 'public-user :where (:= 'username '$1))
  ;   :single!)
  ; (defprepared public-user-last-name
  ;   (:select 'last-name :from 'public-user :where (:= 'username '$1))
  ;   :single!)
  ; (defprepared public-user-email
  ;   (:select 'email :from 'public-user :where (:= 'username '$1))
  ;   :single!)
  ; (defprepared public-user-group
  ;   (:select 'group :from 'public-user :where (:= 'username '$1))
  ;   :single!)
  ; (defprepared public-user-password
  ;   (:select 'password :from 'public-user :where (:= 'username '$1))
  ;   :single!)
  ; (defprepared public-user-is-active
  ;   (:select 'is-active :from 'public-user :where (:= 'username '$1))
  ;   :single!)
  ; (defprepared public-user-last-modified
  ;   (:select 'last-modified :from 'public-user :where (:= 'username '$1))
  ;   :single!)
  
  ; (create-table 'public-user)
  
  ;;;; SESSION TABLE
  
  (defclass rsn-auth-session ()
  
negative.code: (deftable rsn-auth-group
    (!dao-def)
    (!foreign 'rsn-auth-realm 'realm-id :primary-key :on-delete :cascade :on-update :cascade))
  
  ;;;; USER TABLE (new, ignore the one further down...)
  
  