Commit 721c2446 authored by Zach Beane's avatar Zach Beane
Browse files

In MAKE-SSL-SERVER-STREAM, use the cert file as the key if key isn't specified.

Based on
via zbeane/zacl#4.
parent 61eb0dee
......@@ -165,7 +165,7 @@
(declare (ignore max-depth method crl-check crl-file ca-directory ca-file verify))
(let ((stream (make-ssl-server-stream (real-stream socket)
:certificate certificate
:key key
:key (or key certificate)
:password certificate-password)))
(setf (real-stream socket) stream)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment