anchor.diff:  ; n-output-should-end
   
   
  -(in-package :de-sim.buffer)
   
   
   (defgeneric fits? (buf obj)
  
positive.code:   ((de-sim.core:description
      :initform "buffer")
     (de-sim.core:notifications
      :initform (list #'n-inserted
  		    #'n-removed
  		    #'n-input-bandwidth-changed
  		    #'n-output-bandwidth-changed
  		    #'n-input-started
  		    #'n-input-ended
  		    #'n-output-started
  		    #'n-output-ended))
     (input-bandwidth
      :initarg :input-bandwidth
      :initform -1
      :accessor input-bandwidth-of
      :type fixnum
      :documentation "Negative means infinite")
     (outgoing-bandwidth
      :initarg :outgoing-bandwidth
      :initform -1
      :accessor outgoing-bandwidth-of
      :type fixnum
      :documentation "Negative means infinite")
     (elements
      :initform (list)
      :accessor elements-of
      :type list)
     (outgoing-element
      :initform nil
      :accessor outgoing-element-of
      :type object)
     (incoming-element
      :initform nil
      :accessor incoming-element-of
      :type object)
     (size-fn
      :initarg :size-fn
      :initform (error ":size-fn missing")
      :accessor size-fn-of
      :type function)
     (capacity
      :initform -1
      :accessor capacity-of
      :type fixnum
      :documentation "Negative means infinite")))
  
  
  (defmethod fits? ((buf buffer) (obj object))
  
negative.code:   (:use :common-lisp :de-sim.core :de-sim.util)
    (:export))
  
  (in-package :de-sim.buffer)
  
  
  
  
  ;; OVERVIEW
  
  