X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Farray-tran.lisp;h=6d9a690f7d4f8415943b7887e94649458be9679b;hb=4dbc52ee4f9a4f566701f1d33e7916e8491b918b;hp=d2eafd110a6b1979d505b74547907f44815767c0;hpb=9347abeb5f42dc83d372c19b14e86204a6a588dd;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index d2eafd1..6d9a690 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -35,7 +35,11 @@
     ;; array type.
     (if (array-type-p type)
 	(array-type-specialized-element-type type)
-	*universal-type*)))
+	;; KLUDGE: there is no good answer here, but at least
+	;; *wild-type* won't cause HAIRY-DATA-VECTOR-{REF,SET} to be
+	;; erroneously optimized (see generic/vm-tran.lisp) -- CSR,
+	;; 2002-08-21
+	*wild-type*)))
 
 ;;; The ``new-value'' for array setters must fit in the array, and the
 ;;; return type is going to be the same as the new-value for SETF