[Openmcl-devel] Bug when writing to broken pipe?

Andreas Thiele andreas at atp-media.de
Tue Dec 2 08:40:23 PST 2014


Thanks Ron.

 

Yes indeed, ignore-errors is just fixes the problem in the provided test
case not in my application. I added the complete output plus backtrace of my
program. My program calls a function REVISION-REPORT.

 

(defun revision-report (revs)

  (let ((sep (make-string 80 :initial-element #\-))

                (sep2 (make-string 80 :initial-element #\=)))

    (loop :for rec :in (sort revs #'string< :key #'second) :do

       (format t "~%Commit: ~a~%" (getf rec :date))

       (format t "~{ ~a~%~}" (mapcar #'auto-utf (getf rec :comment)))

       (when *with-files-p*

                (format t "~a~%" sep)

                (format t "Files:~%~{ ~a~%~}" (mapcar #'auto-utf (getf rec
:files))))

       (format t "~a~%" sep2))))

 

The second format statement seems to be somehow problematic and causes
problems even if wrapped within IGNORE-ERRORS.

 

Sorry I'm no CCL hacker J

 

*WITH-FILES-P* is NIL during test. #'AUTO-UTF may be replaced by some dumb
function returning strings. (GETF REC :COMMENT) just returns a few strings.
Nothing fancy - just this breaking the pipe thing.

 

I think, you are right with the streams thing. I tried batch mode which
returns one broken pipe error message, which should not appear with
:ERROR-HANDLER :QUIT.

 

Hope this is helpful. I can provide my (few hundered lines) program if it is
helpful.

 

Best regards Andreas

 

All kernel debugger messages follow (plus backtrace)

 

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x183DF7F6> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process Initial(0).

Unrecoverable stack overflow.

? for help

[4545] Clozure CL kernel debugger:b

(#xF758BEE8) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758BEFC) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758BF2C) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758BF60) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758BF6C) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758BF84) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758C048) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758C070) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758C084) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758C098) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758C0C8) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758C0FC) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758C108) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758C120) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758C1E4) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758C20C) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758C220) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758C234) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758C264) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758C298) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758C2A4) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758C2BC) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758C380) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758C3A8) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758C3BC) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758C3D0) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758C400) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758C434) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758C440) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758C458) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758C51C) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758C544) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758C558) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758C56C) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758C59C) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758C5D0) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758C5DC) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758C5F4) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758C6B8) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758C6E0) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758C6F4) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758C708) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758C738) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758C76C) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758C778) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758C790) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758C854) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758C87C) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758C890) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758C8A4) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758C8D4) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758C908) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758C914) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758C92C) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758C9F0) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758CA18) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758CA2C) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758CA40) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758CA70) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758CAA4) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758CAB0) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758CAC8) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758CB8C) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758CBB4) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758CBC8) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758CBDC) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758CC0C) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758CC40) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758CC4C) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758CC64) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758CD28) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758CD50) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758CD64) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758CD78) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758CDA8) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758CDDC) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758CDE8) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758CE00) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758CEC4) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758CEEC) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758CF00) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758CF14) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758CF44) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758CF78) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758CF84) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758CF9C) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758D060) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758D088) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758D09C) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758D0B0) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758D0E0) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758D114) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758D120) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758D138) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758D1FC) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758D224) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758D238) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758D24C) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758D27C) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758D2B0) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758D2BC) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758D2D4) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758D398) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758D3C0) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758D3D4) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758D3E8) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758D418) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758D44C) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758D458) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758D470) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758D534) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758D55C) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758D570) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758D584) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758D5B4) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758D5E8) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758D5F4) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758D60C) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758D6D0) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758D6F8) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758D70C) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758D720) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758D750) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758D784) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758D790) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758D7A8) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758D86C) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758D894) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758D8A8) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758D8BC) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758D8EC) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758D920) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758D92C) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758D944) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758DA08) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758DA30) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758DA44) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758DA58) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758DA88) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758DABC) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758DAC8) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758DAE0) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758DBA4) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758DBCC) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758DBE0) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758DBF4) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758DC24) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758DC58) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758DC64) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758DC7C) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758DD40) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758DD68) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758DD7C) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758DD90) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758DDC0) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758DDF4) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758DE00) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758DE18) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758DEDC) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758DF04) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758DF18) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758DF2C) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758DF5C) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758DF90) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758DF9C) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758DFB4) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758E078) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758E0A0) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758E0B4) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758E0C8) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758E0F8) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758E12C) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758E138) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758E150) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758E214) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758E23C) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758E250) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758E264) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758E294) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758E2C8) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758E2D4) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758E2EC) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758E3B0) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758E3D8) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758E3EC) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758E400) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758E430) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758E464) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758E470) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758E488) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758E54C) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758E574) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758E588) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758E59C) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758E5CC) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758E600) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758E60C) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758E624) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758E6E8) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758E710) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758E724) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758E738) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758E768) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758E79C) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758E7A8) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758E7C0) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758E884) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758E8AC) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758E8C0) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758E8D4) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758E904) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758E938) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758E944) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758E95C) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758EA20) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758EA48) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758EA5C) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758EA70) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758EAA0) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758EAD4) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758EAE0) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758EAF8) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758EBBC) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758EBE4) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758EBF8) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758EC0C) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758EC3C) #x1033607D : #<Method-Function STREAM-FORCE-OUTPUT
(BASIC-OUTPUT-STREAM) #x10335E76> + 519

(#xF758EC70) #x1012A52D : #<Function FORCE-OUTPUT #x1012A4BE> + 111

(#xF758EC7C) #x103534B5 : #<Function %ACQUIRE-SHARED-RESOURCE #x103531A6> +
783

(#xF758EC94) #x104B0B0D : #<Function BREAK-LOOP #x104B05CE> + 1343

(#xF758ED58) #x104B5625 : #<Function BREAK-LOOP-HANDLE-ERROR #x104B50F6> +
1327

(#xF758ED80) #x10157E75 : #<Function %ERROR #x10157D0E> + 359

(#xF758ED94) #x102A7E4D : #<Method-Function STREAM-IO-ERROR (STREAM T T)
#x102A7DC6> + 135

(#xF758EDA8) #x1033DD25 : #<Function FD-STREAM-FORCE-OUTPUT #x1033D8D6> +
1103

(#xF758EDD8) #x103343E5 : #<Method-Function STREAM-FINISH-OUTPUT
(BASIC-OUTPUT-STREAM) #x103341DE> + 519

(#xF758EE0C) #x1012A755 : #<Function FINISH-OUTPUT #x1012A716> + 63

(#xF758EE1C) #x10426FB5 : #<Function (:INTERNAL FLUSH-STREAM
(PROCESS-EXIT-APPLICATION (PROCESS T))) #x10426E66> + 335

(#xF758EE4C) #x104279ED : #<Method-Function PROCESS-EXIT-APPLICATION
(PROCESS T) #x10427846> + 423

(#xF758EE74) #x104A1F7D : #<Function (:INTERNAL QUIT) #x104A1DD6> + 423

(#xF758EE98) #x10138175 : #<Function APPLY #x101380B6> + 191

(#xF758EEB4) #x10415A15 : #<Function THREAD-HANDLE-INTERRUPTS #x1041578E> +
647

(#xF758EEE8) #x104FBDF5 : #<Function XCMAIN #x104FBB3E> + 695

(#xF758EF18) #x10193215 : #<Function %PASCAL-FUNCTIONS% #x101930BE> + 343

(#xF758EF60) #x00000000 : #<Function %NANOSLEEP #x10407ACE> + ??

(#xF758EF90) #x10407D9D : #<Function %NANOSLEEP #x10407ACE> + 719

(#xF758EFD0) #x10425385 : #<Function HOUSEKEEPING-LOOP #x104251E6> + 415

[4545] Clozure CL kernel debugger: k

fwgz at fwgz14:~/cvsrep$

 

Von: Ron Garret [mailto:ron at flownet.com] 
Gesendet: Montag, 1. Dezember 2014 19:06
An: Andreas Thiele
Cc: openmcl-devel at clozure.com
Betreff: Re: [Openmcl-devel] Bug when writing to broken pipe?

 

This still looks like a CCL bug to me because you specified :error-handler
:quit.  My guess is that CCL is trying to write the error message to stdout
instead of stderr, so when you pipe stdout and that pipe gets broken, the
attempt to write the error message causes another error, which eventually
results in a stack overflow.  (I presume that you got more than just the
four errors you included in your message.)

 

I'd file a ticket.

 

On Dec 1, 2014, at 4:34 AM, Andreas Thiele <andreas at atp-media.de> wrote:





Sorry, I found a fix. Just wrap the code within ignore-errors (or similar).

 

Regards

Andreas

 

 

Von: Openmcl-devel [ <mailto:openmcl-devel-bounces at clozure.com>
mailto:openmcl-devel-bounces at clozure.com] Im Auftrag von Andreas Thiele
Gesendet: Montag, 1. Dezember 2014 12:42
An:  <mailto:openmcl-devel at clozure.com> openmcl-devel at clozure.com
Betreff: [Openmcl-devel] Bug when writing to broken pipe?

 

Dear All,

 

I came across a tiny problem which I would consider a bug: I write a lengthy
output to *standard-output* on a Debian Linux. When I pipe the output to
another linux program and the pipe get broken, closure lisp crashes. Is this
behavior correct? If so, how can I avoid the crash.

 

In my case I pipe to linux less and terminate less by pressed letter q very
soon.

 

My test code is:

 

(defun test ()

  (loop :for i :from 1 :to 10000 :do

     (format t "This is a test line to produce a lengthy output.~%")))

 

(ccl:save-application "test"

                                     :toplevel-function #'test

                                     :error-handler :quit

                                     :prepend-kernel t)

 

Tested with ccl-1.9 32 and 64 and ccl-1.10 32-bit.

 

fwgz at fwgz14:~/cvsrep-bug$test | less

 

and pressing 'q' very soon leads to

 

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process toplevel(2).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x18353C96> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process toplevel(2).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x18353C96> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process toplevel(2).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x18353C96> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process toplevel(2).

> Error: on #<BASIC-CHARACTER-OUTPUT-STREAM UTF-8 (PIPE/1) #x18353C96> :

>        Broken pipe during write

> While executing: #<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-IO-ERROR
(STREAM T T)>, in process toplevel(2).

Unrecoverable stack overflow.

? for help

[5134] Clozure CL kernel debugger:

 

Any hints very welcome.

 

Best Regards

Andreas Thiele

 

 

 

_______________________________________________
Openmcl-devel mailing list
 <mailto:Openmcl-devel at clozure.com> Openmcl-devel at clozure.com
 <https://lists.clozure.com/mailman/listinfo/openmcl-devel>
https://lists.clozure.com/mailman/listinfo/openmcl-devel

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20141202/f87d8cee/attachment.htm>


More information about the Openmcl-devel mailing list