Re: [clisp-list] with-open-file bug on linux

[Peter W. <pet...@wo...>]

Hi,
On Thu, May 16, 2002 at 03:53:03PM +0200, I wrote:

<cut>

> 
> I will have a look at full_write in unixaux.d
> 

Well, maybe I won't ... this is quite strange:

A _combination_ of :buffered nil and setting *print-escape* to nil
appears to work, at least in some cases.  This wasn't necessary
earlier.

;;this works

[56]> (setf register (open "/proc/sys/fs/binfmt_misc/register" :direction :output :buffered nil))
#<output unbuffered file-stream character #P"/proc/sys/fs/binfmt_misc/register"
  @1>
[57]> (setf string (format nil ":~:@(~a~):E::~a::~a:" "fas" "fas" "/usr/bin/clisp"))
":FAS:E::fas::/usr/bin/clisp:"
[58]> (write string :escape nil :stream register)
":FAS:E::fas::/usr/bin/clisp:"
[59]>

;; so does this work  (princ sets *print-escape* and -readably* to nil)

[69]> (princ string register)
":FAS:E::fas::/usr/bin/clisp:"
[70]>

;; so does this!

[77]> (format register "~a" string)
nil

;; these do not

[82]> (format register "~s" string)

*** - UNIX error 22 (EINVAL): Invalid argument
[84]> (prin1 string register)

*** - UNIX error 22 (EINVAL): Invalid argument
1. Break [85]> 
[86]> (write string :stream register)

*** - UNIX error 22 (EINVAL): Invalid argument

Regards,
Peter