Custom Query (1030 matches)

If the program creates many short-lived threads, eventually it starts failing, and subsequently the process silently exits:

E:\Software\ccl>wx86cl.exe
Welcome to Clozure Common Lisp Version 1.4  (WindowsX8632)!
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++
NIL
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++
NIL
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++
NIL
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++
NIL
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++
NIL
? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
CreateThread: 0x8 Not enough storage is available to process this command.

+++++++++++++++++++++++++++++++++++++++++++++++++
> Error: Can't create thread
> While executing: CCL::NEW-TCR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :pop

? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))
CreateThread: 0x8 Not enough storage is available to process this command.

++
> Error: Can't create thread
> While executing: CCL::NEW-TCR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :pop

? (dotimes (i 100) (format t "+") (process-run-function :foo (lambda () nil)))

E:\Software\ccl>

This causes a lot of annoying random disconnects with slime.

Process Explorer from sysinternals shows process Virtual Size starting from 1GB, but growing by about 1.5MB per thread created until it reaches 2GB, where everything dies.

CCL:DEFSTATIC is exported; it's counterpart, CCL::DEFSTATICVAR, isn't. It seems like they should both be exported.

I'm not really sure how right it is, but the attached patch fixes this issue for me. And regarding the code, I don't know what unwind-protect is doing there, since it doesn't have clean-up forms.

And a related issue, why is *error-output* bound to ccl:*stderr* only with --batch option? related source line http://trac.clozure.com/ccl/browser/trunk/source/level-1/l1-boot-2.lisp#L151