X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fshow.lisp;h=78a236aa63ef48b5a8dbfcc8fae43c3b0a059534;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=c5ac7f8700ba7be499521a919b66e85ff97f3a8e;hpb=b2426aa7337c9eae7a325e39e381aaf704294d8e;p=sbcl.git

diff --git a/src/compiler/mips/show.lisp b/src/compiler/mips/show.lisp
index c5ac7f8..78a236a 100644
--- a/src/compiler/mips/show.lisp
+++ b/src/compiler/mips/show.lisp
@@ -27,8 +27,8 @@
       (move nl0 object)
       (inst li cfunc (make-fixup "debug_print" :foreign))
       (inst jal (make-fixup "call_into_c" :foreign))
-      (inst addu nsp-tn nsp-tn -16)
-      (inst addu nsp-tn nsp-tn 16)
+      (inst subu nsp-tn 16)
+      (inst addu nsp-tn 16)
       (when cur-nfp
         (load-stack-tn cur-nfp nfp-save))
       (move result nl0))))