From 1ae2138bd3b547e03b1f49df90669687fb79bd3a Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 26 Nov 2006 19:04:23 +0000 Subject: [PATCH] r11317: add wnlocal --- ChangeLog | 4 ++++ debian/changelog | 6 ++++++ io.lisp | 5 ++--- 3 files changed, 12 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index e7e2739..0e1e57f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +24 Oct 2006 Kevin Rosenberg + * Version 1.91 + * io.lisp: Fix output from read-file-to-string + 22 Sep 2006 Kevin Rosenberg * Version 1.90 * sockets.lisp: Commit patch from Joerg Hoehle for CLISP sockets diff --git a/debian/changelog b/debian/changelog index ca30ad1..a763c7f 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.91-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Tue, 24 Oct 2006 20:45:19 -0600 + cl-kmrcl (1.90-1) unstable; urgency=low * New upstream diff --git a/io.lisp b/io.lisp index 4f896ed..8f38e0e 100644 --- a/io.lisp +++ b/io.lisp @@ -39,9 +39,8 @@ (defun read-file-to-string (file) "Opens a reads a file. Returns the contents as a single string" - (with-output-to-string (out) - (with-open-file (in file :direction :input) - (read-stream-to-string in)))) + (with-open-file (in file :direction :input) + (read-stream-to-string in))) (defun read-file-to-usb8-array (file) "Opens a reads a file. Returns the contents as single unsigned-byte array" -- 2.34.1