Q
Size: a a a
Q
Q
Q
T
V(
T
Q
O
Q

a
(let ((x nil)) ..) можно писать просто (let ((x)) ..) или даже (let (x) ..).a
(>= (length arcs) 2) совершает ненужную операцию: вычисление длины всего списка. Можно просто (cdr args).a
T вместо t не неправильно, но необычно, так что лучше без этого.SA
SA
SA
Q
a
a
(setf success nil) можно уже и выйти вдобавок.Q
a