- (modifications self) (append (list (type-of new) (type-of old) (type-of value) slot instance )))))))
\ No newline at end of file
+ (modifications self) (append (list new old value slot instance) (modifications self)))))))
+
+;;;; * Finally set up some defaults
+
+(setf (find-attribute t :viewer)
+ '(mewa-object-presentation :global-properties (:editablep nil))
+ (find-attribute t :editor)
+ '(mewa-object-presentation :global-properties (:editablep t))
+ (find-attribute t :one-line)
+ '(mewa::mewa-one-line-presentation)
+ (find-attribute t :listing)
+ '(mewa::mewa-list-presentation :global-properties (:editablep nil) :editablep t)
+ (find-attribute t :search-presentation)
+ '(mewa-object-presentation))
+
+
+
+
+
+;; This software is Copyright (c) Drew Crampsie, 2004-2005.
+;; You are granted the rights to distribute
+;; and use this software as governed by the terms
+;; of the Lisp Lesser GNU Public License
+;; (http://opensource.franz.com/preamble.html),
+;; known as the LLGPL.