diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp index fd328d7e84560ca8ea89927213a5e8c2e4d2b697..8833807960e30a6d73ecb950b082fbbbc0b54446 100644 --- a/compiler/mips/arith.lisp +++ b/compiler/mips/arith.lisp @@ -34,7 +34,7 @@ (inst sub res zero-tn x))) (define-vop (fast-lognot/fixnum fixnum-unop) - (:temporary (:scs (any-reg) :type fixnum :to (result 0)) + (:temporary (:scs (any-reg) :type fixnum :to (:result 0)) temp) (:translate lognot) (:generator 1