Fuck around a bit

sjl · Jan 9, 2017 · 2550203 · 2550203
1 parent 0a7364c
commit 2550203
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/src/ascii.lisp b/src/ascii.lisp
@@ -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 ()