r11317: add wnlocal

diff --git a/ChangeLog b/ChangeLog
index e7e273905d4ce1323bd22e510b7f407f88505fa2..0e1e57f77e9ce8dfef8a46c550f6d392e95ad464 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+24 Oct 2006  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 1.91
+       * io.lisp: Fix output from read-file-to-string
+
 22 Sep 2006  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 1.90
        * sockets.lisp: Commit patch from Joerg Hoehle for CLISP sockets

diff --git a/debian/changelog b/debian/changelog
index ca30ad107240539ce31575197349e3ad1f307e9c..a763c7f9151595a2de150416fd263cfbcb616968 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.91-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  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 4f896ed7584219f32fd425f0fcab74b7cdf5a41b..8f38e0e6ca5fac9c9c016528d90b4a41990a5b72 100644 (file)
--- 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"