From fd1affa7d0767502045b1e3c2cf269e8ff617fc5 Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Sun, 27 May 2018 18:21:30 +0200
Subject: [PATCH] Print a C backtrace in ecl_thread_internal_error

    After the recent changes to the C backtrace interface,
    _ecl_dump_c_backtrace() no longer needs a working lisp
    environment, so we can safely call it here.
---
 src/c/error.d | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/c/error.d b/src/c/error.d
index 8e9ea3fa0..4ae710b9b 100644
--- a/src/c/error.d
+++ b/src/c/error.d
@@ -71,6 +71,7 @@ ecl_thread_internal_error(const char *s)
     fprintf(stderr, "  [%d: %s]\n", saved_errno,
             strerror(saved_errno));
   }
+  _ecl_dump_c_backtrace();
   fprintf(stderr,
           "\nDid you forget to call `ecl_import_current_thread'?\n"
           "Exitting thread.\n");