anchor.diff:  (defun deserialize-object (v)
     (bb idx (logand (ref v 0) #x1F)
         class (ref $serializable-classes idx)
  -      (unless class (error "Unknown deserialization index: ~A" idx))
  +      (unless class (error "Unknown deserialization class index: ~A" idx))
         :mv (slot-values v) (deserialize (slice! v 1))
         slot-names (slot-names class)
         o (make-instance class)
  
positive.code:       s (substitute #\_ #\- (string-downcase (princ-to-string l)))
        (values (b58 (slice (sha512 s) 0 16)) s)))
  
  (assert (equal (serialization-hash) "QxT8ErCEhmK886v9mjSAMn"))
  
  ; Set up users and corresponding ratchet sessions
  
  
negative.code: (defv bob (make-sc4-user 'bob))
  (defv charlie (make-sc4-user 'charlie))
  
  (defv rsa (make-ratchet-session))
  (defv rsb (make-ratchet-session))
  (defv rsc (make-ratchet-session))
  
  ; Reset and provision the OTPK server
  (reset $otpk-server)
  