Define *timeout*

This commit is contained in:
Akira Tempaku 2025-05-17 11:22:03 +09:00
parent ea91a6043e
commit f9dbc124b3
Signed by: paku
GPG key ID: 5B4E8402BCC50607

View file

@ -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*)