0.7.13.28:

[sbcl.git] / src / code / pred.lisp

diff --git a/src/code/pred.lisp b/src/code/pred.lisp
index 79944d2..b71a7be 100644 (file)
--- a/src/code/pred.lisp
+++ b/src/code/pred.lisp
@@ -127,16 +127,6 @@
         (class-proper-name class)))
       name))))
 \f
-;;; 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))))))
-\f
 ;;;; equality predicates
 
 ;;; This is real simple, 'cause the compiler takes care of it.