(ql:quickload '(maiden maiden-irc maiden-commands maiden-silly))

(defvar *core* (maiden:make-core
                '(:maiden-irc :nickname "MaidenTest"
                  :host "irc.synirc.net"
                  :channels ("#yospos"))
                 :maiden-commands
                 :maiden-silly))