X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=7db3ff5427609972940aff81f27aaa6e5525a12e;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=b397990415992f701a8932a371dfeaa3ad2f9955;hpb=b1de52969f584c63d43fb35da4a8a6a4e0e619f0;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index b397990..7db3ff5 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -515,11 +515,9 @@
       (process-wait proc))
     proc))
 
-;;; COPY-DESCRIPTOR-TO-STREAM -- internal
-;;;
-;;;   Installs a handler for any input that shows up on the file descriptor.
-;;; The handler reads the data and writes it to the stream.
-;;; 
+;;; Install a handler for any input that shows up on the file
+;;; descriptor. The handler reads the data and writes it to the
+;;; stream.
 (defun copy-descriptor-to-stream (descriptor stream cookie)
   (incf (car cookie))
   (let ((string (make-string 256))