Custom Query (1030 matches)

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

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

With "Version 1.3-r12839M (LinuxPPC32)" and Ubuntu 7.10, the following

(with-output-to-string

(stream) (ccl:run-program

"sh" `("-c"

,(format

nil "echo ~a | aspell -a --encoding=utf-8 --lang=~a" "dpg" "en"))

:output stream))

works as expected, while

(with-output-to-string

(stream) (ccl:run-program

"sh" `("-c"

,(format

nil "echo ~a | aspell -a --encoding=utf-8 --lang=~a" "сабака" "ru"))

:output stream))

does not (no suggestions are showed). Both worked five years ago on MacOS X, and in shell aspell works correctly. Some investigation showed that the problem is in the encoding RUN-PROGRAM uses for io. CCL is started with

-K utf-8 --eval '(setf *default-file-character-encoding* :utf-8)'

but it seems it's not enough...