cl-rw

commit 796285fa119251397585b148de17455e8f362c9c
parent 72b128e9936004b68e1b95eacc55dabae8179654
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat,  2 May 2015 23:11:26 +0200

use integer-length instead of log (again)

Diffstat:
M
tls.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tls.lisp b/tls.lisp
@@ -601,7 +601,7 @@
     (assert (eq 'rw.der::bit-string tag))
     (assert (zerop m))
     (let* ((x (ash n m))
-           (nbytes (ceiling (log x 256)))
+           (nbytes (ceiling (integer-length x) 8))
            (b (rw.wire:make-octet-buffer nbytes))
            (w (rw:writer b)))
       (loop