# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1483963982 0
# Node ID c034e194a114700305dca14dd1500d2689d55f1e
# Parent  1853c49906105cebeab5b1654ff605e31ab26842
Fuck around a bit

diff -r 1853c4990610 -r c034e194a114 src/ascii.lisp
--- a/src/ascii.lisp	Fri Jan 06 14:43:30 2017 +0000
+++ b/src/ascii.lisp	Mon Jan 09 12:13:02 2017 +0000
@@ -59,10 +59,10 @@
      (unwind-protect (progn ,@body)
        (charms:destroy-window ,symbol))))
 
-; (defmacro with-panel ((symbol window) &body body)
-;   `(let ((,symbol (charms:make-panel ,window)))
-;      (unwind-protect (progn ,@body)
-;        (charms:destroy-panel ,symbol))))
+(defmacro with-panel ((symbol window) &body body)
+  `(let ((,symbol (charms:make-panel ,window)))
+     (unwind-protect (progn ,@body)
+       (charms:destroy-panel ,symbol))))
 
 (defmacro with-windows (bindings &body body)
   (if (null bindings)
@@ -71,12 +71,12 @@
        (with-windows ,(rest bindings)
          ,@body))))
 
-; (defmacro with-panels (bindings &body body)
-;   (if (null bindings)
-;     `(progn ,@body)
-;     `(with-panel ,(first bindings)
-;        (with-panels ,(rest bindings)
-;          ,@body))))
+(defmacro with-panels (bindings &body body)
+  (if (null bindings)
+    `(progn ,@body)
+    `(with-panel ,(first bindings)
+       (with-panels ,(rest bindings)
+         ,@body))))
 
 
 ; (defun run ()