anchor.diff:    :test 'equal)
   
   (defroute "/tootstest/zomg" ()
  +  "Zombies! Oh, my God! — The  client-side can report its crashes to the
  +host-side, here. The crash report should arrive in JSON format."
     (assert (string-equal +application/json+ (request-content-type *request*)
                           :end2 #.(length +application/json+))
             () "Zombies should always use JSON, not ~a" (request-content-type *request*))
  
positive.code: 
  (defclass player (creature-controller)
    ((player-id :type (unsigned-byte 128) :accessor player-id
                :initform (binary<-uuid (uuid:make-v4-uuid)))
     (player-email :type (or string null) :accessor player-email
                   :initform :email)
     (player-given-name :type (or string null) :accessor player-given-name
                        :initform :given-name)
     (player-surname :type (or string null) :accessor player-surname
                     :initform :surname)
     (player-full-name :type (or string null) :accessor player-full-name
                       :initform :full-name)
     (player-date-of-birth :type (or local-time:date null) :accessor player-date-of-birth
                           :initform :date-of-birth)
     (player-age :type (or (real 0 *) null) :accessor player-age
                 :initform :age))
    (:documentation "A class representing a player who is a human being in
   the real world."))
  
  (defun legal-age (date-of-birth)
    (multiple-value-bind (msec sec min hour day month year)
        (local-time:decode-timestamp (local-time:now))
      (declare (ignore msec sec min hour))
  
negative.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."))
  