Custom Query (1030 matches)

From Doug Currie in ​http://clozure.com/pipermail/openmcl-devel/2009-July/010104.html:

Using the IDE "Check for Updates..." menu item seemed to hang -- is there no timeout? I traced it to CCL using the svn program in /usr/bin rather than the newer version I'd installed in /usr/local/bin.

The following test will usually crash CCL within seconds with a malloc heap corruption.

Doesn't crash if I redefine %make-semaphore-ptr to not create a gcable pointer.

(defun run-env () 
  (with-output-to-string (out) 
    (let ((process (run-program "/bin/sh" (list "-c" "env") 
                                :wait t :output out))) 
      (when process 
        (multiple-value-bind (status code) 
            (external-process-status process) 
          (unless (and (eq status :exited) (zerop code)) 
            (error "Shell command failed"))))))) 
 
 
(list 
 (process-run-function "Worker 1" (lambda () (loop (run-env)))) 
 (process-run-function "Worker 2" (lambda () (loop (run-env)))) 
 (process-run-function "GC'er" (lambda () (loop (gc) (sleep (1+ (random 3))))))) 

This is compiling a fixnum test into the (incf y inc) for some reason.

? (defun test () (symbol-macrolet ((inc 0.5)) (loop with y = 0 do (incf y inc) while (< y 100))))
TEST
? (test)
> Error: value 0.5 is not of the expected type FIXNUM.
> While executing: TEST, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 >