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

[uffi.git] / src / strings.lisp

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