mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-19 05:30:23 -08:00
Code Issues Projects Releases Packages Wiki Activity

DEF-CONSTANT was missing from our UFFI interface

Browse source
This commit is contained in:
jgarcia 2007-08-09 20:50:46 +00:00
parent 4aef9500d0
commit 36b1af61d1
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/lsp/ffi.lsp
View file

@ -39,6 +39,13 @@
#-ecl-min
(clines "#include <string.h>")
(defmacro def-constant (name value &key (export nil))
"Macro to define a constant and to export it"
`(eval-when (:compile-toplevel :load-toplevel :execute)
(defconstant ,name ,value)
,(when export (list 'export `(quote ,name)))
',name))
;;;----------------------------------------------------------------------
;;; FOREIGN TYPES
;;;