anchor.diff:  	:std-macro-expander 'js-alternate-std
   	:macro-expander 'javascript
   	:separator (format nil ";~%")
  -	:unwanted-functions '($ cons car cdr list make-hash-table map)
  +	:unwanted-functions '($ cons car cdr make-hash-table map)
   	:identifier-char?
   	  #'(lambda (x)
   		  (or (and (>= x #\a) (<= x #\z))
  
positive.code: (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)))
  
  ,(def-js-type-predicate symbolp "symbol")
  ,(def-js-type-predicate consp '%cons)
  
negative.code: 		(push ! x)))))
  	
  (defun js-transpile (outfile infiles)
    (with (base (or (format t "Compiling JavaScript core...~%")
     				  (transpiler-pass-complete *js-transpiler* *js-base*))
  		 x nil)
  	(dolist (file infiles)
  	  (format t "Compiling '~A'...~%" file)
    	  (with-open-file f (open file :direction 'input)
  	    (setf x (append x (transpiler-sight *js-transpiler* (read-many f))))))
      (with-open-file f (open outfile :direction 'output)
  	  (with (user (transpiler-transpile *js-transpiler* x))
  	    (format t "Emitting code to '~A'...~%" outfile)
  		(format f "~A~A" base user)))))
  
  (defun js-machine (outfile)
  