anchor.diff:  
   (defbinding handle-write () boolean
     (handle handle)
  -  (data string)
  -  ((length data) int) ; TODO: compute propper length of utf8 string
  +  (data (vector int8))
  +  ((length data) int)
     (nil gerror-signal :out))
   
   (defbinding handle-close () boolean
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: rsvg.lisp,v 1.5 2006-08-30 11:08:13 espen Exp $
  
  (in-package "RSVG")
  
  
negative.code: 
  (defbinding %handle-new-from-data () pointer
    (data string)
    ((1- (utf8-length data)) int)
    (nil gerror-signal :out))
  
  (defbinding %handle-new-from-file () pointer
  