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-8859-1 :eol-style :lf)
                                                       :unwrap-stream-p t
                                                       :hostname *server*)))
    (format ssl-stream "hello there !~%")
    (force-output ssl-stream)))
```