anchor.diff:  (defun run ()
     (flet ((message-received-hook (message)
   	   (let* ((arguments (irc:arguments message))
  +		  (contents (second arguments))
   		  ;;(channel (first arguments))
  -		  (contents (second arguments))
   		  ;;(sender (irc:source message))
   		  (split (split-sequence:split-sequence #\Space contents))
   		  (head (first split))
  
positive.code: (eval-when (:compile-toplevel :load-toplevel :execute) (declaim (optimize (debug 3))))
  
  (eval-when (:compile-toplevel :load-toplevel :execute) (ql:quickload :cl-irc))
  (eval-when (:compile-toplevel :load-toplevel :execute) (ql:quickload :cl+ssl))
  (eval-when (:compile-toplevel :load-toplevel :execute) (ql:quickload :split-sequence))
  (eval-when (:compile-toplevel :load-toplevel :execute) (ql:quickload :trivial-shell))
  
  (defpackage :lispbot (:use :common-lisp :irc :cl+ssl :split-sequence)
  	    (:export :run :part))
  (in-package :lispbot)
  
  (defparameter *connection* nil)
  
negative.code: 	       ("source"
  		(irc:privmsg *connection* "#bots" "https://github.com/fouric/lispbot"))))))
      (unless *connection*
        (setf *connection* (irc:connect :nickname "lispbot"
  				      :server "irc.cat.pdx.edu"
  				      :port 6697
  				      :connection-security :ssl)))
      (let ((auth-file (open "auth.dat")))
        (let ((auth-data (read auth-file)))
  	(irc:join *connection* "#bots" :password (getf auth-data :key)))
        (close auth-file))
      (irc:add-hook *connection* 'irc:irc-privmsg-message #'message-received-hook)
      (irc:read-message-loop *connection*)))
  