Index: /trunk/ccl/hemlock/src/rompsite.lisp
===================================================================
--- /trunk/ccl/hemlock/src/rompsite.lisp	(revision 675)
+++ /trunk/ccl/hemlock/src/rompsite.lisp	(revision 676)
@@ -655,4 +655,5 @@
 (defun editor-sleep (time)
   "Sleep for approximately Time seconds."
+  #+maybe-someday
   (unless (or (zerop time) (listen-editor-input *editor-input*))
     (internal-redisplay)