Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

A few fixes.

Signed-off-by: Stelian Ionescu <sionescu@common-lisp.net>
  • Loading branch information...
commit c2c2601b390120727a929f930a6e1e183fc2fe0d 1 parent 8fadd58
@sionescu authored
View
2  net.tls/conditions.lisp
@@ -29,7 +29,7 @@
(format stream "GNUTLS error: ~A"
(%gnutls_strerror (gnutls-error-code condition))))))
-(eval-when (:compile-toplevel)
+(eval-when (:compile-toplevel :load-toplevel :execute)
(defvar *gnutls-errors* (make-hash-table :test #'eql)))
;;; Used in the ERRNO-WRAPPER foreign type.
View
20 net.tls/gnutls.lisp
@@ -117,23 +117,23 @@
;;; Record-level functions
-(define-gnutls-function (%gnutls_record_send "gnutls_record_send") ssize
+(define-gnutls-function (%gnutls-record-send "gnutls_record_send") ssize
(session gnutls-session)
(data :pointer) ; void *
(nbytes size))
-(define-gnutls-function (%gnutls_record_recv "gnutls_record_recv") ssize
+(define-gnutls-function (%gnutls-record-recv "gnutls_record_recv") ssize
(session gnutls-session)
(data :pointer) ; void *
(nbytes size))
-(defcfun* (%gnutls_record_get_direction "gnutls_record_get_direction") :int
+(defcfun* (%gnutls-record-get-direction "gnutls_record_get_direction") :int
(session gnutls-session))
-(defcfun* (%gnutls_record_get_max_size "gnutls_record_get_max_size") size
+(defcfun* (%gnutls-record-get-max-size "gnutls_record_get_max_size") size
(session gnutls-session))
-(defcfun* (%gnutls_record_set_max_size "gnutls_record_set_max_size") ssize
+(defcfun* (%gnutls-record-set-max-size "gnutls_record_set_max_size") ssize
(session gnutls-session)
(size size))
@@ -165,6 +165,12 @@
(defctype gnutls-certificate-client-credentials :pointer)
(defctype gnutls-certificate-server-credentials :pointer)
+(defcfun* (%gnutls-anon-allocate-client-credentials "gnutls_anon_allocate_client_credentials") :int
+ (cred :pointer)) ; gnutls-anon-client-credentials *
+
+(defcfun* (%gnutls-anon-allocate-server-credentials "gnutls_anon_allocate_server_credentials") :int
+ (cred :pointer)) ; gnutls-anon-server-credentials *
+
(define-gnutls-function (%gnutls-credentials-set "gnutls_credentials_set") :int
(session gnutls-session)
(type gnutls-credentials-type)
@@ -173,8 +179,8 @@
(defcfun* (%gnutls-credentials-clear "gnutls_credentials_clear") :void
(session gnutls-session))
-(defcfun* (%gnutls_anon_free_client_credentials "gnutls_anon_free_client_credentials") :void
+(defcfun* (%gnutls-anon-free-client-credentials "gnutls_anon_free_client_credentials") :void
(cred gnutls-anon-client-credentials))
-(defcfun* (%gnutls_anon_free_server_credentials "gnutls_anon_free_server_credentials") :void
+(defcfun* (%gnutls-anon-free-server-credentials "gnutls_anon_free_server_credentials") :void
(cred gnutls-anon-server-credentials))
View
3  net.tls/gpg-error/gpg-error-codes.lisp
@@ -24,7 +24,8 @@
;;; The error code type gpg-err-code-t.
;;; This is used for system error codes.
-(defconstant +gpg-err-system-error+ (ash 1 15))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defconstant +gpg-err-system-error+ (ash 1 15)))
;;; This is one more than the largest allowed entry.
(defconstant +gpg-err-code-dim+ 65536)
View
2  net.tls/wrappers.lisp
@@ -27,7 +27,7 @@
(c "GCRY_THREAD_OPTION_PTHREAD_IMPL;")
-(defwrapper* "gcrypt_set_thread_cbs"
+(defwrapper* (%gcrypt-set-thread-cbs "gcrypt_set_thread_cbs")
("gcry_error_t" (errno-wrapper :unsigned-int
:error-predicate plusp
:error-generator signal-gpg-error))

0 comments on commit c2c2601

Please sign in to comment.
Something went wrong with that request. Please try again.