X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpred.lisp;h=0d34b488681dac92245721ea3f0d399c8bd8d5ab;hb=568daf6b160280428701670b921f419aabd9eba0;hp=93299ddc7e93d5df7ea3d29a2973b696cd73283e;hpb=c2c405712ae18e70a96c4a8cf584dde329f3d5f7;p=sbcl.git

diff --git a/src/code/pred.lisp b/src/code/pred.lisp
index 93299dd..0d34b48 100644
--- a/src/code/pred.lisp
+++ b/src/code/pred.lisp
@@ -21,7 +21,8 @@
 (defun vector-t-p (x)
   (or (simple-vector-p x)
       (and (complex-vector-p x)
-           (simple-vector-p (%array-data-vector x)))))
+           (do ((data (%array-data-vector x) (%array-data-vector data)))
+               ((not (array-header-p data)) (simple-vector-p data))))))
 
 ;;;; primitive predicates. These must be supported directly by the
 ;;;; compiler.