anchor.diff:    POST: returns a list containing all read objects
     POST: the buffer's index is right after the ending ]"
     (declare (type buffer buffer))
  -  (let ((r
  -	 (loop 
  -	    until (progn (skip-until* buffer ",][")
  -			 (eql (current-char buffer) #\]))
  -	    collect (progn
  -		      (next-char buffer)
  -		      (read-value buffer)))))
  -    (declare (type (or cons nil) r))
  -    (next-char buffer)
  -    r))
  +  (loop 
  +     until (progn (skip-until* buffer ",][") ; the [ is included as a shortcut for kickstarting the skipping of values.  This could be refactored for a minor speed bump on spaces.
  +		  (eql (fetch-char buffer) #\])) ; fetch-char reads the character from the stream, thus forwarding us to the correct position for skip-value and dropping the last #\] from the line.
  +     collect (progn
  +	       (read-value buffer))))
   
   (eval-when (:compile-toplevel)
     (defun create-parse-number-code (&key exponent-p float-p)
  
positive.code: 
  (defun skip-string (buffer)
    (declare (type buffer buffer))
    "Skips the contents of an input string from the buffer.  Assumes the first #\" hasn't been read"
    (next-char buffer)
    (skip-to/ buffer #\"))
  
  
negative.code:  Skips #\\"
    (declare (type buffer buffer)
  	   (type character end-char))
    (next-char buffer)
    (mark-buffer buffer)
    (decr-char buffer)
    (let ((accepted-p nil))
  