re #4 - use (cffi:null-pointer) instead of 0 in call to ssl-ctx-ctrl

cl-plus-ssl · Apr 20, 2014 · bbad1b2 · bbad1b2
1 parent 9f26e20
commit bbad1b2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ffi.lisp b/ffi.lisp
@@ -458,7 +458,7 @@ will use this value.")
       (rand-seed ptr length))))
 
 (defun ssl-ctx-set-session-cache-mode (ctx mode)
-  (ssl-ctx-ctrl ctx +SSL_CTRL_SET_SESS_CACHE_MODE+ mode 0))
+  (ssl-ctx-ctrl ctx +SSL_CTRL_SET_SESS_CACHE_MODE+ mode (cffi:null-pointer)))
 
 (defvar *locks*)
 (defconstant +CRYPTO-LOCK+ 1)