X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpred.lisp;h=b71a7be64bbb9d03c1c488412ce1208e0332168d;hb=a3ab89c1db0dd9bfb911532ca134be16f16c4c1b;hp=79944d2c722114e18e5259c72713a64faee404b5;hpb=667ec9d494530079bef28e8589dd0d3274b935ec;p=sbcl.git

diff --git a/src/code/pred.lisp b/src/code/pred.lisp
index 79944d2..b71a7be 100644
--- a/src/code/pred.lisp
+++ b/src/code/pred.lisp
@@ -127,16 +127,6 @@
 	 (class-proper-name class)))
       name))))
 
-;;; FIXME: This belongs somewhere else, perhaps in code/array.lisp.
-(defun upgraded-array-element-type (spec)
-  #!+sb-doc
-  "Return the element type that will actually be used to implement an array
-   with the specifier :ELEMENT-TYPE Spec."
-  (if (unknown-type-p (specifier-type spec))
-      (error "undefined type: ~S" spec)
-      (type-specifier (array-type-specialized-element-type
-		       (specifier-type `(array ,spec))))))
-
 ;;;; equality predicates
 
 ;;; This is real simple, 'cause the compiler takes care of it.