X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Ffuncall.c;fp=src%2Fruntime%2Ffuncall.c;h=4eb1d7266e489f8c933b81b2b73c5bcf61251838;hb=26ac616b6783b8841ccda8b4f1caa7d898d91b86;hp=9236a48844aa87a12f805bb736e17aba315561dc;hpb=f93e3064ca572904ee399b77642ba52f2edfce3e;p=sbcl.git

diff --git a/src/runtime/funcall.c b/src/runtime/funcall.c
index 9236a48..4eb1d72 100644
--- a/src/runtime/funcall.c
+++ b/src/runtime/funcall.c
@@ -22,7 +22,11 @@
 #include "interrupt.h"
 
 /* This is implemented in assembly language and called from C: */
-extern lispobj call_into_lisp(lispobj fun, lispobj *args, int nargs);
+extern lispobj call_into_lisp(lispobj fun, lispobj *args, int nargs)
+#ifdef LISP_FEATURE_X86_64
+    __attribute__((sysv_abi))
+#endif
+    ;
 
 static inline lispobj
 safe_call_into_lisp(lispobj fun, lispobj *args, int nargs)