anchor.diff:  ;;;;AUTHORS
   ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
   ;;;;MODIFICATIONS
  +;;;;    2011-04-03 <PJB> Added LIST-LENGTHS.
   ;;;;    2008-06-24 <PJB> Added ENSURE-CIRCULAR, MAKE-CIRCULAR-LIST, CIRCULAR-LENGTH.
   ;;;;    2007-01-05 <PJB> Added REPLACE-TREE (should move to a new package later).
   ;;;;    2005-09-02 <PJB> Moved EQUIVALENCE-CLASSES in from ECMA048.
  
positive.code: ;;;;LEGAL
  ;;;;    GPL
  ;;;;
  ;;;;    Copyright Pascal J. Bourguignon 2002 - 2008
  ;;;;
  ;;;;    This script is free software; you can redistribute it and/or
  ;;;;    modify it under the terms of the GNU  General Public
  
negative.code:                  ;; found loop
                   (return (values i index (- i index)))
                   (setf (gethash current indexes) i)))
         :finally (return (values i i 0)))))
  
  
  
  