I'm trying to convert this   declaration of an array of points to CFFI but I'm getting unhandled memory fault errors Directly below this C declaration is a tree of foreign-alloc functions I used to create this I'm hoping someone can check my work and tell me if it is my declaration that's the problem

Point pt[2][3];     pt[0][0].x = rng.uniform(x_1, x_2);     pt[0][0].y = rng.uniform(y_1, y_2);     pt[0][1].x = rng.uniform(x_1, x_2);     pt[0][1].y = rng.uniform(y_1, y_2);     pt[0][2].x = rng.uniform(x_1, x_2);     pt[0][2].y = rng.uniform(y_1, y_2);     pt[1][0].x = rng.uniform(x_1, x_2);     pt[1][0].y = rng.uniform(y_1, y_2);     pt[1][1].x = rng.uniform(x_1, x_2);     pt[1][1].y = rng.uniform(y_1, y_2);     pt[1][2].x = rng.uniform(x_1, x_2);     pt[1][2].y = rng.uniform(y_1, y_2);

const Point* ppt[2] = {pt[0], pt[1]};

(foreign-array-alloc #2A((501 10) (255 10) (501 255) (10 501)) '(:array :int 4 2)))

(d a (foreign-alloc :pointer :count 2 :initial-contents

(list                             (foreign-alloc :pointer :count 3 :initial-contents

(list                                                    (foreign-alloc :pointer :initial-element                                                    (point (uniform rng x-1 x-2) (uniform rng y-1 y-2)))

(foreign-alloc :pointer :initial-element                                                    (point (uniform rng x-1 x-2) (uniform rng y-1 y-2)))

(foreign-alloc :pointer :initial-element                                                    (point (uniform rng x-1 x-2) (uniform rng y-1 y-2)))))

(foreign-alloc :pointer :count 3 :initial-contents

(list                                                    (foreign-alloc :pointer :initial-element                                                    (point (uniform rng x-1 x-2) (uniform rng y-1 y-2)))

(foreign-alloc :pointer :initial-element                                                    (point (uniform rng x-1 x-2) (uniform rng y-1 y-2)))

(foreign-alloc :pointer :initial-element                                                    (point (uniform rng x-1 x-2) (uniform rng y-1 y-2))))))))

Here is how I have point defined it works as intended. The uniform function works well in the point so I didn't post but will if necessary

;; Point* cv_create_Point(int x, int y)  (defcfun ("cv_create_Point2" point2) (:pointer point)   "Point constructor"   (x :int)   (y :int))