cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs

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:
Mtls.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