From 4e7631c95e2ad041f95c5c0377d9d5cf15df8658 Mon Sep 17 00:00:00 2001 From: Drew Crampsie Date: Mon, 11 Jul 2005 03:22:10 -0700 Subject: [PATCH] list-slot-types fix for tables missing :db-kind :base darcs-hash:20050711102210-5417e-8b6eea49520d1ec4e244d7c7fbdefd72d6298d75.gz --- src/meta-model.lisp | 2 +- src/mewa/presentations.lisp | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/meta-model.lisp b/src/meta-model.lisp index aabd2ff..4416423 100644 --- a/src/meta-model.lisp +++ b/src/meta-model.lisp @@ -102,7 +102,7 @@ most of the below functions expect this method to exist" (list-item-helper type view :ret-fun #'rfun))) - (append (lister :key) (lister :base)))) + (append (lister :key) (lister :base) (lister nil)))) (defmethod slot-type ((view t) slot) "returns the CLSQL type of SLOT" 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) -- 2.20.1