anchor.diff:  		     ;(reply-to-comment *USER* (car comment)
   	;			       (summarize sub-wikia title))))
   	      finally
  -		(sleep 1))))))
  +		(sleep 2)))))
   
   (defun find-wikia-reference (comment)
     "Searches the comment for any reference to a wikia link.
  
positive.code: (defun get-all-comments ()
    "Grab the next set of (25) comments"
    (yason:parse
     (drakma:http-request "http://reddit.com/comments.json"
  			:method :get
  			:user-agent cl-reddit:*user-agent*
  			:preserve-uri t)))
  
negative.code: 
  (defun grab-comments-continuously ()
    "Grabs all new comments that are posted to Reddit continuously"
  ;  (handler-bind
  ;      ((json:unencodable-value-error
  ;	(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 ;(format t "~a" (find-wikia-reference (cl-reddit:comment-body comment)))
  	 	(multiple-value-bind (title sub-wikia)
  		     (find-wikia-reference (cl-reddit:comment-body comment))
  		   (when title ;(not (replied-yet-p *USER* comment)))
  		     (format t "Summary: ~a ~c Body: ~a"
  			     (summarize sub-wikia title)
  			     #\NewLine
  