diff --git a/src/gemini/client.lisp b/src/gemini/client.lisp index 4236a5c..a51912c 100644 --- a/src/gemini/client.lisp +++ b/src/gemini/client.lisp @@ -510,9 +510,9 @@ #-sbcl (parse-response ssl-stream) (values status description meta response socket)))))) (warning (w) - (warn w)) + (warn "~a" w)) (error (e) - (error e))))))) + (error "~a" e))))))) (defun missing-dispath-function (status code-description meta response socket iri parsed-iri) (declare (ignore response socket parsed-iri)) diff --git a/src/software-configuration.lisp b/src/software-configuration.lisp index 092c370..1b8fdaf 100644 --- a/src/software-configuration.lisp +++ b/src/software-configuration.lisp @@ -738,9 +738,9 @@ (defun access-non-null-conf-value (object &rest keys) (let ((value (apply #'access:accesses object keys))) (if (null value) - (error (_ (format nil - (_ "The configuration (*.conf) file is missing the value for ~s") - (access-key->user-directive keys)))) + (error (format nil + (_ "The configuration (*.conf) file is missing the value for ~s") + (access-key->user-directive keys))) value))) (defun close-link-window-after-select-p () @@ -1775,6 +1775,6 @@ (config-server-name))) (config-gemini-proxy) (when (access:accesses *software-configuration* :post-allowed-language) - (error (_ "\"post-allowed-language = …\" has been removed as configuration directive; use: \"default.post.language = …\", instead"))) + (error (_ "\"post-allowed-language = …\" has been removed as configuration directive; use: \"post.allowed.language = …\", instead"))) (when (access:accesses *software-configuration* :crypted) (error (_ "\"crypted\" is not used anymore; use: \"encrypted\", instead"))))