X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fvm.lisp;h=63af4f9dbb755bcf64001c19c5c98d9fe7679cdd;hb=5ba61168c5e0ee518580d555dfc7fd64f9ff8a23;hp=77bd30eef2a08004f5998784a4ff2f87fec830c2;hpb=56a2dbbb9d79a62db99cc4061e50fca74fcf907e;p=sbcl.git

diff --git a/src/compiler/x86-64/vm.lisp b/src/compiler/x86-64/vm.lisp
index 77bd30e..63af4f9 100644
--- a/src/compiler/x86-64/vm.lisp
+++ b/src/compiler/x86-64/vm.lisp
@@ -552,7 +552,3 @@
 (!def-vm-support-routine combination-implementation-style (node)
   (declare (type sb!c::combination node) (ignore node))
   (values :default nil))
-
-(defun primitive-type-indirect-cell-type (ptype)
-  (declare (ignore ptype))
-  nil)