Define *timeout*
This commit is contained in:
parent
ea91a6043e
commit
f9dbc124b3
1 changed files with 6 additions and 4 deletions
|
@ -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*)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue