mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: defcallback: accept ':default' calling convention

Browse source 
Fixes #244.
This commit is contained in:
Daniel Kochmański 2016-06-21 15:20:34 +02:00
parent f00fa4159b
commit f1857e0ed5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpcbk.lsp
View file

@ -96,7 +96,7 @@
return-type)))
(let ((return-type-name (rep-type->c-name (ffi::%convert-to-arg-type return-type)))
(fmod (case call-type
(:cdecl "")
((:cdecl :default) "")
(:stdcall "__stdcall ")
(t (cmperr "DEFCALLBACK does not support ~A as calling convention"
call-type)))))