anchor.diff:  (defvar *fingerprint-length* 5)
   (defvar *fingerprint* #(82 111 98 105 110))
   (defvar *token-length* 128)
  +(defvar *user-tokens-path* #p"/etc/hermes/")
   
   (defun main (&rest args)
     (declare (ignore args))
  
positive.code:       (loop
           do (let ((socket (sockets:accept-connection server :wait t)))
                (when (> (read-sequence user-buffer socket) 0)
                  (write-byte (if (can-login-p (buffer-to-string user-buffer))
                                  1
                                  0)
                              socket)
                  (close socket)))))))
  
  (defun buffer-to-string (buffer)
  
negative.code:         (timing-safe-compare user-token device-token *token-length*)))))
  
  (defun read-user-token (user)
    (read-token (merge-pathnames user *user-tokens-path*)))
  
  (defun read-device-token (device)
    (read-token device 5))
  