[elpa] externals/beardbolt a5855171f8 120/323: Fix byte-compilation warnings

[ELPA Syncer]

branch: externals/beardbolt
commit a5855171f812a127be3b5196e5e324145d00a6cb
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@gmail.com>

    Fix byte-compilation warnings
---
 rmsbolt.el | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/rmsbolt.el b/rmsbolt.el
index 080fa7584f..c00e37bf15 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -631,14 +631,16 @@ Lifted from 
https://emacs.stackexchange.com/questions/35936/disassembly-of-a-byt
         (with-current-buffer out-buffer
           (erase-buffer)
           (condition-case ()
-
-              (cl-loop for expr = (read inbuf)
-                       do (let ((cl-print-compiled 'disassemble))
-                            (pcase expr
-                              (`(byte-code ,(pred stringp) ,(pred vectorp) 
,(pred natnump))
-                               (princ "TOP-LEVEL byte code:\n" 
(current-buffer))
-                               (disassemble-1 expr 0))
-                              (_ (cl-prin1 expr (current-buffer)))))
+              (cl-loop with cl-print-compiled = 'disassemble
+                       for expr = (read inbuf)
+                       do
+                       ;; FIXME Trick byte-compiler into thinking we use the 
variable
+                       (setq cl-print-compiled cl-print-compiled)
+                       (pcase expr
+                         (`(byte-code ,(pred stringp) ,(pred vectorp) ,(pred 
natnump))
+                          (princ "TOP-LEVEL byte code:\n" (current-buffer))
+                          (disassemble-1 expr 0))
+                         (_ (cl-prin1 expr (current-buffer))))
                        do (terpri (current-buffer)))
             (end-of-file nil)))))))