utils UT
Passed!
unit test UT
unit-test: 3 OK
anti-unit-test: 3 - OK
Passed!
scanner UT
test-scanner: ( OK
test-scanner: ) OK
test-scanner: abc OK
test-scanner: aBC OK
test-scanner: a1 OK
test-scanner: a-b OK
test-scanner: $a OK
test-scanner: + OK
test-scanner: - OK
test-scanner: 123 OK
test-scanner: +123 OK
test-scanner: -123 OK
test-scanner: 0 OK
test-scanner: # OK
test-scanner: #f OK
test-scanner: #t OK
test-scanner: #\a OK
test-scanner: #\( OK
test-scanner: #\) OK
test-scanner: #\| OK
test-scanner: #\newline OK
test-scanner: #\space OK
test-scanner: #\tab OK
test-scanner: "abc" OK
test-scanner: "aBc" OK
test-scanner: "a\bc" OK
test-scanner: "a\\bc" OK
test-scanner: "a\"bc" OK
test-scanner: "a bc" OK
test-scanner: ' OK
test-scanner: ` OK
test-scanner: , OK
test-scanner: ,@ OK
test-scanner: . OK
test-scanner: .a OK
test-scanner: a. OK
test-scanner: a.b OK
test-scanner: @a OK
test-scanner: a@ OK
test-scanner: a@b OK
test-scanner: +12a OK
test-scanner: (a) OK
test-scanner: (41) OK
test-scanner: (#\|a) OK
test-scanner: #(a b) OK
test-scanner: `(a ,@b) OK
test-scanner: (a 2 bc+c (- 2 s@2)) OK
test-scanner: '(a 2) ,( `(!q,@( e $ q)) OK
test-scanner: (33 . "aaa") OK
test-scanner: 12 ; test OK
test-scanner: 12 ; test|@# OK
test-scanner: 12 ; a b 34 OK
test-scanner: 23 ;@[inline test @inline] OK
test-scanner: 23 ;@[inline test1 ; test2 ;test3 ;@inline] OK
test-scanner: 23 ;@[inline test1; ; test2; ;test3; ;@inline] OK
test-scanner: 23 ;@[inline Test1; ; tEst2; ;teSt3; ;@inline] OK
test-scanner: 23 ;@[inline Test1; ; tEst2; ;teSt3; ;@inline] 123 OK
anti-scanner: | string:1:1 scanner: invalid char | - OK
anti-scanner: a|b string:1:2 scanner/get-ident: invalid char | - OK
anti-scanner: 33| string:1:3 scanner/get-ident: invalid char | - OK
anti-scanner: ,|b string:1:2 scanner/get-unquote: invalid char | - OK
anti-scanner: #abc string:1:2 scanner/get-pound: invalid char a - OK
anti-scanner: #a|b string:1:2 scanner/get-pound: invalid char a - OK
anti-scanner: #| string:1:2 scanner/get-pound: invalid char | - OK
anti-scanner: #\abc string:1:5 scanner/get-char-lexem:char: invalid character #\abc - OK
anti-scanner: #\ string:1:2 scanner/get-char-lexem:eof: unexpected EOF - OK
anti-scanner: #\a|b string:1:4 scanner/get-char-lexem: invalid char | - OK
anti-scanner: "abc string:1:4 scanner/get-string:eof: unexpected EOF - OK
anti-scanner: "abc\ string:1:5 scanner/get-string:eof: unexpected EOF - OK
anti-scanner: "abc\" string:1:6 scanner/get-string:eof: unexpected EOF - OK
anti-scanner: [abc] string:1:1 scanner/get-other: invalid char [ - OK
anti-scanner: ;@[inline bla-bla string:1:17 scanner/get-inline:eof: unexpected EOF - OK
anti-scanner: ;@[inline a b string:2:0 scanner/get-inline:syntax: invalid inline syntax - OK
anti-scanner: ;@[inline a | ; b string:2:0 scanner/get-inline:syntax: invalid inline syntax - OK
Passed!parser UT
test-parser: 123 OK
test-parser: (+ 123 1000) OK
test-parser: (- 1000 223) OK
test-parser: (* 2 (/ 10 5)) OK
test-parser: (+ 21 35 12 7) OK
test-parser: (f "abc") OK
test-parser: (define x 1) OK
test-parser: (define size (+ a b)) OK
test-parser: (define (size) (+ a b)) OK
test-parser: (define (size a b) (+ a b)) OK
test-parser: (define (size . a) (+ (car a) (cdr a))) OK
test-parser: (define (size a . b) (+ a (car b))) OK
test-parser: (define (size a b) (+ a b)(- x y)) OK
test-parser: (cond ((< a 0) (+ a b)) ((null? b) 33) (else (test 1))) OK
test-parser: (cond ((< a 0) (f a)(g b)(+ a b))) OK
test-parser: (cond ((f a)) ((g a)) (else x)) OK
test-parser: (if (> b 1) (fun1) (fun2 b)) OK
test-parser: (if (> b 1) test) OK
test-parser: (and 1 2 3) OK
test-parser: (or a (< 0 b)) OK
test-parser: ((get-function) 1 2 3) OK
test-parser: (lambda () (+ a b)) OK
test-parser: (lambda (a b) (+ a b)) OK
test-parser: (lambda a (+ (car a) (cdr a))) OK
test-parser: (lambda (a . b) (+ a (car b))) OK
test-parser: (lambda (a b) (+ a b)(- x y)) OK
test-parser: (lambda () (define (f1 x) x) (define (f2 x) x) (f2 x)) OK
test-parser: (let ((a 1) (b 2)) a) OK
test-parser: (let ((a 1)) (f a b)) OK
test-parser: (lambda (a b) ;@[inline return a + b; @inline] ) OK
test-parser: (lambda (a) a) ;@[inline hello @inline] OK
test-parser: 'symbol OK
test-parser: '123 OK
test-parser: '(a (1 2 qwe) #f) OK
test-parser: '() OK
test-parser: () OK
test-parser: (quote 123) OK
test-parser: (quote a) OK
test-parser: (quote (a b c)) OK
test-parser: (quote (a b . c)) OK
test-parser: (test (quote (a b c)) 123) OK
test-parser: (if (> a b) c (begin (f a) (f b))) OK
test-parser: (lambda () (define x 1) (begin (define y 2) (f y)) (g x y)) OK
test-parser: #(1 2 3) OK
test-parser: (define x #(1 2 3)) OK
test-parser: (set! a 1) OK
test-parser: (set! a (f b)) OK
test-parser: (case a ((1 2 3) d) ((x y z) s) (else q)) OK
test-parser: (case (g a) ((1 2 3) (f a) (b a)) ((x y z) s)) OK
anti-parser: (quote x string:1:8 parser/get-quote:rparen: ')' expected - OK
anti-parser: (quote x | string:1:10 parser/get-quote:rparen: ')' expected - OK
anti-parser: (quote x a) string:1:11 parser/get-quote:rparen: ')' expected - OK
anti-parser: | string:1:1 scanner: invalid char | - OK
anti-parser: define string:1:6 parser:syntax: invalid syntax define - OK
anti-parser: )define x 1( string:1:2 parser:lexem: invalid lexem rparen - OK
anti-parser: (|a) string:1:2 scanner: invalid char | - OK
anti-parser: (|a) string:1:2 scanner: invalid char | - OK
anti-parser: ( string:1:1 parser/get-application:eof: unexpected EOF - OK
anti-parser: ((define a 1) q) string:1:12 parser:define: no define allowed in the context - OK
anti-parser: (case (define a 1) b) string:1:17 parser:define: no define allowed in the context - OK
anti-parser: (cond ((define a 1) b)) string:1:18 parser:define: no define allowed in the context - OK
anti-parser: (case a ((1) (define b 1) b)) string:1:24 parser:define: no define allowed in the context - OK
anti-parser: (and a (define b 1)) string:1:18 parser:define: no define allowed in the context - OK
anti-parser: (or (define b 1) a) string:1:15 parser:define: no define allowed in the context - OK
anti-parser: (f (define b 1)) string:1:14 parser:define: no define allowed in the context - OK
anti-parser: (if a (define b 1) c) string:1:17 parser:define: no define allowed in the context - OK
anti-parser: (define a (define b 1)) string:1:21 parser:define: no define allowed in the context - OK
anti-parser: (set! a (define b 1)) string:1:19 parser:define: no define allowed in the context - OK
anti-parser: (let ((a (define b 1)))) string:1:20 parser:define: no define allowed in the context - OK
anti-parser: (lambda () a (define b 1) c) string:1:24 parser:define: no define allowed in the context - OK
anti-parser: (1 + 2) string:1:4 parser/get-application:syntax: invalid application 1 - OK
anti-parser: (set! (a) b) string:1:8 parser/get-set: variable expected, got (a) - OK
anti-parser: (set! | 1) string:1:7 scanner: invalid char | - OK
anti-parser: (set! string:1:6 parser/get-variable/list:eof: unexpected EOF - OK
anti-parser: (define string:1:8 parser/get-variable/list:eof: unexpected EOF - OK
anti-parser: (define | a) string:1:9 scanner: invalid char | - OK
anti-parser: (define 3 a) string:1:11 parser/get-variable/list:syntax: invalid lexem 3 - OK
anti-parser: (define (a b string:1:12 parser/get-var-list:eof: unexpected EOF - OK
anti-parser: (define (a . b c) d) string:1:16 parser/get-var-list:decl: invalid declaration (b c) - OK
anti-parser: (define (a b .) d) string:1:16 parser/get-var-list:period: variable expected - OK
anti-parser: (define (a b . string:1:14 parser/get-var-list:eof: unexpected EOF - OK
anti-parser: (define (a 5) d) string:1:13 parser/get-var-list:syntax: invalid lexem 5 - OK
anti-parser: (cond (a b) string:1:11 parser/get-cond-expr-list:eof: unexpected EOF - OK
anti-parser: (cond (a b) (else #f) (c d)) string:1:19 parser/get-cond-expr-list:else: cond: else clause must be the last - OK
anti-parser: (cond (a b) c) string:1:14 parser/get-cond-expr-list:syntax: invalid lexem c in cond expression - OK
anti-parser: (case a ((b) c) string:1:15 parser/get-case-expr-list:eof: unexpected EOF - OK
anti-parser: (case a |((b) c)) string:1:9 scanner: invalid char | - OK
anti-parser: (case a ((b) c) (else #f) ((d) e)) string:1:23 parser/get-case-expr-list:else: case: else clause must be the last - OK
anti-parser: (cond a ((b) c) d) string:1:9 parser/get-cond-expr-list:syntax: invalid lexem a in cond expression - OK
anti-parser: (if a b c d) string:1:12 parser/get-expr-list:syntax: invalid expression d - OK
anti-parser: (define a) string:1:10 parser/get-expr-list:syntax: expression expected - OK
anti-parser: (case string:1:6 parser/get-expression:eof: unexpected EOF - OK
anti-parser: (case | string:1:7 scanner: invalid char | - OK
anti-parser: (and if a) string:1:9 parser/get-expression:syntax: invalid lexem if - OK
anti-parser: (and . a) string:1:8 parser/get-expression:syntax: invalid lexem . - OK
anti-parser: (let string:1:5 parser/get-let:eof: unexpected EOF - OK
anti-parser: (let |) string:1:6 scanner: invalid char | - OK
anti-parser: (let a) string:1:7 parser/get-let:syntax: invalid lexem a - OK
anti-parser: (let ((a b) string:1:11 parser/get-let-var-list:eof: unexpected EOF - OK
anti-parser: (let ((a b) | string:1:13 scanner: invalid char | - OK
anti-parser: (let ((a b) | string:1:13 scanner: invalid char | - OK
anti-parser: (let ((a b) c) d) string:1:14 parser/get-let-var-list:syntax: invalid lexem c in let expression - OK
anti-parser: (let (((f) b)) c) string:1:9 parser/get-let-var-pair:syntax: variable expected, got (f) - OK
anti-parser: (quote string:1:7 parser/get-quote:eof: unexpected EOF - OK
anti-parser: ' string:1:1 parser/get-quote:eof: unexpected EOF - OK
anti-parser: (quote | string:1:8 scanner: invalid char | - OK
anti-parser: (quote . a) string:1:10 parser/get-quote:syntax: invalid syntax: unexpected . - OK
anti-parser: (quote (a string:1:9 parser/get-quote-list:eof: unexpected EOF - OK
anti-parser: '(a string:1:3 parser/get-quote-list:eof: unexpected EOF - OK
anti-parser: (quote (a | string:1:11 scanner: invalid char | - OK
anti-parser: (quote (a . b c)) string:1:13 parser/get-quote-list:period: invalid '.' position - OK
anti-parser: (quote (a #)) string:1:12 parser/get-quote-list:syntax: invalid syntax: unexpected # - OK
anti-parser: # string:1:1 parser/get-vector:eof: unexpected EOF - OK
anti-parser: #| string:1:2 scanner/get-pound: invalid char | - OK
anti-parser: #) string:1:2 parser/get-vector:syntax: invalid syntax: unexpected ) - OK
anti-parser: (lambda string:1:7 parser/get-variable/list:eof: unexpected EOF - OK
anti-parser: (lambda (a ( string:1:12 parser/get-var-list:syntax: invalid lexem ( - OK
anti-parser: '(a b .) string:1:8 parser/get-quote-list:period: invalid '.' position - OK
anti-parser: '(a b . string:1:7 parser/get-quote-list:eof: unexpected EOF - OK
Passed!
js-gen UT
test-js-gen: 123 OK
test-js-gen: +123 OK
test-js-gen: -123 OK
test-js-gen: abc-def-xyz OK
test-js-gen: test-test- OK
test-js-gen: abc->xyz OK
test-js-gen: bum! OK
test-js-gen: abc> OK
test-js-gen: abc< OK
test-js-gen: abc= OK
test-js-gen: abc/xyz OK
test-js-gen: *abc OK
test-js-gen: **abc OK
test-js-gen: a-*-b OK
test-js-gen: a--b OK
test-js-gen: function OK
test-js-gen: void OK
test-js-gen: #\newline OK
test-js-gen: #\return OK
test-js-gen: #\x OK
test-js-gen: #\\ OK
test-js-gen: #\' OK
test-js-gen: (+ 123 1000) OK
test-js-gen: (- 123 1000) OK
test-js-gen: (* 2 (/ 10 5)) OK
test-js-gen: (+ 21 35 12 7) OK
test-js-gen: (f a b (+ c 1)) OK
test-js-gen: (car a) OK
test-js-gen: (cdr a) OK
test-js-gen: (fun1) OK
test-js-gen: (f "abc") OK
test-js-gen: (f "abc \"s\" xyz") OK
test-js-gen: (f a-b) OK
test-js-gen: (f void) OK
test-js-gen: (cons a b) OK
test-js-gen: (cons a b-c) OK
test-js-gen: (define x 1) OK
test-js-gen: (define x-three 1) OK
test-js-gen: (define x a-zed) OK
test-js-gen: (define size (+ a b)) OK
test-js-gen: (define (size) (+ a b)) OK
test-js-gen: (define (size a b) (+ a b)) OK
test-js-gen: (define (size-func a-one b-two) (f a-one b-two)) OK
test-js-gen: (define (size . a) (+ (car a) (cdr a))) OK
test-js-gen: (define (size a . b) (+ a (car b))) OK
test-js-gen: (define (size a b) (+ a b)(- x y)) OK
test-js-gen: (set! a 12) OK
test-js-gen: (set! a (f b)) OK
test-js-gen: (set! a-one 12) OK
test-js-gen: (set! a-one b-two) OK
test-js-gen: (cond ((< a 0) (+ a b)) ((null? b) 33) (else (test 1))) OK
test-js-gen: (cond ((< a 0) (+ a 1))) OK
test-js-gen: (cond ((< a 0) (g a)(+ a 1))) OK
test-js-gen: (cond (a)) OK
test-js-gen: (cond ((f a)) ((g b)) (else x)) OK
test-js-gen: (cond ((f-one a-two)) ((g-one b-two)) (else x-three)) OK
test-js-gen: (if (> b 1) (fun1) (fun2 b)) OK
test-js-gen: (if (> b 1) test) OK
test-js-gen: (if (> b-one a-two) test-zzz) OK
test-js-gen: (and 1 2 3) OK
test-js-gen: (and a-one b-two) OK
test-js-gen: (or a (< 0 b)) OK
test-js-gen: (or a-one b-two) OK
test-js-gen: (and) OK
test-js-gen: (or) OK
test-js-gen: ((get-function) 1 2 3) OK
test-js-gen: (lambda (a b) (+ a b)(- x y)) OK
test-js-gen: (lambda (a-one b-two) (+ a-one b-two)(- x y)) OK
test-js-gen: ((lambda (x) (f x)) 123) OK
test-js-gen: (lambda (void) (f void)) OK
test-js-gen: (define f (lambda (x y) (g x y))) OK
test-js-gen: (define f (lambda x (g x))) OK
test-js-gen: (let ((a 1) (b 2)) a) OK
test-js-gen: (let ((a (g x y z))) (f a b)) OK
test-js-gen: (let ((a-one 1) (b-two *x)) a-one) OK
test-js-gen: (lambda (a b) ;@[inline a + b @inline] ) OK
test-js-gen: '(a b c) OK
test-js-gen: '(a-one b-two) OK
test-js-gen: '(a b . c) OK
test-js-gen: (begin a (f 1 2) (g b)) OK
test-js-gen: (begin a-one b-two) OK
test-js-gen: (let* ((a 1) (a1 #t) (a2 "x") (b (f a c)) (c (g a b))) (c a b)) OK
test-js-gen: (let* ((a-one 1) (a1-two #t) (b (f a-one c-three))) (c-three a-one b)) OK
test-js-gen: (letrec ((a 1) (b (f a c)) (c (g a b))) (c a b)) OK
test-js-gen: (letrec ((a 1) (b (lambda () (f a)))) b) OK
test-js-gen: (letrec ((a 1) (b (lambda () (set! a 2) (f a)))) b) OK
test-js-gen: (case a ((1 2 3) d) ((x y z) s) (else q)) OK
test-js-gen: (case (g a) ((1 2 3) (f a) (b a)) ((x y z) s)) OK
anti-js-gen: (quote x string:1:8 parser/get-quote:rparen: ')' expected - OK
anti-js-gen: (quote x | string:1:10 parser/get-quote:rparen: ')' expected - OK
anti-js-gen: (quote x a) string:1:11 parser/get-quote:rparen: ')' expected - OK
anti-js-gen: | string:1:1 scanner: invalid char | - OK
anti-js-gen: define string:1:6 parser:syntax: invalid syntax define - OK
anti-js-gen: )define x 1( string:1:2 parser:lexem: invalid lexem rparen - OK
anti-js-gen: (|a) string:1:2 scanner: invalid char | - OK
anti-js-gen: (|a) string:1:2 scanner: invalid char | - OK
anti-js-gen: ( string:1:1 parser/get-application:eof: unexpected EOF - OK
anti-js-gen: ((define a 1) q) string:1:12 parser:define: no define allowed in the context - OK
anti-js-gen: (case (define a 1) b) string:1:17 parser:define: no define allowed in the context - OK
anti-js-gen: (cond ((define a 1) b)) string:1:18 parser:define: no define allowed in the context - OK
anti-js-gen: (case a ((1) (define b 1) b)) string:1:24 parser:define: no define allowed in the context - OK
anti-js-gen: (and a (define b 1)) string:1:18 parser:define: no define allowed in the context - OK
anti-js-gen: (or (define b 1) a) string:1:15 parser:define: no define allowed in the context - OK
anti-js-gen: (f (define b 1)) string:1:14 parser:define: no define allowed in the context - OK
anti-js-gen: (if a (define b 1) c) string:1:17 parser:define: no define allowed in the context - OK
anti-js-gen: (define a (define b 1)) string:1:21 parser:define: no define allowed in the context - OK
anti-js-gen: (set! a (define b 1)) string:1:19 parser:define: no define allowed in the context - OK
anti-js-gen: (let ((a (define b 1)))) string:1:20 parser:define: no define allowed in the context - OK
anti-js-gen: (lambda () a (define b 1) c) string:1:24 parser:define: no define allowed in the context - OK
anti-js-gen: (1 + 2) string:1:4 parser/get-application:syntax: invalid application 1 - OK
anti-js-gen: (set! (a) b) string:1:8 parser/get-set: variable expected, got (a) - OK
anti-js-gen: (set! | 1) string:1:7 scanner: invalid char | - OK
anti-js-gen: (set! string:1:6 parser/get-variable/list:eof: unexpected EOF - OK
anti-js-gen: (define string:1:8 parser/get-variable/list:eof: unexpected EOF - OK
anti-js-gen: (define | a) string:1:9 scanner: invalid char | - OK
anti-js-gen: (define 3 a) string:1:11 parser/get-variable/list:syntax: invalid lexem 3 - OK
anti-js-gen: (define (a b string:1:12 parser/get-var-list:eof: unexpected EOF - OK
anti-js-gen: (define (a . b c) d) string:1:16 parser/get-var-list:decl: invalid declaration (b c) - OK
anti-js-gen: (define (a b .) d) string:1:16 parser/get-var-list:period: variable expected - OK
anti-js-gen: (define (a b . string:1:14 parser/get-var-list:eof: unexpected EOF - OK
anti-js-gen: (define (a 5) d) string:1:13 parser/get-var-list:syntax: invalid lexem 5 - OK
anti-js-gen: (cond (a b) string:1:11 parser/get-cond-expr-list:eof: unexpected EOF - OK
anti-js-gen: (cond (a b) (else #f) (c d)) string:1:19 parser/get-cond-expr-list:else: cond: else clause must be the last - OK
anti-js-gen: (cond (a b) c) string:1:14 parser/get-cond-expr-list:syntax: invalid lexem c in cond expression - OK
anti-js-gen: (case a ((b) c) string:1:15 parser/get-case-expr-list:eof: unexpected EOF - OK
anti-js-gen: (case a |((b) c)) string:1:9 scanner: invalid char | - OK
anti-js-gen: (case a ((b) c) (else #f) ((d) e)) string:1:23 parser/get-case-expr-list:else: case: else clause must be the last - OK
anti-js-gen: (cond a ((b) c) d) string:1:9 parser/get-cond-expr-list:syntax: invalid lexem a in cond expression - OK
anti-js-gen: (if a b c d) string:1:12 parser/get-expr-list:syntax: invalid expression d - OK
anti-js-gen: (define a) string:1:10 parser/get-expr-list:syntax: expression expected - OK
anti-js-gen: (case string:1:6 parser/get-expression:eof: unexpected EOF - OK
anti-js-gen: (case | string:1:7 scanner: invalid char | - OK
anti-js-gen: (and if a) string:1:9 parser/get-expression:syntax: invalid lexem if - OK
anti-js-gen: (and . a) string:1:8 parser/get-expression:syntax: invalid lexem . - OK
anti-js-gen: (let string:1:5 parser/get-let:eof: unexpected EOF - OK
anti-js-gen: (let |) string:1:6 scanner: invalid char | - OK
anti-js-gen: (let a) string:1:7 parser/get-let:syntax: invalid lexem a - OK
anti-js-gen: (let ((a b) string:1:11 parser/get-let-var-list:eof: unexpected EOF - OK
anti-js-gen: (let ((a b) | string:1:13 scanner: invalid char | - OK
anti-js-gen: (let ((a b) | string:1:13 scanner: invalid char | - OK
anti-js-gen: (let ((a b) c) d) string:1:14 parser/get-let-var-list:syntax: invalid lexem c in let expression - OK
anti-js-gen: (let (((f) b)) c) string:1:9 parser/get-let-var-pair:syntax: variable expected, got (f) - OK
anti-js-gen: (quote string:1:7 parser/get-quote:eof: unexpected EOF - OK
anti-js-gen: ' string:1:1 parser/get-quote:eof: unexpected EOF - OK
anti-js-gen: (quote | string:1:8 scanner: invalid char | - OK
anti-js-gen: (quote . a) string:1:10 parser/get-quote:syntax: invalid syntax: unexpected . - OK
anti-js-gen: (quote (a string:1:9 parser/get-quote-list:eof: unexpected EOF - OK
anti-js-gen: '(a string:1:3 parser/get-quote-list:eof: unexpected EOF - OK
anti-js-gen: (quote (a | string:1:11 scanner: invalid char | - OK
anti-js-gen: (quote (a . b c)) string:1:13 parser/get-quote-list:period: invalid '.' position - OK
anti-js-gen: (quote (a #)) string:1:12 parser/get-quote-list:syntax: invalid syntax: unexpected # - OK
anti-js-gen: # string:1:1 parser/get-vector:eof: unexpected EOF - OK
anti-js-gen: #| string:1:2 scanner/get-pound: invalid char | - OK
anti-js-gen: #) string:1:2 parser/get-vector:syntax: invalid syntax: unexpected ) - OK
anti-js-gen: (lambda string:1:7 parser/get-variable/list:eof: unexpected EOF - OK
anti-js-gen: (lambda (a ( string:1:12 parser/get-var-list:syntax: invalid lexem ( - OK
anti-js-gen: '(a b .) string:1:8 parser/get-quote-list:period: invalid '.' position - OK
anti-js-gen: '(a b . string:1:7 parser/get-quote-list:eof: unexpected EOF - OK
Passed!
ALL Passed!