anchor.diff:    "Returns a subsequence of stream, reading everything before a character belonging to char-arr is found.  The character which was found is not read from the buffer"
     (declare (type buffer buffer)
   	   (type simple-string char-arr))
  -  (flet ((char-in-arr ()
  +  (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))
  
positive.code: ;;;;;;;;;;;;;;;;;
  ;;;; parsing code
  
  ;;(eval-when (:compile-toplevel)
  ;; (defconstant +space-characters+ '(#\Return #\Space #\Newline #\Tab #\Linefeed)
  ;;   "List of characters which may denote a space in the JSON format (these have not been verified)")
  ;;  )
  
  (eval-when (:compile-toplevel :load-toplevel)
    (defconstant +do-skip-spaces+ nil
  
negative.code: 			   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* skip-spaces subseq-until subseq-until/ subseq-tree char-in-arr))
  (defun next-char (buffer)
    (declare (type buffer buffer))
    "Sets the pointer to the next char in the buffer"
  