anchor.diff:  	      for comment in comments
   	      do (multiple-value-bind (title sub-wikia)
   		     (find-wikia-reference (cdr comment))
  -		   (when title
  -		     (reply-to-comment user (car comment)
  +		   (when (and title (not (replied-yet-p *USER* comment)))
  +		     (reply-to-comment *USER* (car comment)
   				       (summarize sub-wikia title))))
   	      finally
   		(sleep 1))))))
  
positive.code:   (let ((search-result (search sequence1 sequence2)))
      (if search-result
  	(values (+ (length sequence1) search-result) search-result))))
  
  ;; Macro to allow me to access JSON objects easily using nested assoc accesses
  (defmacro assoc-nest (alist &rest assoc-list)
    "Wrapper for a-lists so that items can be grabbed either by key or index.
    assoc-list is a list of keys/indexes that are accessed sequentually from the
    provided alist. When bounds are overstepped, nil is returned"
    (let ((nested-assoc-accesses (gensym)))
      (setf nested-assoc-accesses alist)
      (loop
         for item in assoc-list
         do
  	 (if (numberp item)
  	     (setf nested-assoc-accesses `(nth ,item ,nested-assoc-accesses))
  	     (setf nested-assoc-accesses `(cdr (assoc ,(intern (string-upcase (symbol-name (cadr item))) "KEYWORD") ,nested-assoc-accesses))))
  	 
         finally (return nested-assoc-accesses))))
  
  
  (defun get-new-comment-data (json)
    "Get the data from the comments in the JSON from http://reddit.com/comments.json"
    (let ((comments (assoc-nest json 'data 'children)))
      (hofeach #'mapcar comment comments
  	(list (assoc-nest comment 'data 'id)
  	      (assoc-nest comment 'data 'body)))))
  
  (defun get-all-comments ()
    "Grab the next set of (25) comments"
    (json:decode-json-from-string
     (drakma:http-request "http://reddit.com/comments.json"
  			:method :get
  			:user-agent cl-reddit:*user-agent*
  			:preserve-uri t)))
  
  ;; TODO: Make the t1_ come about automagically (it's the "kind" value in JSON)
  (defun reply-to-comment (user id text)
    "Posts a reply to the id of the given comment (omit t1_)"
  
negative.code: (eval-when (:compile-toplevel :load-toplevel :execute)
    (require :drakma)
    (require :cl-json)
    (require :yason)
    (require :cl-reddit))
  
  (defparameter *REDIRECT-STRING* "REDIRECT ")
  (defparameter *TEXT-START* "abstract\":")
  (defparameter *DISAMBIGUATION* "disambiguation")
  (defparameter *PUNCTUATION* (list #\! #\? #\.))
  (defparameter *WIKIA-SEARCH-STRING* ".wikia.com/wiki/")
  (defparameter *URL-REGEX-SEARCH-STRING*
    (concatenate 'string
  	       "(http|ftp|https):\/\/([\\w\\-\\_]+(?:(?:\.[\\w\\-\\_]+)+))"
  	       "([\\w\\-\\.,@?'^=%&amp;:/~\+#]*[\\w\\-\\@?'^=%&amp;/~\+#])?"))
  (defparameter *USER* nil)
  
  (setq drakma:*text-content-types* (cons '("application" . "json") drakma:*text-content-types*))
  
  