fix edge-case in CIRCULAR-TREE-P
CIRCULAR-TREE-P had an unfortunate corner case, causing it to overflow the stack (seen and repoted at #lisp for '#1=(#1#).) The problem is caused by the end-test (of the outer DO) being run before the body has a first chance to check for (member slow seen).
Please register or sign in to comment