anchor.diff:  		    #'(lambda ,args
       		    ,@body))))
   
  +(define-js-std-macro slot-value (x y)
  +  `(%slot-value ,x ,(second y)))
  +
   (define-js-macro function (x)
     (if (atom x)
   	  x
         `("function " ,@(transpiler-binary-expand
   				      ","
  -				      (argument-expand (lambda-args x) nil nil))
  +				      (argument-expand 'unnamed-js-function
  +									   (lambda-args x) nil nil))
   	  ,(code-char 10)
   	  "{" ,(code-char 10)
         ,@(lambda-body x)
  
positive.code: ;;;; Symbol replacement definitions.
  
  (transpiler-translate-symbol *js-transpiler* nil "null")
  (transpiler-translate-symbol *js-transpiler* t "false")
  
  ;;; Numbers, arithmetic and comparison.
  
  
negative.code: 											""))))
  	(eval (+ "fun (" args ")"))
  	(x.shift)))
  
  (%transpiler-native "function maphash (fun, hash) { for (i in hash) fun (i); return null; }")
  ))
  