diff options
author | Stas Boukarev <stassats@gmail.com> | 2015-09-25 17:23:51 +0300 |
---|---|---|
committer | Stas Boukarev <stassats@gmail.com> | 2015-09-25 17:23:51 +0300 |
commit | c2708da2b982eefc2e72c1fe465c0bbeef193582 (patch) | |
tree | 5d32286fca3d0a47efd9e99a00adfff98544f5c2 | |
parent | 51b71c3b0797bb5b9dffce3ede9261733536c401 (diff) |
Replace a couple of calls to deprecated functions.
sb-debug:backtrace => sb-debug:print-backrace.
-rw-r--r-- | src/code/error-error.lisp | 2 | ||||
-rw-r--r-- | src/code/unix.lisp | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/code/error-error.lisp b/src/code/error-error.lisp index cefeab5e3..38cb1bb97 100644 --- a/src/code/error-error.lisp +++ b/src/code/error-error.lisp @@ -36,7 +36,7 @@ (dolist (item messages) (princ item *terminal-io*)) (terpri *terminal-io*) - (sb!debug:backtrace :stream *terminal-io*) + (sb!debug:print-backtrace :stream *terminal-io*) (force-output *terminal-io*) (invoke-debugger (coerce-to-condition "Maximum error nesting depth exceeded" nil diff --git a/src/code/unix.lisp b/src/code/unix.lisp index defa8c7a9..7dafe56cd 100644 --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -608,7 +608,7 @@ avoiding atexit(3) hooks, etc. Otherwise exit(2) is called." (format *debug-io* "~&=== Starting a ~A without a timeout while interrupts are disabled. ===~%" type) - (sb!debug:backtrace))) + (sb!debug:print-backtrace))) nil)) ;;;; poll.h |