anchor.diff:  				 (setf stem-start-input (car word))
   				 (setf stem '())
   				 (setf profile '()))))
  -		       (if (eq? (iadfa-final iadfa) node)
  +		       (if (eq (iadfa-final iadfa) node)
   			   (progn
   			     (delete-branch iadfa stem-start-node stem-start-input stem-end-node)
   			     (values stem-start-node (append stem word) (append profile (make-list (- (length word) 1) nil))))
  
positive.code: (in-package :com.rrette.finenight)
  (provide :com.rrette.finenight.iadfa)
  
  (require :com.rrette.finenight.fsa "fsa.lisp")
  ;(require :com.rrette.finenight.utils "utils.lisp")
  
  (defstruct iadfa 
  
negative.code:        iadfa))
      (iadfa-fsa iadfa)))
  
  
  
  