anchor.diff:  
       (got-b *d* 'b)
       prints:
  -    (exiting zero) 
  +    (exiting zero)
       (entering one b)
       --> (entering one b)
   
  
positive.code:                                 init-slots))))
               (on-entry ,vdfa ',initial ,@(when initial-ex (dfa-entrex-lambda-list initial-ex)))
               ,vdfa))
           
           ,@(mapcar (lambda (ex) (generate-entrex-method name slot-names state-names ex))
                     entrexes)
  
  
negative.code: License:
  
      AGPL3
  
      Copyright Pascal J. Bourguignon 2012 - 2012
  
      This program is free software: you can redistribute it and/or modify
      it under the terms of the GNU Affero General Public License as published by
      the Free Software Foundation, either version 3 of the License, or
      (at your option) any later version.
  
      This program is distributed in the hope that it will be useful,
      but WITHOUT ANY WARRANTY; without even the implied warranty of
      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      GNU Affero General Public License for more details.
  
      You should have received a copy of the GNU Affero General Public License
      along with this program.
      If not, see <http://www.gnu.org/licenses/>
  