(and (pathnamep user-output) (null (pathname-name user-output))))
(defun do-connect-and-join (nick server port username realname logging-stream channels)
(and (pathnamep user-output) (null (pathname-name user-output))))
(defun do-connect-and-join (nick server port username realname logging-stream channels)
(let ((conn (connect :nickname nick :server server :port port
:username username :realname realname
:logging-stream logging-stream)))
(let ((conn (connect :nickname nick :server server :port port
:username username :realname realname
:logging-stream logging-stream)))
-(defmethod cl-irc::irc-message-event :around ((msg cl-irc::irc-message))
- (let ((result (call-next-method msg)))
+(defmethod cl-irc::irc-message-event :around (connection (msg cl-irc::irc-message))
+ (let ((result (call-next-method connection msg)))
(typecase msg
((or irc::irc-privmsg-message irc::ctcp-action-message irc::irc-nick-message
irc::irc-part-message irc::irc-quit-message irc::irc-join-message
(typecase msg
((or irc::irc-privmsg-message irc::ctcp-action-message irc::irc-nick-message
irc::irc-part-message irc::irc-quit-message irc::irc-join-message
(create-logger nick server :port port :channels channels :output output
:logging-stream logging-stream :password password
:realname realname :username username
(create-logger nick server :port port :channels channels :output output
:logging-stream logging-stream :password password
:realname realname :username username
(create-logger nick server :port port :channels channels :output output
:logging-stream logging-stream :password password
:realname realname :username username
(create-logger nick server :port port :channels channels :output output
:logging-stream logging-stream :password password
:realname realname :username username