MOP: Added messages for setf prop-v stuff.

zkat · Dec 24, 2009 · f8dbe3b · f8dbe3b
1 parent d440c6d
commit f8dbe3b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/mop/properties.lisp b/src/mop/properties.lisp
@@ -17,9 +17,13 @@
   (:reply ((metaobject =standard-metaobject=) object property-name)
     (std-property-value object property-name)))
 
-(defmessage (setf smop:property-value) (new-value metaobject object property-name &key)
+(defmessage smop:add-direct-property (metaobject object property-name &key)
+  (:reply ((metaobject =standard-metaobject=) object property-name &rest options)
+    (apply #'std-add-direct-property object property-name options)))
+
+(defmessage (setf smop:direct-property-value) (new-value metaobject object property-name &key)
   (:reply (new-value (metaobject =standard-metaobject=) object property-name &rest options)
-    (apply #'(setf std-property-value) new-value object property-name options)))
+    (apply #'(setf std-direct-property-value) new-value object property-name options)))
 
 (defmessage smop:property-makunbound (metaobject object property-name)
   (:reply ((metaobject =standard-metaobject=) object property-name)

diff --git a/src/packages.lisp b/src/packages.lisp
@@ -134,6 +134,7 @@
    :property-makunbound
    :property-owner
    :property-value
+   :add-direct-property
    :remove-all-direct-properties
    :remove-all-direct-properties
    :remove-property