anchor.diff:  
   (test-ps-js defun-keyword1
     (defun zoo (foo bar &key baz) (return (+ foo bar baz)))
  -  "function zoo(foo, bar) {
  +"function zoo(foo, bar) {
       var baz;
  -    var _js4 = arguments.length;
  -    var n1 = 2;
  -    for (; n1 < _js4; ) {
  +    var _js3 = arguments.length;
  +    for (var n1 = 2; n1 < _js3; n1 += 2) {
           switch (arguments[n1]) {
           case 'baz':
               {
                   baz = arguments[n1 + 1];
               };
           };
  -        var _js5 = n1 + 2;
  -        n1 = _js5;
       };
       if (baz === undefined) {
           baz = null;
  
positive.code:   (is (string= "5;" (let ((x 5)) (ps (lisp x))))))
  
  (test ps*-lisp-expands-in-null-lexical-environment
    (signals error (let ((x 5)) (ps* '(lisp x)))))
  
  (test ps*-lisp-expands-in-dynamic-environment
    (is (string= "1 + 2;" (let ((*print-level* 2)) (ps* '(+ 1 (lisp *print-level*)))))))
  
negative.code:   (defun zoo (&key baz) (return (* baz baz)))
    "function zoo() {
      var baz;
      var _js3 = arguments.length;
      for (var n1 = 0; n1 < _js3; n1 += 2) {
          switch (arguments[n1]) {
          case 'baz':
              {
                  baz = arguments[n1 + 1];
              };
          };
      };
      if (baz === undefined) {
          baz = null;
  