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