Skip to content
Commit cd158549 authored by Anton Kovalenko's avatar Anton Kovalenko Committed by Nikodemus Siivola
Browse files

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).
parent 3eacfac8
Hide whitespace changes
Inline Side-by-side
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment