r10834: 2005-11-14 Kevin Rosenberg (kevin@rosenberg.net)

        * Version 1.5.7
        * src/strings.lisp: Add with-foreign-strings by James Biel

diff --git a/ChangeLog b/ChangeLog
index 8af66f4221197b06b8caa86638bda5afeb38d0dc..ef92a5b98cb6d21846105c3218514b0ad63a0ea0 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-14 Kevin Rosenberg (kevin@rosenberg.net)
+       * Version 1.5.7
+       * src/strings.lisp: Add with-foreign-strings by James Biel
+       
 2005-11-14 Kevin Rosenberg (kevin@rosenberg.net)
        * Version 1.5.6
        * src/os.lisp: Remove getenv setter

diff --git a/debian/changelog b/debian/changelog
index de503237363b63f8f32031d8edeb8057a778e3f9..009ae4ef527036cf8b5d127abfaea8d9b3826519 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-uffi (1.5.7-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 14 Nov 2005 19:39:25 -0700
+
 cl-uffi (1.5.6-1) unstable; urgency=low
 
   * New upstream

diff --git a/src/package.lisp b/src/package.lisp
index abaad4655e0851e2f16132a77ed538684324fbad..963a16ecf069069d07c85cc5d59a2cdf5d9e172d 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -63,6 +63,7 @@
    #:convert-to-foreign-string
    #:allocate-foreign-string
    #:with-foreign-string
+   #:with-foreign-strings
    #:foreign-string-length
    
    ;; function call

diff --git a/src/strings.lisp b/src/strings.lisp
index c81562862714c1f9ed722d57fcef3df23ea29145..ebdffebadf4893287c870b97cd5879ecf6462993 100644 (file)
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -284,6 +284,11 @@ that LW/CMU automatically converts strings from c-calls."
       (free-foreign-object ,foreign-string)
       ,result)))
 
+(defmacro with-foreign-strings (bindings &body body)
+  `(with-foreign-string ,(car bindings)
+    ,@(if (cdr bindings)
+          `((with-foreign-strings ,(cdr bindings) ,@body))
+          body)))
 
 ;; Modified from CMUCL's source to handle non-null terminated strings
 #+cmu