added a method for symbols so that (meta-model.metadata 'class) works.

[clinton/lisp-on-lines.git] / src / packages.lisp

diff --git a/src/packages.lisp b/src/packages.lisp
index afa92f2..839feba 100644 (file)
--- a/src/packages.lisp
+++ b/src/packages.lisp
@@ -58,15 +58,18 @@
    :make-presentation 
    :call-presentation 
    :label 
-   :set-attribute 
+   :set-attribute
+   :perform-set-attributes
    :find-class-attributes 
    :default-attributes 
    :ok
    :edit-instance
    :save-instance
    :cancel-save-instance
-   :global-properties))
-
+   :ensure-instance-sync
+   :global-properties
+   :search-expr
+   :search-query))
 
 (defpackage :lisp-on-lines
-  (:use :mewa :meta-model :common-lisp :it.bese.ucw))
\ No newline at end of file
+  (:use :mewa :meta-model :common-lisp :it.bese.ucw))