X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-type.lisp;h=c909e8d8b4c1c8cc01b867a3c677847d1ff0f1b3;hb=63cef087068afc157283c0a05ae1f16b962303aa;hp=68083092c8f01981e185bd2abd4a6c2098fe127b;hpb=c713eb2b521b048ff2c927ec52b861787d289f85;p=sbcl.git

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index 6808309..c909e8d 100644
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -800,6 +800,7 @@
 (defun simplified-compound-types (input-types %compound-type-p simplify2)
   (let ((simplified-types (make-array (length input-types)
 				      :fill-pointer 0
+				      :adjustable t
 				      :element-type 'ctype
 				      ;; (This INITIAL-ELEMENT shouldn't
 				      ;; matter, but helps avoid type