-(setf
- (symbol-function 'allocate-memory) #'%allocate-memory
- (symbol-function 'deallocate-memory) #'%deallocate-memory)
+;; (setf
+;; (symbol-function 'allocate-memory) #'%allocate-memory
+;; (symbol-function 'deallocate-memory) #'%deallocate-memory)
+
+(setf *memory-allocator* #'%allocate-memory)
+(setf *memory-deallocator* #'%deallocate-memory)
+
+(defbinding (reallocate-memory "g_realloc") () pointer
+ (address pointer)
+ (size unsigned-long))