anchor.diff:  
   (defun handle-if-redirect (summary sub-wikia)
     "If the abstract contains a redirect, that is returned to be the new title value"
  -  (let ((redirect (search *REDIRECT-STRING* summary)))
  +  (let ((redirect (search-add *REDIRECT-STRING* summary)))
       (if redirect
  -	(summarize sub-wikia (subseq summary (+ redirect (length *REDIRECT-STRING*))))
  +	(summarize sub-wikia (subseq summary redirect))
   	summary)))
   
   (defun get-json (sub-wikia &key title page-id (action 'Details))
  
positive.code:       number
        (write-to-string number)))
  
  ;; 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.
  
negative.code: 	(lambda (err)
  	  (declare (ignore err))
  	  (invoke-restart 'json:substitute-char "?"))))
      (loop while t do
  	 (let ((comments (get-new-comment-data (get-all-comments))))
  	   (loop
  	      for comment in comments
  	      do (multiple-value-bind (title sub-wikia)
  		     (find-wikia-reference (cdr comment))
  		   (when title
  		     (reply-to-comment user (car comment)
  				       (summarize sub-wikia title))))
  	      finally
  		(sleep 1))))))
  
  (defun find-wikia-reference (comment)
    "Searches the comment for any reference to a wikia link.
    Returns the title and the sub-wikia the reference was found on"
    
    (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)))))