# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1720839539 14400
# Node ID d83b4d25d5c999d772296c869e87e3ff346477e9
# Parent  10c4bb778030c0695ff0e8d3031f55ceca4617ad
fixes

diff -r 10c4bb778030 -r d83b4d25d5c9 lisp/lib/dat/parquet/gen.lisp
--- a/lisp/lib/dat/parquet/gen.lisp	Fri Jul 12 22:33:57 2024 -0400
+++ b/lisp/lib/dat/parquet/gen.lisp	Fri Jul 12 22:58:59 2024 -0400
@@ -56,15 +56,17 @@
              ("binary" 'octet-vector)
              ("set" 'list)))
          (parse-type (o)
-           (intern
-            (concatenate 'string
+           (let ((name (string-case ((json-getf o "typeId"))
+                         ("union" (json-getf o "class"))
+                         ("struct" (json-getf o "class"))
+                         ("enum" (json-getf o "class")))))
+             (intern
+              (cond 
+                ((equal name "UUIDType") "PARQUET-UUID-TYPE")
+                (t (concatenate 'string
                          "PARQUET-"
-                         (camelcase-name-to-lisp-name
-                          (string-case ((json-getf o "typeId"))
-                            ("union" (json-getf o "class"))
-                            ("struct" (json-getf o "class"))
-                            ("enum" (json-getf o "class")))))
-            :dat/parquet)))
+                         (camelcase-name-to-lisp-name name))))
+              :dat/parquet))))
   (defun convert-parquet-struct-field-type (field) ;; technically part of thrift type system
     (let* ((type-id (parquet-struct-field-type-id field))
            (type (parquet-struct-field-type field))