From 245143bd9e9896473d66eeb1feff5e0b22a28994 Mon Sep 17 00:00:00 2001
From: vaclavt <vt@stocksriddle.com>
Date: Mon, 25 Apr 2022 20:20:19 +0200
Subject: [PATCH] small compiler warnings fixed

---
 clib/sslclient.cpp | 2 +-
 debug.lsp          | 5 ++++-
 ml_profiler.cpp    | 2 +-
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/clib/sslclient.cpp b/clib/sslclient.cpp
index 787f816..613d1f6 100644
--- a/clib/sslclient.cpp
+++ b/clib/sslclient.cpp
@@ -62,7 +62,7 @@ std::pair<int, std::string> HttpClient::doRequest(const std::string &method, con
 
 	// and fetch the rest if not read completely
 	while (content_len > 0 && content_len > ssl_read_packet.length() - 4 - end_of_headers) {
-		auto read_bytes = sslRecvPacket();
+		/* auto read_bytes = */ sslRecvPacket();
 	}
 
 	// get body
diff --git a/debug.lsp b/debug.lsp
index 979d01e..ae55957 100644
--- a/debug.lsp
+++ b/debug.lsp
@@ -1 +1,4 @@
-(system-cmd-fork "ml"  "-c" "(print 123) (sleep 1) (print \"aaa\")")
\ No newline at end of file
+; (system-cmd-fork "ml"  "-c" "(print 123) (sleep 1) (print \"aaa\")")
+
+(print (reduce (lambda (acc e) (+ acc (string (+ "<th>" e "</th>")))) "" '("h1" "h2" "h3"))
+)
\ No newline at end of file
diff --git a/ml_profiler.cpp b/ml_profiler.cpp
index 3941d7a..78612b3 100644
--- a/ml_profiler.cpp
+++ b/ml_profiler.cpp
@@ -79,7 +79,7 @@ void MlPerfMon::restore_callstack_position(size_t to_position) {
 }
 
 void MlPerfMon::clear_callstack() {
-    bool e = call_stack.empty();
+    call_stack.empty();
 }
 
 void MlPerfMon::print_results() const {