Changeset 820

Timestamp:

May 23, 2004, 4:37:13 PM (21 years ago)

Author:

Gary Byers

Message:

In GET-DESCRIPTOR-FOR, leave room for a #\Newline when copying an arbitrary
input stream to a temporary file.

File:

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

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

@@ -588 +588 @@
                     (return))
                   (let* ((len (length line)))
-                    (%stack-block ((buf len))
+                    (%stack-block ((buf (1+ len)))
                       (%copy-ivector-to-ptr line 0 buf 0 len)
                       (fd-write fd buf len)