anchor.diff:    (defun get-memo (recipient)
       (multiple-value-bind (memo hasp)
           (gethash recipient memo-table)
  -      (if hasp 
  -	  memo
  -	  nil)))
  +      (if hasp
  +          memo
  +          nil)))
   
     (defun get-and-remove-memo (recipient)
       (let ((memo (get-memo recipient)))
         (remove-memo recipient)
         memo))
  -	  
  +
     (defun erase-all-memos ()
       (clrhash memo-table))
     )
  
positive.code: 
  (defvar *more* "lulz")
  (add-command "think" (lambda (bot args sender channel)
  		       (think bot channel 2)))
  (add-command "echo" (lambda (bot args sender channel)
                       (send-msg bot channel args)))
  (add-command "ping" (lambda (bot args sender channel)
  
negative.code:                              (format nil "~A <~A>" title url)))))
  (add-command "shut" (lambda (bot args sender channel)
                        (send-reply bot sender channel
                                    (format nil "Fine. Be that way. Tell me to talk when you realize ~
                                                just how lonely and pathetic you really are."))
                        (shut-up bot)))
  (add-command "chant" (lambda (bot args sender channel)
                        (send-msg bot channel (format nil "MORE ~:@(~A~)" *more*))))
  