Jan 12, 2016 03:21
Развёрнутый сишный макрос для псевдо-лисп выражения CADDR(proto):
(((((((((proto == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[proto].container.cdr) == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[(((proto == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[proto].container.cdr)].container.cdr) == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[((((((proto == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[proto].container.cdr) == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[(((proto == (uclptr_t)~0))?(uclptr_t)~0:m->uclmem[proto].container.cdr)].container.cdr)].container.car)
:)
uncommon lisp