Custom Query (1030 matches)

Ocasionally, (quit) is broken. Instead of quit, CCL will hang infinitely.

Steps to reproduce:

1. run wx86cl.exe
2. do a simple processing, like

   (+ 10 20 30 40 50)
   

3. Then call

   (quit)
   

CCL will hang infinitely.

OS: Windows 10 32-bit

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.

Using Clozure Common Lisp Version 1.11-r16635 (LinuxX8664):

(let ((x (make-array 3 :adjustable t :fill-pointer 0)))
  (vector-push-extend 1 x)
  (vector-push-extend 2 x)
  (vector-push-extend 3 x)
  (assert (equalp x #(1 2 3)))

  (let* ((twice (make-array (* 2 (length x))
                            :adjustable t
                            :fill-pointer (* 2 (length x))
                            :initial-element nil)))
    (assert (equalp twice #(nil nil nil nil nil nil)))

    (replace twice x :start1 3)
    ;; TWICE should now be: #(NIL NIL NIL 1 2 3)                                                                                                
    (format t "Twice: ~S" twice)))

leads to:

Twice:
> Error: Bug (probably): can't determine class of #<BOGUS object @ #x30200105879D>
> While executing: CCL::NO-CLASS-ERROR, in process listener(1).