anchor.diff:  
   (define-js-macro not (x)
     `(%transpiler-native "!" ,x))
  +
  +(define-js-macro %slot-value (x y)
  +  `(%transpiler-native ,(string-concat (transpiler-symbol-string *js-transpiler* x)
  +									   "."
  +									   (transpiler-symbol-string *js-transpiler* y))))
   
   ;    "ELT", "%SET-ELT", "LENGTH",
   ;    "CODE-CHAR", "INTEGER",
  
positive.code: 											""))))
  	(eval (+ "fun (" args ")"))
  	(x.shift)))
  ))
  
negative.code: ;;;; Symbol replacement definitions.
  
  (transpiler-translate-symbol *js-transpiler* nil "null")
  (transpiler-translate-symbol *js-transpiler* t "true")
  
  ;;; Numbers, arithmetic and comparison.
  
  