(glsl-packing:pack-structs
 '((:packing :std140)
   ("struct1"
    (:struct ()
     ("gi" (:vec (:float 32) 3))
     ("lights" (:array
                (:struct ()
                         ("type" (:int 32))
                         ("loc" (:vec (:float 32) 3))
                         ("dim" (:vec (:float 32) 4))
                         ("color" (:vec (:float 32) 3))
                         ("int" (:float 32)))
                32))
     ("count" (:int 32))))))