anchor.diff:  
   
   ;;;-----------------------------------------------------------------------------
  -;;; BUFFER CLEAR-INPUT
  +;;; Buffer CLEAR-INPUT
   ;;;-----------------------------------------------------------------------------
   
   (defmethod buffer-clear-input ((buffer single-channel-buffer))
  
positive.code: 
  
  ;;;-----------------------------------------------------------------------------
  ;;; BUFFER FLUSH-OUTPUT
  ;;;-----------------------------------------------------------------------------
  
  (defmethod buffer-flush-output ((buffer single-channel-buffer) &optional timeout)
  
negative.code: 
  
  ;;;-----------------------------------------------------------------------------
  ;;; Buffer CLEAR-OUTPUT
  ;;;-----------------------------------------------------------------------------
  
  (defmethod buffer-clear-output ((buffer single-channel-buffer))
  