anchor.diff:  
   (defclass player (creature-controller)
     ((player-id :type (unsigned-byte 128) :accessor player-id
  -              :initform (binary<-uuid (uuid:make-v4-uuid)))
  +              :initform (binary<-uuid (uuid:make-v4-uuid))
  +              :documentation  "A  128-bit  unique  identifier  for  this
  +player, used  internally. We  are generating  these using  v4-UUID's, at
  +least for now, although other than being a positive integer, I would not
  +recommend making any assumptions about their internal format.")
      (player-email :type (or string null) :accessor player-email
  -                 :initform :email)
  +                 :initform :email
  +                 :documentation "The  primary e-mail  address associated
  +with this player.  The player's contact methods list  may have alternate
  +addresses, and there  is no guarantee that this “primary”  address is as
  +good as, much less better than, any  of them. This value may be used for
  +display  only,  but before  actually  sending  mail, visit  the  contact
  +methods list and find the actual best address.
  +
  +This may also be NIL.")
      (player-given-name :type (or string null) :accessor player-given-name
  -                      :initform :given-name)
  +                      :initform :given-name
  +                      :documentation "The player's  given name (usually,
  +first name) if one is known. This may be NIL.")
      (player-surname :type (or string null) :accessor player-surname
  -                   :initform :surname)
  +                   :initform :surname
  +                   :documentation "The player's surname (family name, or
  +last name) if one is known. This may be NIL.")
      (player-full-name :type (or string null) :accessor player-full-name
  -                     :initform :full-name)
  +                     :initform :full-name
  +                     :documentation "The  player's full  name, formatted
  +as they  like it. This might  include honorifics or titles;  there is no
  +safe way to convery between this and the given name and surname.")
      (player-date-of-birth :type (or local-time:date null) :accessor player-date-of-birth
  -                         :initform :date-of-birth)
  +                         :initform :date-of-birth
  +                         :documentation "The player's date of birth, if it is known.")
      (player-age :type (or (real 0 *) null) :accessor player-age
  -               :initform :age))
  +               :initform :age
  +               :documentation  "The  player's  age,   if  it  is  known.
  +Note that the reader method will  compute the age from the date-of-birth
  +when one is present."))
     (:documentation "A class representing a player who is a human being in
    the real world."))
   
   (defun legal-age (date-of-birth)
  +  "The age of  a person born on DATE-OF-BIRTH, right  now. This uses the
  +legal definition  that the  person's age increments  at the  midnight of
  +their date  of birth  each year,  with the date  29 February  treated as
  +1 March on non-leap-years.
  +
  +The time  zone used for  this computation  is the not  defined, however,
  +yielding  rather  irregular  behaviour   depending  on  time  zones  and
  +the like.
  +
  +TODO: Determine  in what  time zone  we should  computer this  for legal
  +reasons, eg, COPPA."
     (multiple-value-bind (msec sec min hour day month year)
         (local-time:decode-timestamp (local-time:now))
       (declare (ignore msec sec min hour))
  
positive.code: 
  Methods on this  generic function specialize upon the  REGISTRAR and may
  return   NIL;   in   which   case,  the   :AROUND   method   will   call
  MAKE-USER-REGISTRATION  to instantiate  a  record. Otherwise,  methods
  should return a unique user ID previously assigned by that function.
  
  The default method should suffice for many types of registrars."))
  
negative.code:      collect (get-text-of-element story tag)))
  
  (defun tootsbook-headline-stories ()
    "Returns  the  headline  elements   (DOM  objects)  from  the  current
  headlines on Tootsbook."
    (dom:get-elements-by-tag-name
     (dom:document-element
      (tootsbook-headlines)) "item"))
  
  (defun unescape-& (string)
    "Replaces SGML-style &amp; with #\&"
    (cl-ppcre:regex-replace-all "&amp;" string "&"))
  
  (defun get-text-of-element (node element)
    "Extracts  the  text  under  the  given ELEMENT  type  under  NODE  as
  a singular string."
    (apply #'concatenate 'string
           (map 'list (compose #'unescape-& #'dom:node-value)
                (dom:child-nodes
  