anchor.diff:            (*suspended-rule* self)
             (*tokens* tokens))
         (format t "Stopping in rule ~S~%" (rule-name self))
  -      (debugger-read-eval-print)))
  +      (debugger-repl)))
     (call-next-method))
   
   (defmethod run-engine :after ((self rete) &optional step)
  
positive.code:     (cond ((null rule)
             (format t "There's no rule by this name (~A)~%" rule-name))
            (t
             (funcall op rule-name)
             (when (and (composite-rule-p rule)
                        *break-on-subrules*)
               (dolist (subrule (rule-subrules rule))
  
negative.code: ;;; File: debugger.lisp
  ;;; Description: The LISA debugger.
  
  ;;; $Id: lisa-debugger.lisp,v 1.10 2003/05/28 14:32:19 youngde Exp $
  
  (in-package "LISA")
  
  