anchor.diff:    (:use cl userial anaphora))
   
   (in-package :channel-sample)
  -
  -(eval-when (:compile-toplevel :load-toplevel :execute)
  -  (defvar *channel-components* (make-hash-table)))
   
   (defclass channel-component ()
     ((channel-slots :accessor channel-slots-of
  
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: (defchannel-decoder ordered (channel recipient packet)
    (setf (ordered-sequence-number-of packet) (unserialize :uint16)))
  
  
  #+notyet
  (defchannel ordered-channel (ordered))
  