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