From ac638287620bfd11b240dba05723b69519940b69 Mon Sep 17 00:00:00 2001
From: polos <polos.ruetz@gmail.com>
Date: Mon, 7 Dec 2020 22:39:35 +0100
Subject: [PATCH] restore default debug behavior with command line option -qtpl

---
 src/eql.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/eql.cpp b/src/eql.cpp
index 5c6b5a0..7e4e7f7 100644
--- a/src/eql.cpp
+++ b/src/eql.cpp
@@ -123,6 +123,7 @@ void EQL::exec(const QStringList& args) {
     // -qtpl
     else if(arguments.contains("-qtpl") || (cl_symbol_value(s_qtpl) == Ct)) {
         arguments.removeAll("-qtpl");
+        evalMode = DebugOnError;
         ecl_setq(ecl_process_env(), s_qtpl, Ct);
         QApplication::setQuitOnLastWindowClosed(false);
         forms << "(when (directory (in-home \"lib/ecl-readline.fas*\"))"