Skip to content
Snippets Groups Projects
Commit d1dd7fdd authored by ram's avatar ram
Browse files

Only hack on TYPE-PRED-ALIST in the bootstrap env.

parent a6222d41
No related branches found
No related tags found
No related merge requests found
...@@ -43,6 +43,7 @@ ...@@ -43,6 +43,7 @@
(define-vop (structure-vector-p simple-vector-p) (define-vop (structure-vector-p simple-vector-p)
(:translate structure-vector-p)) (:translate structure-vector-p))
#-new-compiler
(set 'lisp::type-pred-alist (set 'lisp::type-pred-alist
(adjoin (cons 'structure-vector 'simple-vector-p) (adjoin (cons 'structure-vector 'simple-vector-p)
(symbol-value 'lisp::type-pred-alist) (symbol-value 'lisp::type-pred-alist)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment