anchor.diff:  ;;; File: token-tree.lisp
   ;;; Description: Maintains a hashed collection of tokens.
   
  -;;; $Id: token-tree.lisp,v 1.13 2001/02/09 01:49:59 youngde Exp $
  +;;; $Id: token-tree.lisp,v 1.14 2001/02/09 15:19:56 youngde Exp $
   
   (in-package :lisa)
   
  
positive.code:           :accessor get-table)
     (use-sortcode-p :initarg :use-sortcode
                     :initform nil
                     :accessor get-use-sortcode))
    (:documentation
     "Maintains a hashed collection of tokens."))
  
  
negative.code:       (hash-code token)
      (get-fact-id (get-top-fact token))))
  
  (defun clear-tree (self)
    (declare (type token-tree self))
    (clrhash (get-table self))
    (setf (get-size self) 0))
  
  (defun token-tree-count (self)
    (declare (type token-tree self))
    (get-size self))
  
  #+ignore
  (defmacro with-tree-iterator ((key value tree) &body body)
    "Iterates over each element in TREE (an instance of TOKEN-TREE) and
    evaluates BODY. RETURN may be used to exit from the iterator with
  