From 0a9742d41c95d9a3d385bfa91571ad4af5ebcd5c Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Thu, 13 Sep 2012 21:08:22 +0200
Subject: [PATCH] src/xlib-util.lisp (with-xlib-protect): Return to clfswm's
 top level on xlib-error

---
 src/xlib-util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/xlib-util.lisp b/src/xlib-util.lisp
index b5b77fc..cfc1f82 100644
--- a/src/xlib-util.lisp
+++ b/src/xlib-util.lisp
@@ -73,7 +73,7 @@ Window types are in +WINDOW-TYPES+.")
   "Prevent Xlib errors"
   #-:xlib-debug (declare (ignore name tag))
   `(handler-case
-       (progn
+       (with-simple-restart (top-level "Return to clfswm's top level")
 	 ,@body)
      (xlib::x-error (c)
        #-:xlib-debug (declare (ignore c))
-- 
2.11.4.GIT