anchor.diff:  		   (loop for char across (the simple-string string) collect char))))
   
   (define-compiler-macro build-character-tree (&whole form &rest strings)
  -  (if (loop for string in strings unless (stringp string) return T)
  +  (if (loop for string in strings unless (stringp string) return t)
         form
         `(quote ,(apply #'build-character-tree strings))))
   
  
positive.code:   (loop do (next-char/ buffer)
       until (eql (current-char buffer) last-char))
    (subseq-buffer-mark buffer))
  
  (defun subseq-tree (buffer end-char tree)
    "Returns a sequence of the buffer, reading everything that matches with the given tree before end-char is found.  end-char is not read from the buffer
  
negative.code: 			   string
  			   (coerce string 'simple-string))))
  
  (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"
  