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

Name change of FIND-FOREIGN-VAR -> FIND-FOREIGN-SYMBOL

Browse source
This commit is contained in:
jjgarcia 2005-10-04 13:51:36 +00:00
parent 96fcaaf344
commit 77e86b4c38
4 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/ffi.d
View file

@ -407,5 +407,5 @@ OUTPUT:
if (type_of(output) == t_foreign)
@(return output)
else
FEerror("FIND-FOREIGN-VAR: Could not load foreign variable ~S from modeul ~S (Error: ~S)", 3, var, module, output);
FEerror("FIND-FOREIGN-SYMBOL: Could not load foreign variable ~S from modeul ~S (Error: ~S)", 3, var, module, output);
}

2
src/c/symbols_list.h
View file

@ -1429,7 +1429,7 @@ cl_symbols[] = {
#endif
{SYS_ "ALLOCATE-FOREIGN-DATA", SI_ORDINARY, si_allocate_foreign_data, 2, OBJNULL},
{SYS_ "FIND-FOREIGN-VAR", SI_ORDINARY, si_find_foreign_symbol, 4, OBJNULL},
{SYS_ "FIND-FOREIGN-SYMBOL", SI_ORDINARY, si_find_foreign_symbol, 4, OBJNULL},
{SYS_ "FOREIGN-DATA", SI_ORDINARY, NULL, -1, OBJNULL},
{SYS_ "FOREIGN-DATA-ADDRESS", SI_ORDINARY, si_foreign_data_address, 1, OBJNULL},
{SYS_ "FOREIGN-DATA-POINTER", SI_ORDINARY, si_foreign_data_pointer, 4, OBJNULL},

2
src/c/symbols_list2.h
View file

@ -1429,7 +1429,7 @@ cl_symbols[] = {
#endif
{SYS_ "ALLOCATE-FOREIGN-DATA","si_allocate_foreign_data"},
{SYS_ "FIND-FOREIGN-VAR","si_find_foreign_symbol"},
{SYS_ "FIND-FOREIGN-SYMBOL","si_find_foreign_symbol"},
{SYS_ "FOREIGN-DATA",NULL},
{SYS_ "FOREIGN-DATA-ADDRESS","si_foreign_data_address"},
{SYS_ "FOREIGN-DATA-POINTER","si_foreign_data_pointer"},

2
src/lsp/ffi.lsp
View file

@ -546,7 +546,7 @@
(and (consp ffi-type)
(member (first ffi-type) '(* :array)))))
(inline-form (cond (module
`(si::find-foreign-var ,c-name ,module ,type ,(size-of-foreign-type type)))
`(si::find-foreign-symbol ,c-name ,module ,type ,(size-of-foreign-type type)))
(t
`(c-inline () () :object
,(format nil "ecl_make_foreign_data(@~S, ~A, &~A)"