(setf *stepping* nil))
(step-next ()
nil)
- (step-into ()
+ (step-into ()
t))))
(defun step-variable (symbol value)
(defun insert-step-conditions (form)
`(locally (declare
- (optimize (insert-step-conditions
- ,(policy *lexenv* insert-step-conditions))))
+ (optimize (insert-step-conditions
+ ,(policy *lexenv* insert-step-conditions))))
,form))
;;; Flag to control instrumentation function call arguments.
`(locally (declare (optimize (insert-step-conditions 0)))
(step-variable ,form-string ,form))))
(list
- (let* ((*step-arguments-p* (policy *lexenv* (= insert-step-conditions 3)))
+ (let* ((*step-arguments-p* (and *allow-instrumenting*
+ (policy *lexenv* (= insert-step-conditions 3))))
(step-form `(step-form ,form-string
',(source-path-original-source *current-path*)
*compile-file-pathname*))
#+sb-xc-host (declare (ignore form))
#-sb-xc-host
(flet ((step-symbol-p (symbol)
- (not (member (symbol-package symbol)
- (load-time-value
+ (not (member (symbol-package symbol)
+ (load-time-value
;; KLUDGE: packages we're not interested in stepping.
(mapcar #'find-package '(sb!c sb!int sb!impl sb!kernel sb!pcl)))))))
(let ((lexenv *lexenv*))
- (and (policy lexenv (>= insert-step-conditions 2))
+ (and *allow-instrumenting*
+ (policy lexenv (>= insert-step-conditions 2))
(cond ((consp form)
(let ((op (car form)))
(or (and (consp op) (eq 'lambda (car op)))
(step-symbol-p op)))))
((symbolp form)
(and *step-arguments-p*
+ *allow-instrumenting*
(policy lexenv (= insert-step-conditions 3))
(not (consp (lexenv-find form vars)))
(not (constantp form))