From 7cda9325443ea38670cf93c4c05ab4c5e8acdd36 Mon Sep 17 00:00:00 2001 Message-Id: <7cda9325443ea38670cf93c4c05ab4c5e8acdd36.1714611178.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 9 Feb 2006 22:24:31 +0000 Subject: [PATCH] Added macro WITH-ALLOCATED-MEMORY Organization: Straylight/Edgeware From: espen --- glib/glib.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/glib/glib.lisp b/glib/glib.lisp index c57882a..ec1491d 100644 --- a/glib/glib.lisp +++ b/glib/glib.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: glib.lisp,v 1.32 2006-02-06 18:12:19 espen Exp $ +;; $Id: glib.lisp,v 1.33 2006-02-09 22:24:31 espen Exp $ (in-package "GLIB") @@ -47,6 +47,12 @@ (defun copy-memory (from length &optional (to (allocate-memory length))) #+sbcl(system-area-ub8-copy from 0 to 0 length) to) +(defmacro with-allocated-memory ((var size) &body body) + `(let ((,var (allocate-memory ,size))) + (unwind-protect + (progn ,@body) + (deallocate-memory ,var)))) + ;;;; User data mechanism -- [mdw]