anchor.diff:  (defchannel-decoder ordered (channel recipient packet)
     (setf (ordered-sequence-number-of packet) (unserialize :uint16)))
   
  +
   #+notyet
   (defchannel ordered-channel (ordered))
  
positive.code: (eval-when (:compile-toplevel :load-toplevel :execute)
    (defun ensure-component (name)
      (acond
        ((gethash name *channel-components*) it)
        (t (let ((n (make-instance 'channel-component)))
             (setf (gethash name *channel-components*) n))))))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defun ensure-slot-generics (slot)
  
negative.code:   (:use cl userial anaphora))
  
  (in-package :channel-sample)
  
  (defclass channel-component ()
    ((channel-slots :accessor channel-slots-of
  