anchor.diff:  (defun hashkeys (x)
     (with-queue q
       (maphash #'((k v)
  -				 (enqueue q k))
  +                 (unless (%%%= "~~id" (k.substr 0 4))
  +				   (enqueue q k)))
                x)
       (queue-list q)))
   
  
positive.code: (defvar *obj-id-counter* 0)
  
  (defun %href-object-key (key)
    (string-concat "_caroshi_obj" key._caroshi-object-id))
  
  (defun %href-make-object-key (key)
    (unless (defined? key._caroshi-object-id)
  
negative.code:   (when (or a b)
      (unless a
        (setf a (make-hash-table)))
      (%setq nil (%transpiler-native "for (var " k " in " b ") if (" k ".substr (0,4) != \"~~id\") " a "[" k "]=" b "[" k "];"))
      a))
  
  (defun copy-hash-table (x)
  