anchor.diff:      (cond ((string= meaning #\")
   	   (parse-string stream))
   	  ((string= meaning #\{)
  -	   (read-hash stream))
  +	   (read-object stream))
   	  ((string= meaning #\[)
   	   (read-array stream))
   	  ((char= (peek-char nil stream) #\t)
  
positive.code: 			      (find char +space-characters+))))
      (unread-char char stream)))
  
  (let ((nr 0)
        (char #\ ))
    (declare (type fixnum nr)
  
negative.code: 
  (defparameter *hash-table* (make-hash-table :test 'equal))
  
  (defun read-object (stream)
    "reads a key-value pair into the hash"
    (let ((obj nil))
      (loop do (push (cons (read-key stream) (read-value stream)) obj)
         until (progn (skip-spaces stream) (string= (read-char stream) #\}))) ; we may read-char here, as the character is a , to be skipped if it is not a }
      obj))
  
  (let ((nr 0))
    (declare (type fixnum nr))
  