| Title: Common LISP: How to open an SSL / TLS stream | |
| Author: Solène | |
| Date: 26 September 2016 | |
| Tags: lisp networking | |
| Description: | |
| Here is a tiny code to get a connection to an SSL/TLS server. I am | |
| writing an IRC client and an IRC bot too and it's better to connect | |
| through a secure channel. | |
| This requires **usocket** and **cl+ssl**: | |
| ``` | |
| (usocket:with-client-socket (socket stream *server* *port*) | |
| (let ((ssl-stream (cl+ssl:make-ssl-client-stream stream | |
| :external-format '(:iso-… | |
| :unwrap-stream-p t | |
| :hostname *server*))) | |
| (format ssl-stream "hello there !~%") | |
| (force-output ssl-stream))) | |
| ``` |