anchor.diff:  	:std-macro-expander 'js-alternate-std
   	:macro-expander 'javascript
   	:separator (format nil ";~%")
  -	:function-args nil
  +	:unwanted-functions '($ cons car cdr list)
   	:identifier-char?
   	  #'(lambda (x)
   		  (or (and (>= x #\a) (<= x #\z))
  
positive.code: 											""))))
  	(eval (+ "fun (" args ")"))
  	(x.shift)))
  )))
  
negative.code: 				 (x.shift) ; pop off first element from array.
                   (cons a (rec x))))))
      (rec arguments)))
  
  ,(def-js-type-predicate symbolp "symbol")
  ,(def-js-type-predicate consp "cons")
  ,(def-js-type-predicate numberp "Number")
  ,(def-js-type-predicate arrayp "Array")
  ,(def-js-type-predicate stringp "String")
  ,(def-js-type-predicate functionp "Function")
  
  (defun apply ()
    (when (= 0 arguments.length)
  