anchor.diff:  (defvar *rc-file* "~/.lotzorc")
   
   (defvar *channels* '("#lotzo"))
  -(defvar *servers* '("eu.undernet.org"))
  +(defvar *servers* '("irc.freenode.net"))
   (defvar *port* 6667)
  -(defvar *nick* "Lotzo")
  +(defvar *nick* "LotzoBeta")
   
   (defvar *channel-join-msg* "Hello")
   
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;
  ;;Lotzo bot framework
  ;;;;;;;;;;;;;;;;;;;;;;
  
  ;;TODO: improve module system so we can load, unload and reload modules
  ;;TODO: maybe remove the package stuff for modules
  ;;TODO: change modules spec to allow init and shutdown of modules
  ;;TODO: at specific time
  ;;TODO: change the rc-file stuff
  (in-package :lotzo)
  
  
  
negative.code:                                         ;(format t "Received:~S~%" *reply*))
  
  (defun eval-input ()
    (format t "irc input: ~A~%" *reply*)
    (setq splited-input (split-string *reply* #\Space))
    (cond ((string-equal (first splited-input) "NOTICE") ;;NOTICE
           (format t "NOTICE: ~S~%" *reply*))
  
          ((string-equal (first splited-input) "PING") ;;PING?PONG!
           (format t "PING? PONG!~%")
           (send (concatenate 'string "PONG "
                              (string (second splited-input)))
                 *irc-socket*))
  
  
          ((string-equal (first splited-input) "ERROR") ;;ERROR
  