;; Allocation macro for PPC to abstract out all allocation.#+ppc(in-package"PPC")(setflisp::*enable-package-locked-errors*nil)#+ppc(defmacroallocation(result-tnsizelowtag&keystack-ptemp-tn)(declare(ignorestack-ptemp-tn))(let((alloc-size(gensym)))`(let((,alloc-size,size))(if(logbitp(1-lowtag-bits),lowtag)(progn(instori,result-tnalloc-tn,lowtag))(progn(instclrrwi,result-tnalloc-tnlowtag-bits)(instori,result-tn,result-tn,lowtag)))(if(numberp,alloc-size)(instaddialloc-tnalloc-tn,alloc-size)(instaddalloc-tnalloc-tn,alloc-size)))))