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))