Custom Query (1030 matches)

(defcallback foo (:double-float a 
                  :double-float b 
                  :double-float c 
                  :double-float d 
                  :double-float e
                  :double-float f
                  :double-float g 
                  :double-float)
  (format t "~&~s" (list a b c d e f g))
  (+ a b c d e f g))

(ff-call foo :double-float 1.0d0 :double-float 2.0d0 :double-float 3.0d0 :double-float 4.0d0 :double-float 5.0d0 :double-float 6.0d0 :double-float 7.0d0 :double-float) 

prints and returns:

(1.0D0 2.0D0 3.0D0 4.0D0 1.398752D-316 0.0D0 1.3987457D-316)
10.0D0

I'm fairly sure that the caller's putting arguments (after the first 4) in the wrong place (e.g., that the callback's right and the bug's in FF-CALL.)

Exiting CCL 1.8-dev-r14962-trunk on Win32 (Windows 7) by closing the window hosting the REPL causes an APPCRASH.

The crash does not happen when using: (quit)

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.