From e7524b783a7e2219e16c64dde7a9f965b75ed970 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 6 Aug 2007 18:11:08 +0200 Subject: If necessary, deallocate a C string after converting it. darcs-hash:4f83783092400107dd9b58671d11d4cb6a9d5214 --- Lisp/type-conversion.lisp | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'Lisp/type-conversion.lisp') diff --git a/Lisp/type-conversion.lisp b/Lisp/type-conversion.lisp index 066fdd9..a11a668 100644 --- a/Lisp/type-conversion.lisp +++ b/Lisp/type-conversion.lisp @@ -56,3 +56,12 @@ ,@(mapcar #'(lambda (name-value-pair) `(dealloc-obj-data ,(first name-value-pair))) bindings)))) + + +(defun foreign-string-to-lisp/dealloc (foreign-string) + "Convert a (possibly freshly allocated) C string into a Lisp string +and free the C string afterwards." + + (unwind-protect + (foreign-string-to-lisp foreign-string) + (foreign-string-free foreign-string))) -- cgit v1.2.3