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

diff --git a/utilities.lisp b/utilities.lisp
index ff2dc70389b042eb0870d0218aaf545455faed1b..d524371058ec9b1d5901e7fa749bdbbd701eda01 100644 (file)
--- 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