Index: /branches/x8664-call/ccl/compiler/X86/x86-lapmacros.lisp
===================================================================
--- /branches/x8664-call/ccl/compiler/X86/x86-lapmacros.lisp	(revision 6311)
+++ /branches/x8664-call/ccl/compiler/X86/x86-lapmacros.lisp	(revision 6312)
@@ -287,4 +287,10 @@
   `(jmp (@ ,(x86-subprim-offset name))))
 
+(defx86lapmacro xcall-subprim (name)
+  `(progn
+    (:talign 4)
+    (call (@ ,(x86-subprim-offset name)))
+    (recover-fn-from-rip)))
+
 (defx86lapmacro call-subprim (name &optional (recover-fn t))
   (declare (ignore recover-fn))