1.1--- a/lisp/lib/dat/parquet/gen.lisp	Fri Jul 12 22:33:57 2024 -0400
     1.2+++ b/lisp/lib/dat/parquet/gen.lisp	Fri Jul 12 22:58:59 2024 -0400
     1.3@@ -56,15 +56,17 @@
     1.4              ("binary" 'octet-vector)
     1.5              ("set" 'list)))
     1.6          (parse-type (o)
     1.7-           (intern
     1.8-            (concatenate 'string
     1.9+           (let ((name (string-case ((json-getf o "typeId"))
    1.10+                         ("union" (json-getf o "class"))
    1.11+                         ("struct" (json-getf o "class"))
    1.12+                         ("enum" (json-getf o "class")))))
    1.13+             (intern
    1.14+              (cond 
    1.15+                ((equal name "UUIDType") "PARQUET-UUID-TYPE")
    1.16+                (t (concatenate 'string
    1.17                          "PARQUET-"
    1.18-                         (camelcase-name-to-lisp-name
    1.19-                          (string-case ((json-getf o "typeId"))
    1.20-                            ("union" (json-getf o "class"))
    1.21-                            ("struct" (json-getf o "class"))
    1.22-                            ("enum" (json-getf o "class")))))
    1.23-            :dat/parquet)))
    1.24+                         (camelcase-name-to-lisp-name name))))
    1.25+              :dat/parquet))))
    1.26   (defun convert-parquet-struct-field-type (field) ;; technically part of thrift type system
    1.27     (let* ((type-id (parquet-struct-field-type-id field))
    1.28            (type (parquet-struct-field-type field))