Warning: session_start(): open(/var/lib/php/sessions/sess_93k1b77hne9nr6prb1766j05gr, O_RDWR) failed: No space left on device (28) in /var/www/tb-usercake/models/config.php on line 51
Warning: session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in /var/www/tb-usercake/models/config.php on line 51
static Lisp lispParse(S s) {
ret new lispParse_X(s).parse();
}
sclass lispParse_X {
L tok;
int i;
*(S s) {
tok = javaTokC(s);
}
Lisp parse() {
if (i >= l(tok)) null;
S t = tok.get(i++);
Lisp l = lisp(unquote(t));
if (neq(get(tok, i), "(")) ret l;
++i;
while (i < l(tok) && neq(get(tok, i), ")")) {
l.add(parse());
if (eq(get(tok, i), ",")) ++i;
}
if (eq(get(tok, i), ")")) ++i;
ret l;
}
}