X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fvm.lisp;h=76577a6a16f857cacee01ee4a53ce008eb069acd;hb=e188f845350da58ffd0f52f08f21cb06cd57c584;hp=ed057033404c2943aa6829b7be14355e41f2c5ee;hpb=b6e9c116826f9461e2660d87c031fd1c4488e776;p=sbcl.git

diff --git a/src/compiler/x86-64/vm.lisp b/src/compiler/x86-64/vm.lisp
index ed05703..76577a6 100644
--- a/src/compiler/x86-64/vm.lisp
+++ b/src/compiler/x86-64/vm.lisp
@@ -495,3 +495,6 @@
 
 (def!constant cfp-offset rbp-offset) ; pfw - needed by stuff in /code
 
+(!def-vm-support-routine combination-implementation-style (node)
+  (declare (type sb!c::combination node) (ignore node))
+  (values :default nil))