anchor.diff:  (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
  
positive.code:      until (eql (current-char buffer) last-char)))
  
  (defun char-in-arr (char char-arr)
    "Returns T if <char> is found in <char-arr>, returns nil otherwise"
    (declare (type simple-string char-arr)
  	   (type character char))
    (loop for c across char-arr
       when (eql char (the character c))
       do (return-from char-in-arr T))
    nil)
  
  (defun skip-until* (buffer char-arr)
  
negative.code:   (flet ((char-in-arr () ;; TODO I can use char-in-arr
  	   (loop for c across char-arr
  	      when (eql (current-char buffer) (the character c))
  	      do (return-from char-in-arr t))
  	   nil))
      (mark-buffer buffer)
      (loop until (char-in-arr)
  