Commit cd158549 authored by Committed by Nikodemus Siivola
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).
Showing with 13 additions and 7 deletions