1 files changed, 3 insertions(+), 5 deletions(-)

M src/bare.lisp

@@ 18,11 18,9 @@
   (loop 
     for i below 10 until (zerop value)  ; random value right there
     when (>= value #x80)
-      do (progn
-           (write-byte (logior (ldb (byte 7 0) (ash value 0))
-                               #x80)
-                       stream)
-           (setf value (ash value -7))))
+      do (write-byte (logior (ldb (byte 7 0) (ash value 0)) #x80)
+                     stream)
+         (setf value (ash value -7)))
   (write-byte value stream))
 
 (defbinary uint