Debug bio get mem
This commit is contained in:
@@ -212,6 +212,7 @@
|
|||||||
(version-define 1
|
(version-define 1
|
||||||
(BIO_get_mem_data (λ (bio-ptr)
|
(BIO_get_mem_data (λ (bio-ptr)
|
||||||
(let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0)))
|
(let ((r (BIO_ctrl bio-ptr BIO_CTRL_INFO 0)))
|
||||||
|
(displayln r)
|
||||||
(cadr r))))
|
(cadr r))))
|
||||||
(ASN1_OCTET_STRING_new (λ ()
|
(ASN1_OCTET_STRING_new (λ ()
|
||||||
(ASN1_STRING_type_new V_ASN1_OCTET_STRING)))
|
(ASN1_STRING_type_new V_ASN1_OCTET_STRING)))
|
||||||
|
|||||||
Reference in New Issue
Block a user