X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-type.lisp;h=e43b2d44c183b84d5e0937fbc38bc130ad44617c;hb=a163c70e2bef35bf482a785dbfd9c545b4fcd555;hp=a900222c2a43962ea064936c236e34b12e6e33f7;hpb=7646aefa188758e2892fea2ad02be4f29b3938f2;p=sbcl.git

diff --git a/src/compiler/generic/vm-type.lisp b/src/compiler/generic/vm-type.lisp
index a900222..e43b2d4 100644
--- a/src/compiler/generic/vm-type.lisp
+++ b/src/compiler/generic/vm-type.lisp
@@ -137,6 +137,27 @@
       (type-specifier (array-type-specialized-element-type
 		       (specifier-type `(array ,spec))))))
 
+(defun sb!xc:upgraded-complex-part-type (spec &optional environment)
+  #!+sb-doc
+  "Return the element type of the most specialized COMPLEX number type that
+   can hold parts of type SPEC."
+  (declare (ignore environment))
+  (if (unknown-type-p (specifier-type spec))
+      (error "undefined type: ~S" spec)
+      (let ((ctype (specifier-type `(complex ,spec))))
+	(cond
+	  ((eq ctype *empty-type*) '(eql 0))
+	  ((csubtypep ctype (specifier-type '(complex single-float)))
+	   'single-float)
+	  ((csubtypep ctype (specifier-type '(complex double-float)))
+	   'double-float)
+	  #!+long-float
+	  ((csubtypep ctype (specifier-type '(complex long-float)))
+	   'long-float)
+	  ((csubtypep ctype (specifier-type '(complex rational)))
+	   'rational)
+	  (t 'real)))))
+
 ;;; Return the most specific integer type that can be quickly checked that
 ;;; includes the given type.
 (defun containing-integer-type (subtype)