(test-ps-js quoted-nil-is-array
'nil
- "new Array()")
+ "[]")
(test-ps-js defsetf1
(progn (defsetf baz (x y) (newval) `(set-baz ,x ,y ,newval))
(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;
(defun zoo (&key baz) (return (* baz baz)))
"function zoo() {
var baz;
- var _js4 = arguments.length;
- var n1 = 0;
- for (; n1 < _js4; ) {
+ var _js3 = arguments.length;
+ for (var n1 = 0; n1 < _js3; n1 += 2) {
switch (arguments[n1]) {
case 'baz':
{
baz = arguments[n1 + 1];
};
};
- var _js5 = n1 + 2;
- n1 = _js5;
};
if (baz === undefined) {
baz = null;
"function zoo() {
var baz;
var bar;
- var _js4 = arguments.length;
- var n1 = 0;
- for (; n1 < _js4; ) {
+ var _js3 = arguments.length;
+ for (var n1 = 0; n1 < _js3; n1 += 2) {
switch (arguments[n1]) {
case 'baz':
{
bar = arguments[n1 + 1];
};
};
- var _js5 = n1 + 2;
- n1 = _js5;
};
if (baz === undefined) {
baz = null;
(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*)))))))