asdf-support: simplify do-process-import calling

[cl-protobufs.git] / clos-transform.lisp

diff --git a/clos-transform.lisp b/clos-transform.lisp
index 82e37c4ff68cb6297451b9bfd03fe303958414dd..91629559e3dcd61a8dced650d3656ead11f7810c 100644 (file)
--- a/clos-transform.lisp
+++ b/clos-transform.lisp
@@ -267,6 +267,8 @@
          (list-of-list-of (list-of-list-of))
          (type-enum (when (and *protobuf* (symbolp type))
                       (find-enum *protobuf* type)))
+         (type-alias (when (and *protobuf* (symbolp type))
+                       (find-type-alias *protobuf* type)))
          (expanded-type (type-expand type)))
     (cond
       ((listp type)
@@ -350,6 +352,8 @@
                    (lisp-type-to-protobuf-type (first tail))
                  (values type class (packed-type-p class)))
                (lisp-type-to-protobuf-type type))))))
+      (type-alias
+       (values (proto-proto-type-str type-alias) type))
       ((not (or type-enum (equal type expanded-type)))
        (clos-type-to-protobuf-type expanded-type))
       (t