anchor.diff:  
   (define-js-std-macro defun (name args &rest body)
     (progn
  -	 (unless (in? name 'apply 'list)
  +	 (unless (in? name 'apply)
   	   (acons! name args (transpiler-function-args tr)))
       `(%setq ,name
   		    #'(lambda ,args
  
positive.code: 		(push ! x)))))
  	
  (defun js-transpile (outfile infiles)
    (with (x nil)
  	(dolist (file infiles)
  	  (format t "Reading file '~A'.~%" file)
    	  (with-open-file f (open file :direction 'input)
  	    (setf x (append x (transpiler-sight *js-transpiler* (read-many f))))))
  	(format t "OK. Will write to '~A'...~%" outfile)
      (with-open-file f (open outfile :direction 'output)
  	  (with (base (or (format t "Compiling JavaScript core...~%")
        				  (transpiler-pass-complete *js-transpiler* *js-base*))
  	  		 user (or (format t "Compiling user code...~%")
        				  (transpiler-transpile *js-transpiler* x)))
  	    (format t "Emitting code.~%")
  		(format f "~A~A" base user)))))
  
  (defun js-machine (outfile)
  
negative.code: 	:std-macro-expander 'js-alternate-std
  	:macro-expander 'javascript
  	:separator (format nil ";~%")
  	:unwanted-functions '($ cons car cdr make-hash-table map)
  	:identifier-char?
  	  #'(lambda (x)
  		  (or (and (>= x #\a) (<= x #\z))
  