anchor.diff:  
   (define-js-std-macro function (&rest x)
     (with (e `(function ,@x))
  +    (when (and x
  +			   (= 1 (length x))
  +			   (atom (car x)))
  +	  (transpiler-add-wanted-function *js-transpiler* (car x)))
       (unless x
         (error "FUNCTION expects arguments"))
       (if (atom (car x))
  
positive.code:     (transpiler-obfuscate-symbol *js-transpiler* name)
  	(unless (in? name 'apply)
  	  (acons! name args (transpiler-function-args tr)))
      `(%setq ,name
  		    #'(,args
      		     ,@(if (and (not *assert*)
  			    	        (stringp (first body)))
  					   (cdr body)
  					   body)))))
  
  (define-js-std-macro defmacro (name args &rest body)
    (progn
  
negative.code: 	   (%var ,name)
  	   (%setq ,name  ,val))))
  
  (define-js-std-macro funcall (fun &rest x)
    `(,fun ,@x))
  
  (define-js-std-macro apply (&rest x)
    `(%apply ,@x))
  
  (define-js-std-macro slot-value (place slot)
    `(%slot-value ,place ,(second slot)))
  
  