From: Alejandro R Sedeño <asedeno@google.com>
Date: Sun, 3 Mar 2013 07:39:10 +0000 (-0500)
Subject: utilities.lisp: This is how ABCL and XCL do type expansion
X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=commitdiff_plain;h=66ce3df9a3364e74f55f4797e9506b28e41b1fd5;p=cl-protobufs.git

utilities.lisp: This is how ABCL and XCL do type expansion
---

diff --git a/utilities.lisp b/utilities.lisp
index ff2dc70..d524371 100644
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -321,6 +321,7 @@
 
 ;; Type expansion
 (defun type-expand (type)
+  #+(or abcl xcl) (system::expand-deftype type)
   #+allegro (excl:normalize-type type :default type)
   #+ccl (ccl::type-expand type)
   #+clisp (ext:type-expand type)
@@ -328,7 +329,7 @@
   #+(or ecl mkcl) (si::expand-deftype type)
   #+lispworks (type:expand-user-type type)
   #+sbcl (sb-ext:typexpand type)
-  #-(or allegro ccl clisp cmu ecl lispworks mkcl sbcl) type)
+  #-(or abcl allegro ccl clisp cmu ecl lispworks mkcl sbcl xcl) type)
 
 
 ;;; Code generation utilities