-(defmethod %output-event ((format (eql :raw)) stream utime type channel source text
- msg unichannel)
- (declare (ignore unichannel))
- (format stream "~S~%" (string-right-trim '(#\return) (raw-message-string msg))))
+(defmethod %output-event ((format (eql :raw)) stream utime type channel source
+ text msg unichannel)
+ (declare (ignore utime type channel source text text unichannel ))
+ (format stream "~S~%" (string-right-trim '(#\return)
+ (raw-message-string msg))))