X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fvm.lisp;h=ae0b11147bbd21bf80f7e57e664bc42dd5b4271d;hb=beddcfe1ea23d2cfdddde2fa7cde6436799715a2;hp=d2b7ba5383a022667797806aeb370c3a2e9e74fe;hpb=56a2dbbb9d79a62db99cc4061e50fca74fcf907e;p=sbcl.git

diff --git a/src/compiler/x86/vm.lisp b/src/compiler/x86/vm.lisp
index d2b7ba5..ae0b111 100644
--- a/src/compiler/x86/vm.lisp
+++ b/src/compiler/x86/vm.lisp
@@ -516,7 +516,3 @@
                                (%logbitp integer index))))
          (t (values :default nil))))
       (t (values :default nil)))))
-
-(defun primitive-type-indirect-cell-type (ptype)
-  (declare (ignore ptype))
-  nil)