From 340f98b618d7e870e1fb3f361a5bb108647d7771 Mon Sep 17 00:00:00 2001 From: cage Date: Fri, 14 Apr 2023 17:27:56 +0200 Subject: [PATCH] - removed debug code --- src/gemini/client.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/gemini/client.lisp b/src/gemini/client.lisp index cc625ee..2001583 100644 --- a/src/gemini/client.lisp +++ b/src/gemini/client.lisp @@ -437,8 +437,7 @@ (ctx (cl+ssl:make-context :verify-mode cl+ssl:+ssl-verify-none+))) (cl+ssl:with-global-context (ctx :auto-free-p t) (let ((socket (open-tls-socket host port))) - (when hooks:*after-gemini-socket* - (hooks:run-hooks 'hooks:*after-gemini-socket*)) + (hooks:run-hooks 'hooks:*after-gemini-socket*) (let* ((stream (usocket:socket-stream socket)) (ssl-hostname (if (or (iri:ipv4-address-p host) (iri:ipv6-address-p host)) @@ -459,9 +458,7 @@ (progn (write-sequence (string->octets request) ssl-stream) (force-output ssl-stream) - (misc:dbg "client hook ~a" hooks:*after-gemini-request-sent*) - (when hooks:*after-gemini-request-sent* - (hooks:run-hooks 'hooks:*after-gemini-request-sent*)) + (hooks:run-hooks 'hooks:*after-gemini-request-sent*) (multiple-value-bind (status description meta response) (parse-response ssl-stream) (values status description meta response socket)))))))))