Skip to content
Snippets Groups Projects
Forked from alexandria / alexandria
Source project has a limited visibility.
  • Anton Kovalenko's avatar
    cd158549
    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
    History
    fix edge-case in CIRCULAR-TREE-P
    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).