X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fvm.lisp;h=9de32a9fd750394ef4e367fd18d41f8d0ff0050d;hb=96aa790ea1d70810e862665c3c8be4ce405a964c;hp=e655d12796b048b1fe0d020159ba199c189c290b;hpb=0af4499330edd8085a500113d791bdcc9cff46ad;p=sbcl.git

diff --git a/src/compiler/ppc/vm.lisp b/src/compiler/ppc/vm.lisp
index e655d12..9de32a9 100644
--- a/src/compiler/ppc/vm.lisp
+++ b/src/compiler/ppc/vm.lisp
@@ -394,3 +394,7 @@
                     (%%ldb integer size posn))))
          (t (values :default nil))))
       (t (values :default nil)))))
+
+(defun primitive-type-indirect-cell-type (ptype)
+  (declare (ignore ptype))
+  nil)