[elpa] externals/beardbolt d1b0f7c2ba 118/323: Fix compilation warnings

[ELPA Syncer]

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

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

diff --git a/rmsbolt.el b/rmsbolt.el
index d24a196086..0aa20c140a 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -631,14 +631,14 @@ Lifted from 
https://emacs.stackexchange.com/questions/35936/disassembly-of-a-byt
         (with-current-buffer out-buffer
           (erase-buffer)
           (condition-case ()
-              (cl-loop with cl-print-compiled = 'disassemble
-                       for expr = (read inbuf)
-                       do (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)))
+              (let ((cl-print-compiled 'disassemble))
+                (cl-loop for expr = (read inbuf)
+                         do (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)))))))
 
 ;;;;; Filter Functions