X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fvm.lisp;h=9602f2fc88ef0cb4f1a6c25dea5a99501c1cf911;hb=8e6b746f034c8632394c56a4aa43c38333335a2e;hp=a32c6d7523570c3d0b55ec00c76fdb8936241b1d;hpb=56a2dbbb9d79a62db99cc4061e50fca74fcf907e;p=sbcl.git diff --git a/src/compiler/mips/vm.lisp b/src/compiler/mips/vm.lisp index a32c6d7..9602f2f 100644 --- a/src/compiler/mips/vm.lisp +++ b/src/compiler/mips/vm.lisp @@ -313,6 +313,10 @@ (character (sc-number-or-lose 'immediate)))) +(!def-vm-support-routine boxed-immediate-sc-p (sc) + (or (eql sc (sc-number-or-lose 'zero)) + (eql sc (sc-number-or-lose 'null)) + (eql sc (sc-number-or-lose 'immediate)))) ;;;; Function Call Parameters