Skip to content
Snippets Groups Projects
Commit 1fa6d909 authored by wlott's avatar wlott
Browse files

Don't bother warning about dynamic flow of control, because it is obvious

from the call depth numbers and the warning can happen at real confusing
times.
parent 10528e9c
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.4 1991/11/26 17:54:03 chiles Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.5 1992/03/10 15:55:28 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -229,8 +229,6 @@
(when (and *traced-entries*
(not (di:function-end-cookie-valid-p
frame (car *traced-entries*))))
(format t "~&WARNING: dynamic flow of control occurred ~
while TRACE'ing.~%")
(loop
(pop *traced-entries*)
(when (or (not *traced-entries*)
......@@ -273,9 +271,7 @@
(defun print-trace-end (frame bpt values cookie &optional print-after)
(declare (ignore frame bpt))
(unless (eq cookie (car *traced-entries*))
(setf *traced-entries* (member cookie *traced-entries*))
(fresh-line)
(write-line "WARNING: dynamic flow of control occurred while TRACE'ing."))
(setf *traced-entries* (member cookie *traced-entries*)))
(print-trace-indentation)
(write-string "returned ")
(dolist (v values)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment