anchor.diff:  	   (%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)))
   
  
positive.code: 
  (define-js-std-macro function (&rest x)
    (with (e `(function ,@x))
      (unless x
        (error "FUNCTION expects arguments"))
      (if (atom (car x))
  
negative.code:   (if (and (consp x)
  		   (or (keywordp (first x))
  			   (stringp (first x))))
  	  `(make-hash-table
  		 ,@(mapcan #'((x)
  						(list (if (and (not (stringp (first x)))
  									   (eq :class (first x)))
  								  "class" ; IE6 wants this.
  								  (first x))
  							  (second x)))
  				   (group x 2)))
  	  `(%new ,(first x)
  			 ,@(if (transpiler-function-arguments? *js-transpiler* (first x))
  			       (argument-expand-compiled-values
  