From b44fadf15090e7d587146a6227afb103e92f46fd Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Fri, 17 Nov 2017 00:52:51 -0500 Subject: [PATCH] Fix prior change for non-x86 --- src/compiler/generic/type-error.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/compiler/generic/type-error.lisp b/src/compiler/generic/type-error.lisp index cfae39d34..49a4ddf1f 100644 --- a/src/compiler/generic/type-error.lisp +++ b/src/compiler/generic/type-error.lisp @@ -85,10 +85,8 @@ ;; instruction pipe with undecodable junk (the sc-numbers). (error-call vop errcode object))) +#!+immobile-space (defun type-err-type-tn-loadp (thing) - (declare (ignorable thing)) - #!-immobile-space nil - #!+immobile-space (cond ((sc-is thing immediate) (let ((obj (tn-value thing))) (typecase obj @@ -109,6 +107,7 @@ (:args ,@(mapcar (lambda (arg) `(,arg :scs (descriptor-reg any-reg character-reg unsigned-reg signed-reg constant) + #!+immobile-space ,@(if (eq name 'type-check-error) `(:load-if (type-err-type-tn-loadp ,arg))))) args)) -- 2.11.4.GIT