fixes; first version

[rrq/hourglass.git] / sitetool / sitetool.lsp

diff --git a/sitetool/sitetool.lsp b/sitetool/sitetool.lsp
index 19c3e808a3af072a3d5148a9ab077b0e5c7c9441..22bccd90904fc6d9a80f2a807655a38ab7c28acf 100644 (file)
--- a/sitetool/sitetool.lsp
+++ b/sitetool/sitetool.lsp
@@ -24,7 +24,8 @@
 
 (tk:load-tcl "sitetool.tcl")
 
-(while true
-  (tk:read-loop)
-  (println (eval-string (or (read-line) (exit))))
-  )
+(when nil
+  (while true
+    (tk:read-loop)
+    (println (eval-string (or (read-line) (exit))))
+    ))