foo.i:
@@ -731,6 +732,16 @@ namespace car {
case preferences, additional naming cues, etc.
+
+ Note that packages created by swig-defpackage do not
+ use the COMMON-LISP or EXCL package. This reduces possible
+ conflicts when defining foreign types via the SWIG interface
+ in all but the toplevel modules package. This may
+ lead to confusion if, for example, the current package is
+ foo.car.tires and you attempt to use a common-lisp
+ function such as (car '(1 2 3).
+
+
16.3.2 Constants
@@ -771,7 +782,7 @@ namespace car {
reduced to literal values, nodes are created, but with no simplification
of the constant value. A very very simple infix to prefix converter
has been implemented that tries to do the right thing for simple cases, but
- does not for more complex expressoins. If the literal parser determines
+ does not for more complex expressions. If the literal parser determines
that something is wrong, a warning will be generated and the literal
expression will be included in the generated code, but commented out.
@@ -788,7 +799,8 @@ namespace car {
- Users are cautioned to get to know their constants before use.
+ Users are cautioned to get to know their constants before use, or
+ not use the -nocwrap command-line option.
overload.cl
(swig-defmethod ("xxx" "ACL___xxx__SWIG_0" :type :function :arity 2)
- ((PARM0_i integer :int )
- (PARM1_x integer :int ))
+ ((PARM0_i cl:integer :int )
+ (PARM1_x cl:integer :int ))
(:returning (:float )
:strings-convert t)
(let ((SWIG_arg0 PARM0_i))
@@ -1408,7 +1420,7 @@ EXPORT float ACL___xxx__SWIG_2 (A *larg1, int larg2) {
(swig-ff-call SWIG_arg0 SWIG_arg1))))
(swig-defmethod ("xxx" "ACL___xxx__SWIG_1" :type :function :arity 1)
- ((PARM0_i integer :int ))
+ ((PARM0_i cl:integer :int ))
(:returning (:float )
:strings-convert t)
(let ((SWIG_arg0 PARM0_i))
@@ -1416,7 +1428,7 @@ EXPORT float ACL___xxx__SWIG_2 (A *larg1, int larg2) {
(swig-defmethod ("xxx" "ACL___xxx__SWIG_2" :type :function :arity 2)
((PARM0_inst #.(swig-insert-id "A" () :type :class) (* #.(swig-insert-id "A" ())) )
- (PARM1_x integer :int ))
+ (PARM1_x cl:integer :int ))
(:returning (:float )
:strings-convert t)
(let ((SWIG_arg0 PARM0_inst))
@@ -1776,7 +1788,7 @@ return-val wrapper-name(parm0, parm1, ..., parmN)
- A number of custom typemaps have also been added, to facilitate
+ A number of custom typemaps have also been added to facilitate
the generation of code in the lisp side of the interface. These
are described below. The basic code generation structure is
applied as a series of nested expressions, one for each
@@ -1784,6 +1796,13 @@ return-val wrapper-name(parm0, parm1, ..., parmN)
the foreign function call itself.
+
+ Note that the typemaps below use fully qualified symbols where
+ necessary. Users writing their own typemaps should do likewise.
+ See the explanation in the last paragraph of
+ 16.3.1 Namespaces for details.
+
+
16.4.2.1 LIN Typemap
@@ -1823,7 +1842,7 @@ return-val wrapper-name(parm0, parm1, ..., parmN)
-%typemap(lin) SWIGTYPE "(let (($out $in))\n $body)";
+%typemap(lin) SWIGTYPE "(cl:let (($out $in))\n $body)";
@@ -1861,10 +1880,10 @@ return-val wrapper-name(parm0, parm1, ..., parmN)
float, double, long double, char *, void *, void,
enum SWIGTYPE "$body";
%typemap(lout) SWIGTYPE[ANY], SWIGTYPE *,
- SWIGTYPE & "(make-instance '$lclass :foreign-address $body)";
-%typemap(lout) SWIGTYPE "(let* ((address $body)\n
- (ACL_result (make-instance '$lclass :foreign-address address)))\n
- (unless (zerop address)\n
+ SWIGTYPE & "(cl:make-instance '$lclass :foreign-address $body)";
+%typemap(lout) SWIGTYPE "(cl:let* ((address $body)\n
+ (ACL_result (cl:make-instance '$lclass :foreign-address address)))\n
+ (cl:unless (cl::zerop address)\n
(excl:schedule-finalization ACL_result #'$ldestructor))\n
ACL_result)";
@@ -1933,10 +1952,10 @@ return-val wrapper-name(parm0, parm1, ..., parmN)
-%typemap(lisptype) bool "boolean";
-%typemap(lisptype) char "character";
-%typemap(lisptype) unsigned char "integer";
-%typemap(lisptype) signed char "integer";
+%typemap(lisptype) bool "cl:boolean";
+%typemap(lisptype) char "cl:character";
+%typemap(lisptype) unsigned char "cl:integer";
+%typemap(lisptype) signed char "cl:integer";
@@ -1952,15 +1971,15 @@ return-val wrapper-name(parm0, parm1, ..., parmN)
%typemap(lispclass) bool "t";
-%typemap(lispclass) char "character";
+%typemap(lispclass) char "cl:character";
%typemap(lispclass) unsigned char, signed char,
short, signed short, unsigned short,
int, signed int, unsigned int,
long, signed long, unsigned long,
- enum SWIGTYPE "integer";
-%typemap(lispclass) float "single-float";
-%typemap(lispclass) double "double-float";
-%typemap(lispclass) char * "string";
+ enum SWIGTYPE "cl:integer";
+%typemap(lispclass) float "cl:single-float";
+%typemap(lispclass) double "cl:double-float";
+%typemap(lispclass) char * "cl:string";
@@ -1977,7 +1996,7 @@ return-val wrapper-name(parm0, parm1, ..., parmN)
%typecheck(SWIG_TYPECHECK_UNICHAR) wchar_t { $1 = 1; };
%typemap(in) wchar_t "$1 = $input;";
-%typemap(lin) wchar_t "(let (($out (char-code $in)))\n $body)";
+%typemap(lin) wchar_t "(cl:let (($out (cl:char-code $in)))\n $body)";
%typemap(lin) wchar_t* "(excl:with-native-string
($out $in
:external-format #+little-endian :fat-le
@@ -1985,7 +2004,7 @@ return-val wrapper-name(parm0, parm1, ..., parmN)
$body)"
%typemap(out) wchar_t "$result = $1;";
-%typemap(lout) wchar_t "(code-char $body)";
+%typemap(lout) wchar_t "(cl:code-char $body)";
%typemap(lout) wchar_t* "(excl:native-to-string $body
:external-format #+little-endian :fat-le
#-little-endian :fat)";
@@ -1993,8 +2012,8 @@ return-val wrapper-name(parm0, parm1, ..., parmN)
%typemap(ffitype) wchar_t ":unsigned-short";
%typemap(lisptype) wchar_t "";
%typemap(ctype) wchar_t "wchar_t";
-%typemap(lispclass) wchar_t "character";
-%typemap(lispclass) wchar_t* "string";
+%typemap(lispclass) wchar_t "cl:character";
+%typemap(lispclass) wchar_t* "cl:string";