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:                 bar = arguments[n1 + 1];
              };
          };
          var _js5 = n1 + 2;
          n1 = _js5;
      };
      if (baz === undefined) {
          baz = null;
  
negative.code: 
  (test-ps-js quoted-nil-is-array
    'nil
    "[]")
  
  (test-ps-js defsetf1
    (progn (defsetf baz (x y) (newval) `(set-baz ,x ,y ,newval))
  