anchor.diff:  (defun read-name-message (stream)
     (handler-case
         (let ((message-length (read-uint16 stream))
  -            (tag (read-byte stream)))
  -        (if (= tag (char-code #\n))
  +            (tag (read-char stream)))
  +        (if (char= tag #\n)
               (values (read-uint16 stream)
                       (read-uint32 stream)
  -                    (read-bytes-as-string (- message-length 7) stream))
  +                    (read-string (- message-length 7) stream))
               (error 'unexpected-message-tag-error
                      :received-tag tag
  -                   :expected-tags (list (char-code #\n)))))
  +                   :expected-tags (list #\n))))
       (end-of-file () (error 'connection-closed-error))))
   
   
  
positive.code: (defun read-status-message (stream)
    (handler-case
        (let ((message-length (read-uint16 stream))
              (tag (read-byte stream)))
          (if (= tag (char-code #\s))
              (read-bytes-as-string (1- message-length) stream)
              (error 'unexpected-message-tag-error
                     :received-tag tag
                     :expected-tags (list (char-code #\s)))))
      (end-of-file () (error 'connection-closed-error))))
  
  
  
negative.code: (defun read-challenge-ack-message (stream)
    (handler-case
        (let ((message-length (read-uint16 stream))
              (tag (read-char stream)))
          (cond
            ((/= 17 message-length)
             (error 'unexpected-message-length-error
                    :received-length message-length
                    :expected-length 17))
            ((char/= tag #\a)
             (error 'unexpected-message-tag-error
                    :received-tag tag
                    :expected-tags (list #\a)))
            (t
             (read-bytes 16 stream))))
      (end-of-file () (error 'connection-closed-error))))
  