From 3551b2b6fd58c9f1d578a2f5a938d6f3d1d8c48f Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Thu, 5 Jan 2017 12:00:02 -0500 Subject: [PATCH] Remove a few more references to LRA on x86[-64] --- src/code/pred.lisp | 2 +- src/compiler/generic/late-type-vops.lisp | 2 +- src/compiler/generic/vm-typetran.lisp | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/code/pred.lisp b/src/code/pred.lisp index 312e9b1a6..8fc247c29 100644 --- a/src/code/pred.lisp +++ b/src/code/pred.lisp @@ -131,7 +131,7 @@ (def-type-predicate-wrapper integerp) (def-type-predicate-wrapper listp) (def-type-predicate-wrapper long-float-p) - (def-type-predicate-wrapper lra-p) + #!-(or x86 x86-64) (def-type-predicate-wrapper lra-p) (def-type-predicate-wrapper null) (def-type-predicate-wrapper numberp) (def-type-predicate-wrapper rationalp) diff --git a/src/compiler/generic/late-type-vops.lisp b/src/compiler/generic/late-type-vops.lisp index 3d0166b40..f3fe5e184 100644 --- a/src/compiler/generic/late-type-vops.lisp +++ b/src/compiler/generic/late-type-vops.lisp @@ -108,7 +108,7 @@ (!define-type-vop code-component-p (code-header-widetag)) -(!define-type-vop lra-p (return-pc-header-widetag)) +#!-(or x86 x86-64) (!define-type-vop lra-p (return-pc-header-widetag)) (!define-type-vop fdefn-p (fdefn-widetag)) diff --git a/src/compiler/generic/vm-typetran.lisp b/src/compiler/generic/vm-typetran.lisp index 555c8e238..5521e9a94 100644 --- a/src/compiler/generic/vm-typetran.lisp +++ b/src/compiler/generic/vm-typetran.lisp @@ -109,7 +109,7 @@ (define-type-predicate vector-nil-p (vector nil)) (define-type-predicate weak-pointer-p weak-pointer) (define-type-predicate code-component-p code-component) -(define-type-predicate lra-p lra) +#!-(or x86 x86-64) (define-type-predicate lra-p lra) (define-type-predicate fdefn-p fdefn) (macrolet ((def () -- 2.11.4.GIT