X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fmacros.lisp;h=6eace04569b2fbfae6ae45f0fe399d993bd7082b;hb=b8f49ceae4a3b513de21f385bb784729d2ddff3f;hp=7e9ace428144a0b2772c122ba5655297cf072dc4;hpb=9105a2e4a8701814db413aa9ac3c41fd79d5b4f1;p=sbcl.git diff --git a/src/compiler/ppc/macros.lisp b/src/compiler/ppc/macros.lisp index 7e9ace4..6eace04 100644 --- a/src/compiler/ppc/macros.lisp +++ b/src/compiler/ppc/macros.lisp @@ -340,7 +340,7 @@ (inst andi. ,flag-tn alloc-tn 7) (inst twi :ne ,flag-tn 0)))) -(defmacro sb!sys::with-pinned-objects ((&rest objects) &body body) +(def!macro with-pinned-objects ((&rest objects) &body body) "Arrange with the garbage collector that the pages occupied by OBJECTS will not be moved in memory for the duration of BODY. Useful for e.g. foreign calls where another thread may trigger