From 7c3aade7181b199b6c31f82dd24821ed1afb176f Mon Sep 17 00:00:00 2001
From: Drew Crampsie <drewc@tech.coop>
Date: Sun, 10 Jul 2005 19:49:06 -0700
Subject: [PATCH 1/1] exports fixes

darcs-hash:20050711024906-5417e-d0fbea821bf83b9b35a7cb6dacd83176baddd25c.gz
---
 src/mewa/presentations.lisp | 2 +-
 src/packages.lisp           | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

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
-- 
2.20.1