paku/website
1
0
Fork 0
Code Issues4 Pull requests Projects Releases Packages Wiki Activity Actions

Define auxiliary method instead of method overriding

Browse source
This commit is contained in:
Akira Tempaku 2025-05-07 09:05:58 +09:00
parent 48dedc92ca
commit 37d652b41c
Signed by: paku
GPG key ID: 5B4E8402BCC50607
1 changed files with 1 additions and 1 deletions

2
src/renderer.lisp
View file

@ -12,7 +12,7 @@
#:~layout))
(in-package #:website/renderer)
(defmethod jingle:process-response ((app jingle:app) result)
(defmethod jingle:process-response :around ((app jingle:app) result)
(set-response-header :content-type "text/html; charset=utf-8")
(when (eq (request-method *request*) :get)
(set-response-header :cache-control "public, max-age=60"))