Debug bio get mem

This commit is contained in:
2026-04-12 12:15:56 +02:00
parent 2eb6b7fa67
commit 6c5a08de1b

View File

@@ -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)))