*scratch*.el

(ql:quickload 'lparallel)
(ql:quickload 'cl-irc)
(ql:quickload 'bordeaux-threads)

(let ((chan (lparallel:make-channel))
      (connection (cl-irc:connect :nickname "Ralt__" :server "irc.freenode.net")))
  (cl-irc:add-hook
   connection
   'cl-irc:irc-message
   #'(lambda (msg)
       (lparallel:submit-task chan #'(lambda (m) m))))
  (bt:make-thread #'(lambda ()
                      (cl-irc:read-message-loop connection)))
  (lparallel:receive-result chan))