commented out displays
This commit is contained in:
@@ -213,9 +213,9 @@
|
||||
(BIO_get_mem_data (λ (bio-ptr)
|
||||
(let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0)))
|
||||
(let ((r* (subbytes (cadr r) 0 (car r))))
|
||||
(write r*)(newline)
|
||||
;(write r*)(newline)
|
||||
(let ((r** (bytes->string/utf-8 r*)))
|
||||
(write r**)(newline)
|
||||
;(write r**)(newline)
|
||||
r**)))))
|
||||
(ASN1_OCTET_STRING_new (λ ()
|
||||
(ASN1_STRING_type_new V_ASN1_OCTET_STRING)))
|
||||
|
||||
Reference in New Issue
Block a user