(define attributes (list))
(define obj "Teststring")
(let ((evicted-obj (object-evict obj)))
    (set! attributes (alist-cons test: evicted-obj attributes))
    ((foreign-lambda void "IupSetAttribute" c-string c-pointer) "Title" (object->pointer evicted-obj)))