Custom Query (1030 matches)

I am using cl-csv to read in a large file, and for some reason there is a bug and it won't garbage collect.

(defparameter +test-big-file+

(asdf:system-relative-pathname :testpackage "big.csv"))

(defun count-big-file ()

(let ((cnt 0))

(time (cl-csv:read-csv +test-big-file+

:row-fn (lambda (r) (declare (ignore r))

(incf cnt))))

cnt))

Takes up a lot of ram, and (gc) won't clear it. I have to kill the slime instance and restart it to reclaim up my ram.

When I run the same code in SBCL it is properly garbage collected.

With CCL "Version 1.2-r11583M (LinuxPPC32)" my test

(defun test ()

(format t "Hello, world!"))

(defun make ()

(save-application "tst.exe" :toplevel-function #'test

:error-handler :quiet :prepend-kernel t))

happily prints "Hello, world!" and exits.

But with Windows 32bit CCL fresh from SVN (updated and rebuilt) it prints

Hello, world!

Error: value NIL is not of the expected type CCL::RECURSIVE-LOCK. While executing: CCL::RECURSIVE-LOCK-PTR, in process Initial(0). Type :POP to abort, :R for a list of available restarts. Error: value NIL is not of the expected type CCL::RECURSIVE-LOCK. While executing: CCL::RECURSIVE-LOCK-PTR, in process Initial(0). Type :POP to abort, :R for a list of available restarts. Error: value NIL is not of the expected type CCL::RECURSIVE-LOCK.

.... ....

and then hangs, eating CPU.

Further tinkering showed that my TEST function could be as simple as

(defun test () (ccl:gc))

Called from REPL - everything is OK; called as top-level function in a exe - program busy-waits for something.

Also, CCL prints at start-up

Can't get desired heap address at 0x4000000

May it have something to do with this GC problem? In REPL everything is OK, though: it succefully finishes a hour-long computation.

Windows: XP SP2. CPU: Intel Core Duo.

The garbage collector removes some interned symbols:

Welcome to Clozure Common Lisp Version 1.9-dev-r15418M-trunk  (LinuxX8632)!
? (progn (intern "FOO") (ccl:gc) (find-symbol "FOO"))
NIL
NIL
? 

Is this supposed to happen?