anchor.diff:  
   (defun js-%setq-0 (dest val)
     `(,*js-indent*
  -    ,@(if dest
  -	      `(,dest "=")
  -	      '("")))
  +	(%transpiler-native
  +        ,@(if dest
  +		      `(,dest "=")
  +		      '("")))
   	,(if (or (atom val)
   			 (codegen-expr? val))
   		 val
  
positive.code:      "}")))
  
  (define-js-macro href (arr &rest idx)
    `(,arr ,@(mapcar (fn `("[" ,_ "]")) idx)))
  
  (define-js-macro %%usetf-href (val &rest x)
    `(aref ,@x) "=" ,val)
  
  (define-js-macro hremove (h key)
    `("delete " ,h "[" ,key "]"))
  
  ;;;; OBJECTS
  
  (define-js-macro %new (&rest x)
    `("new " ,(compiled-function-name x.) "(" ,@(transpiler-binary-expand "," .x) ")"))
  
  (define-js-macro delete-object (x)
    `("delete " ,x))
  
  ;;;; META-CODES
  
  
negative.code: 	  x))
  
  (define-js-macro %slot-value (x y)
    `(%transpiler-native ,(if (consp x)
                              x
                              (transpiler-obfuscated-symbol-string *js-transpiler* x))
                         "."
                         ,(if (consp y)
                              y
                              (transpiler-obfuscated-symbol-string *js-transpiler* y))))
  
  ;;;; BACK-END META-CODES
  
  (define-js-macro %stack (x)
    (if (transpiler-stack-locals? *js-transpiler*)
    	  `(%transpiler-native "_locals[" ,x "]")
        (js-stack x)))
  
  ;; Experimental for lambda-export.
  (define-js-macro %vec (v i)
    `(%transpiler-native ,v "[" ,i "]"))
  
  ;; Experimental for lambda-export.
  (define-js-macro %set-vec (v i x)
    `(%transpiler-native (aref ,v ,i) "=" ,x ,*js-separator*))
  
  (define-js-macro %js-typeof (x)
    `(%transpiler-native "typeof " ,x))
  
  (define-js-macro %%funref (name fi-sym)
    (let fi (get-lambda-funinfo-by-sym fi-sym)
  