Custom Query (1030 matches)

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

CCL 1.5, Windows XP, x86 Given a source file danderoli.lisp,

(ccl:save-application
   "danderoli.cgi"
   :error-handler :quit :prepend-kernel t))

hangs (danderoli.cgi gets created, but is only 1731 Kb), while

(ccl:save-application
   "dand.cgi"
   :error-handler :quit :prepend-kernel t))

doesn't. The documentation doesn't seem to mention it. Is it a bug or am I missing something?

e.g. when I do the following loop, it only read two lines. (Lispworks and CLisp read 3 lines)

(loop for i from 1 to 3 do (read-line))
1 2
2 3
NIL
}}
and the following code only reports error in Clozure (in CLisp and Lispworks it is fine):
{{{
? (defun take-input(n)
(let ((s ()))
  (dotimes (i n)
    (push 
     (with-input-from-string (s (read-line)) (loop for x = (read s nil :end) until (eq x :end) collect x)) s))
s))
? (take-input 1)
1 2
> Error: Reader error on #<STRING-INPUT-STREAM  #x302006AA204D>, near position 1, within ")":
>        Unmatched ')' .
}}}