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