anchor.diff:        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.
  
positive.code: (defconstant *TEXT-START* "abstract\":")
  (defconstant *DISAMBIGUATION* "disambiguation")
  (defconstant *PUNCTUATION* (list #\! #\? #\.))
  
  (setq drakma:*text-content-types* (cons '("application" . "json") drakma:*text-content-types*))
  
  
negative.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-add *REDIRECT-STRING* summary)))
      (if redirect
  	(summarize sub-wikia (subseq summary redirect))
  	summary)))
  
  (defun get-json (sub-wikia &key title page-id (action 'Details))
  