,@(if module (list :module module) (values))
:result-type ,result-type
:language :ansi-c
- #+:win32 :calling-convention #+:win32 :cdecl)
+ #+:mswindows :calling-convention #+:mswindows :cdecl)
#+digitool
`(eval-when (:compile-toplevel :load-toplevel :execute)
(ccl:define-entry-point (,lisp-name ,foreign-name)