The type of the object to pass by reference.
If non-nil, if the input argument is
nil a null pointer is passed instead of a reference to an object containing
If non-nil, allow conversion from Lisp to the foreign language. The default value is
If non-nil, allow conversion from the foreign language to Lisp. The default value is
:reference type is essentially the same as a :pointer type, except that
:reference is automatically dereferenced when it is processed.
:reference type is useful as a foreign function argument. When a function is called with an argument of the type
), an object of type is dynamically allocated across the scope of the foreign function, and is automatically de-allocated once the foreign function terminates. The value of the argument is not copied into the temporary instance of the object if lisp-to-foreign-p is
nil, and similarly, the return value is not copied back into a Lisp object if foreign-to-lisp-p is
If the argument is of an aggregate type and foreign-to-lisp-p is true, then a malloc'd copy is made which you should later free explicitly. It is usually better to use:pointer, make the temporary foreign object using with-dynamic-foreign-objects and then copy whatever slots you need into a normal Lisp object on return.
In the following example an
:int is allocated, and a pointer to the integer is bound to the Lisp variable
number. Then a pointer to
point1, is defined. The pointer
point1 is set to point to
number, itself a pointer, but to an
(setq number (fli:allocate-foreign-object :type :int))
(setf (fli:dereference number) 42)
(setf (fli:dereference point1) number)
(fli:dereference (fli:dereference point1))
(fli:dereference point1 :type '(:reference :int))
LispWorks Foreign Language Interface User Guide and Reference Manual - 16 Feb 2015