(defmacro def-function (names args &key module returning)
- #+(or cmu sbcl scl allegro mcl cormanlisp) (declare (ignore module))
-
(multiple-value-bind (lisp-args out processed)
(preprocess-args args)
(if (= (length out) 0)
,@(if module (list :module module) (values))
:result-type ,result-type
:language :ansi-c
- :calling-convention :cdecl)
+ #-macosx :calling-convention #-macosx :cdecl)
#+(and mcl (not openmcl))
`(eval-when (:compile-toplevel :load-toplevel :execute)
(ccl:define-entry-point (,lisp-name ,foreign-name)