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:     (multiple-value-bind (_ sub-wikia)
  	(cl-ppcre:scan-to-strings "http:\/\/(.*\.wikia)"
  						   url)
        (values title (subseq (elt sub-wikia 0) 0 (- (length (elt sub-wikia 0)) 6))))))
      
      
  
  	     
    
    (multiple-value-bind (url-end url-start)
        (search-add *WIKIA-SEARCH-STRING* comment)
      (let ((wikia-title-start (1+ (position #\/ comment
  					   :from-end t
  					   :end url-start)))
  	  (title-end (or (find-multiple comment *URL-ENDING-CHARS* url-end)
  			 (length comment))))
        (values (subseq comment url-end title-end)
  	      (subseq comment wikia-title-start url-start)))))
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*))
  
  