anchor.diff:  
   
   (defclass buffer (object)
  -  ((de-sim.core:description
  +  ((description
       :initform "buffer")
  -   (de-sim.core:notifications
  +   (notifications
       :initform (list #'n-input
   		    #'n-output))
  -   (de-sim.core:subscribable-states
  +   (subscribable-states
       :initform (list :input
   		    :output
   		    :full
  
positive.code: (defpackage :org.altervista.rjack.de-sim.buffer
    (:nicknames :de-sim.buffer)
    (:use :common-lisp :de-sim.core :de-sim.util)
    (:export))
  
  (in-package :de-sim.buffer)
  
  
negative.code:    (elements
      :initform (list)
      :accessor elements-of
      :type list)))
  
  
  
  
  (defmethod fits? ((buf buffer) (obj object))
    t)
  
  
  (defmethod full? ((buf buffer))
    nil)
  
  
  (defmethod empty? ((buf buffer))
    (null (elements-of buf)))
  
  
  (defmethod n-input ((buf buffer) (new object))
  