Changeset 836

Timestamp:

Jun 23, 2004, 9:24:03 PM (20 years ago)

Author:

Gary Byers

Message:

Remove a (debugging) call to FORMAT.

File:

• trunk/ccl/level-1/linux-files.lisp (modified) (2 diffs)

trunk/ccl/level-1/linux-files.lisp

@@ -629 +629 @@
         (return))
       (if in-fd
-        (progn
-          (format t "~& waiting for input")
         (when (fd-input-available-p in-fd *ticks-per-second*)
           (%stack-block ((buf 1024))
@@ -644 +642 @@
                   (declare (dynamic-extent string))
                   (%copy-ptr-to-ivector buf 0 string 0 n)
-                  (write-sequence string out-stream :end n))))))))
+                  (write-sequence string out-stream :end n)))))))
       (let* ((statusflags (check-pid (external-process-pid p)
                                      (logior