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