software captore

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

diff --git a/manager/controls.lsp b/manager/controls.lsp
index c7172006f7955a475f11e9f11d41f6618ca4ea45..b4779aee24a9e5684483b8c387e04702c1c4803c 100644 (file)
--- a/manager/controls.lsp
+++ b/manager/controls.lsp
@@ -28,9 +28,9 @@
  end-options '()
  limit-options '()
  )
-(dotimes (h 23) (dolist (m '(0 30))
+(dotimes (h 24) (dolist (m '(0 30))
                   (push (format "%02d:%02d" h m) start-options -1)))
-(dotimes (h 23) (dolist (m '(0 30))
+(dotimes (h 24) (dolist (m '(0 30))
                   (push (format "%02d:%02d" h m) end-options -1)))
 (for (h 1 8) (dolist (m '(0 30))
                (push (format "%02d:%02d" h m) limit-options -1)))