anchor.diff:    (etypecase result
       (null result)
       (integer (if booleanize (= 1 result) result))
  -    (string (if want-octets (babel:string-to-octets result) result))
  -    (vector (if want-octets result (babel:octets-to-string result)))
  +    (string (if want-octets (string-to-octets result) result))
  +    (vector (if want-octets result (octets-to-string result)))
       (cons (map-into result (lambda (x) (translate-result x want-octets booleanize)) result))))
   
   (defun key-sequence (key)
  
positive.code:                        (or channel key)
                         (if (subscription-want-octets subscription)
                             payload
                             (babel:octets-to-string payload))))
              t)))))
  
  ;; Persistence control commands
  
negative.code:           ((equalp kind #(112 117 110 115 117 98 115 99 114 105 98 101))
             (values :unsubscribe key (third event) key))
            ((equalp kind #(112 109 101 115 115 97 103 101))
             (values :message key (fourth event) (octets-to-string (third event))))
            (t (error 'pubsub-bad-event :event event)))))
  
  (define-condition pubsub-spam (pubsub-bad-event)
  