r10563: add module keyword to def-function

diff --git a/tests/atoifl.lisp b/tests/atoifl.lisp
index 8d65aa52d24794eaad30f13f960dfa2359afb5ce..00bddbcca9d57f81cd321c5d1325717a480ceca5 100644 (file)
--- a/tests/atoifl.lisp
+++ b/tests/atoifl.lisp
@@ -17,14 +17,17 @@
 
 (uffi:def-function ("atoi" c-atoi) 
     ((str :cstring))
+  :module "c"
   :returning :int)
 
 (uffi:def-function ("atol" c-atol) 
     ((str :cstring))
+  :module "c"
   :returning :long)
 
 (uffi:def-function ("atof" c-atof) 
     ((str :cstring))
+  :module "c"
   :returning :double)
 
 (defun atoi (str)

diff --git a/tests/casts.lisp b/tests/casts.lisp
index a6654599a6ff92fa2ee9f5064c1c956c7ee92df2..da4bfa5d747c65e3644f9ccc179c24b93d9fba5b 100644 (file)
--- a/tests/casts.lisp
+++ b/tests/casts.lisp
@@ -15,10 +15,12 @@
 
 (uffi:def-function ("cast_test_int" cast-test-int)
     ()
+  :module "c-uffi-test"
   :returning :pointer-void)
 
 (uffi:def-function ("cast_test_float" cast-test-float)
     ()
+  :module "c-uffi-test"
   :returning :pointer-void)
 
 (deftest cast.1

diff --git a/tests/foreign-var.lisp b/tests/foreign-var.lisp
index ee9bd2256ea9f306d0b7c7f1d8f9af7a850cfcc6..9409eeaf476fc7428c7b8ed8c152e289bcd1714f 100644 (file)
--- a/tests/foreign-var.lisp
+++ b/tests/foreign-var.lisp
@@ -39,17 +39,17 @@
   (d :double))
  
 (uffi:def-foreign-var ("fvar_struct" *fvar-struct*) fvar-struct
-  "uffi_tests")
+  "c-uffi-tests")
 
 (uffi:def-function ("fvar_struct_int" fvar-struct-int)
     ()
   :returning :int
-  :module "uffi_tests")
+  :module "c-uffi-test")
  
   (uffi:def-function ("fvar_struct_double" fvar-struct-double)
       ()
     :returning :double
-    :module "uffi_tests")
+    :module "c-uffi-test")
  
 (deftest fvarst.1 *fvar-addend* 3)
 (deftest fvarst.2 (uffi:get-slot-value *fvar-struct* 'fvar-struct 'i) 42)

diff --git a/tests/getenv.lisp b/tests/getenv.lisp
index 19fe1936ddf600b23a6804c18e0b68c7f3a93230..6fafc45e2c370ad2e67a878cb921599b522175dc 100644 (file)
--- a/tests/getenv.lisp
+++ b/tests/getenv.lisp
@@ -18,16 +18,19 @@
 
 (uffi:def-function ("getenv" c-getenv) 
     ((name :cstring))
+  :module "c"
   :returning :cstring)
 
 (uffi:def-function ("setenv" c-setenv) 
     ((name :cstring)
      (value :cstring)
      (overwrite :int))
+  :module "c"
   :returning :int)
 
 (uffi:def-function ("unsetenv" c-unsetenv)
     ((name :cstring))
+  :module "c"
   :returning :void)
 
 (defun my-getenv (key)

diff --git a/tests/gethostname.lisp b/tests/gethostname.lisp
index 82137401e87b1b42abf82a670687167d67bf47eb..577335a8897a6459b34f7b7bd186efcb74bcf8e4 100644 (file)
--- a/tests/gethostname.lisp
+++ b/tests/gethostname.lisp
@@ -22,6 +22,7 @@
   (uffi:def-function ("gethostname" c-gethostname) 
       ((name (* :unsigned-char))
        (len :int))
+    :module "c"
     :returning :int)
   
   (defun gethostname ()

diff --git a/tests/strtol.lisp b/tests/strtol.lisp
index c3bfe1393d936d0b064b12b3054ecf125399e866..b9b73bd805410ff22f7eb92723ce17ee2b39b1bd 100644 (file)
--- a/tests/strtol.lisp
+++ b/tests/strtol.lisp
@@ -25,6 +25,7 @@
     ((nptr char-ptr)
      (endptr (* char-ptr))
      (base :int))
+  :module "c"
   :returning :long)
 
 (defun strtol (str &optional (base 10))

diff --git a/tests/time.lisp b/tests/time.lisp
index cccd0b40f80421aa319a6ae294099a470906e0cc..01c2090cafa46b3a719a8074c013a1b86ce29d52 100644 (file)
--- a/tests/time.lisp
+++ b/tests/time.lisp
@@ -32,14 +32,17 @@
 
 (uffi:def-function ("time" c-time) 
     ((time (* time-t)))
+  :module "c"
   :returning time-t)
 
 (uffi:def-function "gmtime"
     ((time (* time-t)))
+  :module "c"
   :returning (* tm))
 
 (uffi:def-function "asctime"
     ((time (* tm)))
+  :module "c"
   :returning :cstring)
 
 (uffi:def-type time-t :unsigned-long)
@@ -76,6 +79,7 @@
 (uffi:def-function ("gettimeofday" c-gettimeofday) 
     ((tv (* timeval))
      (tz (* timezone)))
+  :module "c"
   :returning :int)
                    
 (defun get-utime ()

diff --git a/tests/uffi-c-test-lib.lisp b/tests/uffi-c-test-lib.lisp
index 95b411e53a05aec48be467d9bc3b4dd56132d1ad..4e87608f0bb39d675bd5c60a209e3694a667b1bc 100644 (file)
--- a/tests/uffi-c-test-lib.lisp
+++ b/tests/uffi-c-test-lib.lisp
@@ -19,6 +19,7 @@
 (uffi:def-function ("cs_to_upper" cs-to-upper)
   ((input (* :unsigned-char)))
   :returning :void
+  :module "uffi-c-test"
   )
 
 (defun string-to-upper (str)
@@ -28,7 +29,8 @@
 
 (uffi:def-function ("cs_count_upper" cs-count-upper)
   ((input :cstring))
-  :returning :int)
+  :returning :int
+  :module "uffi-c-test")
 
 (defun string-count-upper (str)
   (uffi:with-cstring (str-cstring str)
@@ -37,19 +39,24 @@
 (uffi:def-function ("half_double_vector" half-double-vector)
     ((size :int)
      (vec (* :double)))
-  :returning :void)
+  :returning :void
+  :module "uffi-c-test")
 
 (uffi:def-function ("return_long_negative_one" return-long-negative-one)
     ()
-  :returning :long)
+  :returning :long
+  :module "uffi-c-test")
 
 (uffi:def-function ("return_int_negative_one" return-int-negative-one)
     ()
-  :returning :int)
+  :returning :int
+  :module "uffi-c-test")
 
 (uffi:def-function ("return_short_negative_one" return-short-negative-one)
     ()
-  :returning :short)
+  :returning :short
+  :module "uffi-c-test")
+
 
 (uffi:def-constant +double-vec-length+ 10)
 (defun test-half-double-vector ()