X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/7c3aade7181b199b6c31f82dd24821ed1afb176f..799ee65db4f2b83d8600920db490213bc167841f:/src/mewa/presentations.lisp diff --git a/src/mewa/presentations.lisp b/src/mewa/presentations.lisp index 7e58ce2..230ead5 100644 --- a/src/mewa/presentations.lisp +++ b/src/mewa/presentations.lisp @@ -134,6 +134,7 @@ (setf (ucw::instances (ucw::list-presentation self)) (valid-instances self)) (setf (display-results-p self) t)) + (defmethod render-on ((res response) (self mewa-presentation-search)) ;(<:as-html (search-query self)) (ucw::render-criteria res self)