From: Drew Crampsie <drewc@tech.coop>
Date: Mon, 11 Jul 2005 02:49:06 +0000 (-0700)
Subject: exports fixes
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain/7c3aade7181b199b6c31f82dd24821ed1afb176f?ds=sidebyside

exports fixes

darcs-hash:20050711024906-5417e-d0fbea821bf83b9b35a7cb6dacd83176baddd25c.gz
---

diff --git a/src/mewa/presentations.lisp b/src/mewa/presentations.lisp
index 03db851..7e58ce2 100644
--- a/src/mewa/presentations.lisp
+++ b/src/mewa/presentations.lisp
@@ -135,7 +135,7 @@
   (setf (display-results-p self) t))
 
 (defmethod render-on ((res response) (self mewa-presentation-search))
-  (<:as-html (search-query self))
+  ;(<:as-html (search-query self))
   (ucw::render-criteria res self)
   (<ucw:input :type "submit" :value "Search" :action (ok self))
   (when (display-results-p self)
diff --git a/src/packages.lisp b/src/packages.lisp
index ab26337..a3d323b 100644
--- a/src/packages.lisp
+++ b/src/packages.lisp
@@ -54,7 +54,7 @@
    :mewa-list-presentation
    :mewa-presentation-search
    :find-attribute 
-   :set-default-leattributes 
+   :set-default-attributes 
    :make-presentation 
    :call-presentation 
    :label
@@ -94,4 +94,5 @@
    :mewa-list-presentation
    ;;;; Meta Model Exports))
    :def-view-class/table
-   :def-view-class/meta))
\ No newline at end of file
+   :def-view-class/meta
+   :list-slot-types))
\ No newline at end of file