anchor.diff:  (defconstant *TEXT-START* "abstract\":")
   (defconstant *DISAMBIGUATION* "disambiguation")
   (defconstant *PUNCTUATION* (list #\! #\? #\.))
  +(defconstant *WIKIA-SEARCH-STRING* ".wikia.com/wiki/")
  +(defconstant *URL-ENDING-CHARS* (list #\Space
  +				      #\# #\$ #\%
  +				      #\* #\+ #\, #\- #\.
  +				      #\/ #\; #\< #\=
  +				      #\> #\@ #\[ #\\
  +				      #\] #\^ #\` #\{ #\|
  +				      #\} #\~))
   
   (setq drakma:*text-content-types* (cons '("application" . "json") drakma:*text-content-types*))
   
  
positive.code: 
  (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)))
      (if redirect
  	(summarize sub-wikia (subseq summary (+ redirect (length *REDIRECT-STRING*))))
  	summary)))
  
  (defun get-json (sub-wikia &key title page-id (action 'Details))
  
negative.code:       number
        (write-to-string number)))
  
  (defun search-add (sequence1 sequence2)
    "Wrapper around search that also adds the length of sequence1 to the result"
    (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.
  