[clfswm-cvs] r353 - clfswm/src

[Philippe Brochard]

Author: pbrochard
Date: Sun Oct 10 15:51:47 2010
New Revision: 353

Log:
Remove test functions

Modified:
   clfswm/src/tools.lisp

Modified: clfswm/src/tools.lisp
==============================================================================
--- clfswm/src/tools.lisp	(original)
+++ clfswm/src/tools.lisp	Sun Oct 10 15:51:47 2010
@@ -225,18 +225,18 @@
      (process-timers)
      (sleep 0.5)))
 
-(defun plop ()
-  (princ 'plop)
-  (erase-timer :toto))
-
-(defun toto ()
-  (princ 'toto)
-  (add-timer 5 #'toto :toto))
-
-(add-timer 5 #'toto :toto)
-(add-timer 30 #'plop)
-
-(timer-test-loop)
+;;(defun plop ()
+;;  (princ 'plop)
+;;  (erase-timer :toto))
+;;
+;;(defun toto ()
+;;  (princ 'toto)
+;;  (add-timer 5 #'toto :toto))
+;;
+;;(add-timer 5 #'toto :toto)
+;;(add-timer 30 #'plop)
+;;
+;;(timer-test-loop)