From b99d9024214f4209c940ab83b5bea767bd1ae37e Mon Sep 17 00:00:00 2001 From: "bnmcgn@gmail.com" Date: Tue, 2 Sep 2025 06:08:38 -0700 Subject: [PATCH] Add *connection-timeout* --- main.lisp | 4 ++++ package.lisp | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/main.lisp b/main.lisp index 98f2a14..584a126 100644 --- a/main.lisp +++ b/main.lisp @@ -20,6 +20,9 @@ ;; ————————————————————————————————————— ;; BASE +(defparameter *connection-timeout* 20 + "Override drakma's :connection-timeout default for any function that uses ipfs-call") + ;; STRING LIST [:LIST :BOOLEAN :SYMBOL] → STRING | ALIST | (NIL STRING) (defun ipfs-call (call arguments &key (parameters nil) (want-stream nil) (method :POST)) @@ -35,6 +38,7 @@ (make-call-url call arguments) :method method :url-encoder #'ipfs::url-encode + :connection-timeout *connection-timeout* :parameters parameters :want-stream want-stream)))) (if want-stream diff --git a/package.lisp b/package.lisp index cad7346..e61d19c 100644 --- a/package.lisp +++ b/package.lisp @@ -169,4 +169,5 @@ ;; version calls :version :version-deps - #:with-files-write)) + #:with-files-write + #:*connection-timeout*))