anchor.diff:  			   string
   			   (coerce string 'simple-string))))
   
  -(declaim (inline next-char next-char/ decr-char current-char peek-behind-char fetch-char subseq-buffer-mark mark-buffer mark-length skip-to skip-to/ skip-until skip-until/ skip-until* subseq-until subseq-until/ subseq-tree char-in-arr))
  +(declaim (inline next-char next-char/ next-char/i decr-char current-char peek-behind-char fetch-char subseq-buffer-mark mark-buffer mark-length skip-to skip-to/ skip-until skip-until/ skip-until* subseq-until subseq-until/ subseq-tree char-in-arr subseq-until/unescape unescape-string/count))
   (defun next-char (buffer)
     (declare (type buffer buffer))
     "Sets the pointer to the next char in the buffer"
  
positive.code:   (declare (type buffer buffer))
    (loop until (progn (skip-until* buffer "\"}")
  		     (when (eql (current-char buffer) #\})
  		       (next-char buffer) T))
       do (progn (skip-key buffer)
  	       (skip-value buffer))))
  
  (defun read-partial-key (buffer tree)
    "reads a key from the buffer. 
    PRE: Assumes the buffer's index is at the starting \" of the key
    POST: Returns (values key T) if the key was found as a valid key in the tree, or (values nil nil) if it was not
    POST: The buffer's index is right after the ending \" of the key"
    (declare (type buffer buffer)
  	   (type (or cons nil) tree))
    (multiple-value-bind (accepted-p solution)
        (subseq-tree buffer #\" tree)
      (declare (type (or nil T) accepted-p)
  	     (type simple-string solution))
      (skip-to/ buffer #\") ;; skip everything we needn't know
      (values accepted-p solution)))
  
negative.code: (in-package :jsown)
  
  (declaim (optimize (speed 3) (safety 0) (debug 0)))
  
  (defconstant +compile-unescape-json-strings+ t
    "Compiles support for unescaping json strings.
   If you set this to nil upon compilation time strings and keywords aren't escaped.  This makes the library incompliant with json, but it does make it a few % faster.
   Could be handy when used in a mapreduce situation where you don't mind debugging and speed is of utmost importance.")
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; character-tree support
  