You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

37 lines
770 B

(in-package :nea/irc)
(defclass irc-message ()
:initarg :tags
:initform nil
:accessor message-tags)
:initarg :source
:initform nil
:accessor message-source)
:initarg :command
:accessor message-command)
:initarg :parameters
:initform nil
:accessor message-parameters)))
(defclass irc-message-source ()
:initarg :nick
:initform nil
:accessor message-source-nick)
:initarg :user
:initform nil
:accessor message-source-user)
:initarg :host
:accessor message-source-host)))
(defclass irc-message-notrailing (irc-message) ())
(defun with-irc-source (message source)
(setf (slot-value message 'source) source)