From: Kevin M. Rosenberg Date: Sun, 26 Nov 2006 19:04:23 +0000 (+0000) Subject: r11317: add wnlocal X-Git-Tag: v1.96~12 X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=1ae2138bd3b547e03b1f49df90669687fb79bd3a;hp=bd4335f8aae0d54db30524797fad02194311e17c r11317: add wnlocal --- 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"