From 852b5b86a8fd0d229afc4abb62765cdc4d15138c Mon Sep 17 00:00:00 2001
From: Cyrus Harmon <ch-github@bobobeach.com>
Date: Sat, 19 Apr 2014 22:36:01 -0700
Subject: [PATCH] use (cffi:null-pointer) instead of 0 in call to ssl-ctx-ctrl

 * the change from :long to :pointer requires that we use a proper null pointer instead of 0.
---
 streams.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/streams.lisp b/streams.lisp
index a394785..8ef8af4 100644
--- a/streams.lisp
+++ b/streams.lisp
@@ -225,7 +225,7 @@
   (ssl-ctx-ctrl handle
 		+SSL_CTRL_MODE+
 		+SSL_MODE_ACCEPT_MOVING_WRITE_BUFFER+
-		0)
+		(cffi:null-pointer))
   socket)
 
 (defun install-key-and-cert (handle key certificate)