debugging galore

[rrq/hourglass.git] / manager / controls-update.lsp

diff --git a/manager/controls-update.lsp b/manager/controls-update.lsp
index 2085462724666cd6a512096e08a904f99cd714fb..bddef9199b3e2587a91b2beb9811ff3b2862c964 100644 (file)
--- a/manager/controls-update.lsp
+++ b/manager/controls-update.lsp
@@ -17,8 +17,6 @@
     (let ((data "")(b "") (c '()) (v nil))
       (while (read 0 b 1000) (extend data b))
       (setf v (map (fn (x) (parse x "=")) (parse data "&")))
-      (push (list 'gap (int-parse (lookup "gap" v))) c -1)
-      (push (list 'clip (int-parse (lookup "clip" v))) c -1)
       (for (i 1 7)
         (push (list i
                     (mode-parse (lookup (string "mode" i) v))