X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fseqtran.lisp;h=660f804fcde86c6f5d64336cf66b408d5d9f797b;hb=c3d4cd43d7cd8e0495dbb9c11fd9c121ea069a45;hp=c12d7b405e3c1a9f1bc03d737d4ca0beac0d9c6a;hpb=d1151f185f19fbd4067bddc84b7d45bebf990f6f;p=sbcl.git

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index c12d7b4..660f804 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -90,13 +90,14 @@
 	 ,(cond ((policy node (< safety 3))
 		 ;; ANSI requires the length-related type check only
 		 ;; when the SAFETY quality is 3... in other cases, we
-		 ;; skip it.
+		 ;; skip it, because it could be expensive.
 		 bare)
 		((not constant-result-type-arg-p)
 		 `(sequence-of-checked-length-given-type ,bare
 							 result-type-arg))
 		(t
-		 (let ((result-ctype (ir1-transform-specifier-type result-type)))
+		 (let ((result-ctype (ir1-transform-specifier-type
+				      result-type)))
 		   (if (array-type-p result-ctype)
 		       (let ((dims (array-type-dimensions result-ctype)))
 			 (unless (and (listp dims) (= (length dims) 1))