From f9dbc124b307286fa00eddac2bf3af3271801154 Mon Sep 17 00:00:00 2001
From: Akira Tempaku <paku@skyizwhite.dev>
Date: Sat, 17 May 2025 11:22:03 +0900
Subject: [PATCH] Define *timeout*
---
src/lib/cms.lisp | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/src/lib/cms.lisp b/src/lib/cms.lisp
index e61aa08..7f24118 100644
--- a/src/lib/cms.lisp
+++ b/src/lib/cms.lisp
@@ -24,12 +24,14 @@
(defcached (,name :timeout ,timeout) (&key query)
(,origin :query query)))))
+(defparameter *timeout* 60)
+
(define-object-client about)
-(memorize get-about 60)
+(memorize get-about *timeout*)
(define-object-client work)
-(memorize get-work 60)
+(memorize get-work *timeout*)
(define-list-client blog)
-(memorize get-blog-list 60)
-(memorize get-blog-detail 60)
+(memorize get-blog-list *timeout*)
+(memorize get-blog-detail *timeout*)