From d1dd7fdd58111724f7c74a6c487949e1886513f8 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 29 May 1990 16:42:27 +0000
Subject: [PATCH] Only hack on TYPE-PRED-ALIST in the bootstrap env.

---
 compiler/old-rt/vm-tran.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/old-rt/vm-tran.lisp b/compiler/old-rt/vm-tran.lisp
index 99007587a..507223e74 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)
-- 
GitLab