diff --git a/compiler/old-rt/vm-tran.lisp b/compiler/old-rt/vm-tran.lisp index 99007587a3f111f30cf362134ef51503cc569e55..507223e7404f907b33960008e76c61361efe85f3 100644 --- a/compiler/old-rt/vm-tran.lisp +++ b/compiler/old-rt/vm-tran.lisp @@ -43,6 +43,7 @@ (define-vop (structure-vector-p simple-vector-p) (:translate structure-vector-p)) +#-new-compiler (set 'lisp::type-pred-alist (adjoin (cons 'structure-vector 'simple-vector-p) (symbol-value 'lisp::type-pred-alist)