[cl-plus-ssl-cvs] CVS cl+ssl

[avodonosov]

Update of /project/cl-plus-ssl/cvsroot/cl+ssl
In directory cl-net:/tmp/cvs-serv28892

Modified Files:
	ffi.lisp 
Log Message:
Fix typo: missed parameter in the FFI wrapper for SSL_CTX_use_RSAPrivateKey_file.

--- /project/cl-plus-ssl/cvsroot/cl+ssl/ffi.lisp	2011/04/03 13:20:29	1.15
+++ /project/cl-plus-ssl/cvsroot/cl+ssl/ffi.lisp	2011/04/07 00:20:10	1.16
@@ -170,6 +170,7 @@
     ("SSL_CTX_use_RSAPrivateKey_file" ssl-ctx-use-rsa-privatekey-file)
     :int
   (ctx ssl-ctx)
+  (file :string)
   (type :int))
 (cffi:defcfun ("SSL_use_certificate_file" ssl-use-certificate-file)
     :int
@@ -394,6 +395,7 @@
      (file :string)
      (line :int))
   (declare (ignore file line))
+
   ;; (assert (logtest mode (logior +CRYPTO-READ+ +CRYPTO-WRITE+)))
   (let ((lock (elt *locks* n)))
     (cond