Merge branch 'master' of git://common-lisp.net/projects/qitab/cl-protobufs

[cl-protobufs.git] / utilities.lisp

diff --git a/utilities.lisp b/utilities.lisp
index 939cb08c3b8469fffaa0d921a2da069f08bb394d..06603bab22cfa0629bd88a96fd4a7b5743cf2dd3 100644 (file)
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -314,6 +314,15 @@
 (deftype sfixed32 () '(signed-byte 32))
 (deftype sfixed64 () '(signed-byte 64))
 
+;; Type expansion
+(defun type-expand (type)
+  #+allegro (excl:normalize-type type :default type)
+  #+ccl (ccl::type-expand type)
+  #+clisp (ext:type-expand type)
+  #+cmu (kernel:type-expand type)
+  #+lispworks (type:expand-user-type type)
+  #+sbcl (sb-ext:typexpand type)
+  #-(or allegro ccl clisp cmu lispworks sbcl) type)
 
 ;;; Code generation utilities