From 58d9c9448bfbfc4ef35738c5ea3fce82f3bfe77c Mon Sep 17 00:00:00 2001 From: Bill Robinson Date: Sun, 24 Jun 2012 08:33:28 +0100 Subject: [PATCH] Make a named block for do-window so you can return-from it. --- lib/glfw.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/glfw.lisp b/lib/glfw.lisp index 5db5342..ae98f06 100644 --- a/lib/glfw.lisp +++ b/lib/glfw.lisp @@ -424,8 +424,9 @@ setting the title given, running setup-forms and then running forms in a loop, with calls to swap-buffers after each loop iteration. The loop is in a block named do-window [so can be exited by a call to (return-from glfw:do-window)]. If the window is closed, the loop is also exited." - `(with-init - (do-open-window (,@open-window-keys) (,@setup-forms) ,@forms))) + `(block do-window + (with-init + (do-open-window (,@open-window-keys) (,@setup-forms) ,@forms)))) (defmacro define-callback-setter (c-name callback-prefix return-type (&body args) &key before-form after-form documentation) (let* ((callback-name (intern (format nil "~A-CALLBACK" callback-prefix))) -- 2.11.4.GIT