anchor.diff:    (values buffer))
    
  +
   ;;;-----------------------------------------------------------------------------
   ;;; Buffer DEVICE-READ
   ;;;-----------------------------------------------------------------------------
  
positive.code: 
  
  ;;;-----------------------------------------------------------------------------
  ;;; BUFFER FILL-INPUT
  ;;;-----------------------------------------------------------------------------
  
  (defmethod buffer-fill-input ((buffer single-channel-buffer) &optional timeout)
  
negative.code: 
  
  ;;;-----------------------------------------------------------------------------
  ;;; Buffer FLUSH-OUTPUT
  ;;;-----------------------------------------------------------------------------
  
  (defmethod buffer-flush-output ((buffer single-channel-buffer) &optional timeout)
  