X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fsap.lisp;h=144e6186ffb4caabd812c0cd4cb48a5483ef9af2;hb=91ee7afd75d8b282829daa647d0a8f1469336a77;hp=ad72a85998b198e4b90a94a6f6a01db23933b1e2;hpb=7b5e83200d210ff69dbdc1e74d54a58fa1d98fcb;p=sbcl.git

diff --git a/src/compiler/mips/sap.lisp b/src/compiler/mips/sap.lisp
index ad72a85..144e618 100644
--- a/src/compiler/mips/sap.lisp
+++ b/src/compiler/mips/sap.lisp
@@ -32,7 +32,7 @@
   (:results (res :scs (descriptor-reg)))
   (:note "SAP to pointer coercion")
   (:generator 20
-    (with-fixed-allocation (res pa-flag ndescr sap-widetag sap-size)
+    (with-fixed-allocation (res pa-flag ndescr sap-widetag sap-size nil)
       (storew sap res sap-pointer-slot other-pointer-lowtag))))
 
 (define-move-vop move-from-sap :move