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