cosmetic: deduplicate expand-deftype function definition

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>

src/cmp/cmpprop.lsp

@@ -339,7 +339,7 @@ compute it. This version only handles the simplest cases."
                  'character)
                 ((eq array 'base-string)
                  'base-char)
-                ((member (setf array (expand-deftype array))
+                ((member (setf array (si::expand-deftype array))
                          '(array vector simple-array))
                  t)
                 ((atom array)

src/cmp/cmptype.lsp

@@ -42,16 +42,6 @@
         (c1constant-value new-value :only-small-values t)
         (c1nil))))
 
-(defun expand-deftype (type)
-  (let (base args)
-    (if (atom type)
-        (setf base type args nil)
-        (setf base (car type) args (cdr type)))
-    (let ((fn (get-sysprop base 'SI::DEFTYPE-DEFINITION)))
-      (if fn
-          (expand-deftype (apply fn args))
-          type))))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; TYPE CHECKING