[Openmcl-devel] ltk in win32

[Gary Byers]

It's a bug.  There are several differences between the Windows and
Unix implementations of RUN-PROGRAM and friends, but
CCL:EXTERNAL-PROCESS-INPUT-STREAM and CCL:EXTERNAL-PROCESS-OUTPUT-STREAM
should be defined unconditionally.

To work around it, you might try something (admittedly ugly) like:

(unless (fboundp 'ccl:external-process-input-stream)
   (defun ccl:external-process-input-stream (proc)
     (check-type proc ccl::external-process)
     (ccl::external-process-input proc)))

(unless (fboundp 'ccl:external-process-output-stream)
   (defun ccl:external-process-output-stream (proc)
     (check-type proc ccl::external-process)
     (ccl::external-process-output proc)))

(load "ltk/ltk.lisp")



On Tue, 10 Mar 2009, Ray wrote:

> Hi,all!
>
> Does somebody use ltk in win32?
> I tried, but got some errors;
> It looks like this:
>
> ? (load "ltk/ltk.lisp")
> ;Compiler warnings :
> ;   In DO-EXECUTE: Undefined function CCL:EXTERNAL-PROCESS-INPUT-STREAM
> ;   In DO-EXECUTE: Undefined function CCL:EXTERNAL-PROCESS-OUTPUT-STREAM
> #P"D:/Bin/ccl/ltk/ltk.lisp"
> ?
>
> How can I fix this? Thanks.
>
>
> 2009-03-10
>
>
>
> Ray
>