Subject: step-on/off

From: Sam Steingold <[email-masked]>
Date: 04 Feb 1998 14:01:11 -0500

The following doesn't seem to work:

;;; 1997-11-03 Mon 09:37:59 EST
;;; from Bruno Haible <[email-masked]>
#+clisp
(defun step-on ()
  "Turn on stepping after break."
  (declare (compile))
  (setq sys::*step-level* 0
        sys::*step-quit* most-positive-fixnum
        *evalhook* #'sys::step-hook-fn))
#+clisp
(defun step-off ()
  "Turn off stepping. `continue' to proceed."
  (declare (compile))
  (setq sys::*step-quit* 0))

When I try to use it, I get:

1. Break> (step-on)
step 1 --> (step-on)
Step 1> Step

step 0 ==> value: #<compiled-closure system::step-hook-fn>
#<compiled-closure system::step-hook-fn>
1. Break>

-- 
Sam Steingold