Custom Query (1030 matches)

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))))))) 

Per the discussion on the mailing list I request that support for a user hook for ((...) ...) syntax be added to CCL. A reference implementation can be found here:

​http://www.flownet.com/ron/lisp/nx1-combination-hook.lisp

Subject line says it all. This is technically not incorrect behavior, but given that (listen) does something different on *standard-input* than it does for other streams (like file streams and TCP streams) it would be nice to have a way to test which behavior to expect before calling (listen).