-(defbinding %selection-data-copy () pointer
- (location pointer))
-
-(defbinding %selection-data-free () nil
- (location pointer))
-
-(defmethod reference-foreign ((class (eql (find-class 'selection-data))) location)
- (declare (ignore class))
- (%selection-data-copy location))
-
-(defmethod unreference-foreign ((class (eql (find-class 'selection-data))) location)
- (declare (ignore class))
- (%selection-data-free location))
-