anchor.diff:  (defun rplacd (x val)
     (setf x.__ val))
   
  -(defun list ()
  -  (labels ((rec (x)
  -             (unless (= x.length 0)
  -               (with (a (aref x 0))
  -				 (x.shift) ; pop off first element from array.
  -                 (cons a (rec x))))))
  -    (rec arguments)))
  +(defun list (&rest x)
  +  x)
   
   ,(def-js-type-predicate symbolp "symbol")
   ,(def-js-type-predicate consp '%cons)
  
positive.code: 	:std-macro-expander 'js-alternate-std
  	:macro-expander 'javascript
  	:separator (format nil ";~%")
  	:unwanted-functions '($ cons car cdr list make-hash-table map)
  	:identifier-char?
  	  #'(lambda (x)
  		  (or (and (>= x #\a) (<= x #\z))
  
negative.code: 
  (define-js-std-macro defun (name args &rest body)
    (progn
  	 (unless (in? name 'apply)
  	   (acons! name args (transpiler-function-args tr)))
      `(%setq ,name
  		    #'(lambda ,args
  