;; struct allocator_std_type
;; {
;; 	void *(*malloc)(size_t);
;; 	void *(*realloc)(void *, size_t);
;; 	void (*free)(void *);
;; };

;; void *allocator_create(enum allocator_id allocator_id, void *ctx);

(defvar *std-ctx* (foreign-alloc '(:struct allocator-std-type))))

(cffi:with-foreign-slots ((malloc realloc free) *std-ctx* (:struct allocator-std-type))
  (setf malloc (foreign-symbol-pointer "malloc")
        realloc (foreign-symbol-pointer "realloc")
        free (foreign-symbol-pointer "free")))