anchor.diff:  ;;;; ARRAYS
   
   (define-js-macro make-array (&rest elements)
  -  `("[" ,@(transpiler-binary-expand "," elements) "]"))
  +  `(%transpiler-native "[" ,@(transpiler-binary-expand "," elements) "]"))
   
   (define-js-macro aref (arr &rest idx)
  -  `(,arr ,@(mapcar (fn `("[" ,_ "]")) idx)))
  +  `(%transpiler-native ,arr
  +     ,@(mapcar (fn `("[" ,_ "]"))
  +               idx)))
   
   (define-js-macro %%usetf-aref (val &rest x)
  -  `(aref ,@x) "=" ,val)
  +  `(%transpiler-native (aref ,@x) "=" ,val))
   
   ;;;; HASH TABLES
   
  
positive.code: 
  (defun js-%setq-0 (dest val)
    `(,*js-indent*
      ,@(if dest
  	      `(,dest "=")
  	      '("")))
  	,(if (or (atom val)
  			 (codegen-expr? val))
  		 val
  
negative.code: 	    "}" ,(code-char 10))))
  
  (define-js-macro %function-prologue (fi-sym)
    `(%transpiler-native ""
  	   ,@(when (transpiler-stack-locals? *js-transpiler*)
  	       `(,*js-indent* "var _locals = []" ,*js-separator*))
  	   ,@(when (< 0 (funinfo-num-tags (get-lambda-funinfo-by-sym fi-sym)))
  	       `(,*js-indent* "var _I_ = 0" ,*js-separator*
  		     ,*js-indent* "while (1) {" ,*js-separator*
  		     ,*js-indent* "switch (_I_) {case 0:" ,*js-separator*))))
  
  (define-js-macro %function-return (fi-sym)
    (let fi (get-lambda-funinfo-by-sym fi-sym)
  