• Anton Kovalenko's avatar
    fix edge-case in CIRCULAR-TREE-P · cd158549
    Anton Kovalenko authored
      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).
    cd158549
lists.lisp 13.2 KB