X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Farray.lisp;h=d8d04e90ddf3d3eb5c491034d120bcec596667ee;hb=4bc9a2b01540f3a7cbf4499b4689b292fe406139;hp=5f0709f7306575ba9ec0de3710ed196d380c8e50;hpb=92209029befc55315cca38710d55c9f4608baff3;p=sbcl.git

diff --git a/src/code/array.lisp b/src/code/array.lisp
index 5f0709f..d8d04e9 100644
--- a/src/code/array.lisp
+++ b/src/code/array.lisp
@@ -65,15 +65,6 @@
   (bug "called FAILED-%WITH-ARRAY-DATA with valid array parameters?"))
 
 ;;;; MAKE-ARRAY
-(defun upgraded-array-element-type (spec &optional environment)
-  #!+sb-doc
-  "Return the element type that will actually be used to implement an array
-   with the specifier :ELEMENT-TYPE Spec."
-  (declare (ignore environment))
-  (if (unknown-type-p (specifier-type spec))
-      (error "undefined type: ~S" spec)
-      (type-specifier (array-type-specialized-element-type
-		       (specifier-type `(array ,spec))))))
 (eval-when (:compile-toplevel :execute)
   (sb!xc:defmacro pick-vector-type (type &rest specs)
     `(cond ,@(mapcar (lambda (spec)