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* skip-spaces subseq-until subseq-until/ subseq-tree))
  +(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"
  
positive.code:     (next-char buffer)
      r))
  
  (defun read-number (buffer)
    (declare (type buffer buffer))
    ;;  (format T "(~C)" (current-char buffer))
    (let ((whole-part (parse-integer (subseq-until buffer "]},.")))) ;; only these chars can delimit the whole part of a number 
      (if (eql (current-char buffer) #\.)
  	(progn 
  	  (next-char buffer)
  	  (let ((float-part (parse-integer (subseq-until buffer "]},.")))) ;; only these characters are allowed to actually end a number
  	    (+ whole-part (/ float-part (the integer (expt 10 (mark-length buffer)))))))
  	whole-part)))
  
  (defun skip-number (buffer)
    (declare (type buffer buffer))
  
negative.code:   (loop do (next-char/ buffer)
       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)
    "Skips characters until one of the characters in <char-arr> has been found.  The character which was found is not read from the buffer."
    (declare (type simple-string char-arr)
     	   (type buffer buffer))
    (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))
  