deephooloovoo / lisp8x Goto Github PK

Hello,
the very convient cond function is missing. It avoids multiples if. I tried to implement it, but no luck. Do you have ideas or hint to implement it?

I looked at the picolisp source and I found that but I did not manage to translate it in assembler:
any doCond(any x) {
any a;

while (isCell(x = cdr(x))) {
if (!isNil(a = EVAL(caar(x)))) {
val(At) = a;
return prog(cdar(x));
}
}
return Nil;
}

x=cdr(x) is POPLIST
But I do not know how to implement the caar and cdar function in assembler