-- Leo's gemini proxy

-- Connecting to perso.pw:1965...

-- Connected

-- Sending request

-- Meta line: 20 text/gemini;

Common LISP: How to open an SSL / TLS stream


Author: Solène

Date: 26 September 2016

Tags: lisp networking


NILHere 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)))

-- Response ended

-- Page fetched on Thu Apr 18 23:36:04 2024