+(defbinding %object-ref (type location) pointer
+ (location pointer))
+
+(defbinding %object-unref (type location) nil
+ (location pointer))
+
+
+(defun object-ref (object)
+ (%object-ref nil (proxy-location object)))
+
+(defun object-unref (object)
+ (%object-unref nil (proxy-location object)))
+
+