[Openmcl-devel] ltk in win32

[Ray]

The function LTK-EYES is one of the examples of ltk.

"LTK is a Common Lisp binding for the Tk graphics toolkit. It does not require any Tk knowledge for its usage. As it is written in pure Lisp, it is highly portable."

And it's web site is:http://www.peter-herth.de/ltk/

? (in-package :ltk)
#<Package "LTK">
? (ltk-eyes)
> Error: value 864 is not of the expected type CCL:MACPTR.
> While executing: CCL::FD-DUP, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b
*(BD0BAC) : 0 (FD-DUP 864 :DIRECTION :OUTPUT :INHERITABLE NIL) 306
 (BD0BEC) : 1 (FD-UNINHERITABLE 864 :DIRECTION :OUTPUT) 103
 (BD0C00) : 2 (GET-DESCRIPTOR-FOR :STREAM #<EXTERNAL-PROCESS (wish -name LTK)[NI
L] (RUNNING) #x96856AE> NIL NIL :DIRECTION :INPUT :IF-DOES-NOT-EXIST NIL :SHARIN
G :PRIVATE :ELEMENT-TYPE CHARACTER) 631
 (BD0C48) : 3 (RUN-PROGRAM "wish" ("wish" "-name" "LTK") :WAIT NIL :PTY NIL :INP
UT :STREAM :IF-INPUT-DOES-NOT-EXIST NIL :OUTPUT :STREAM :IF-OUTPUT-EXISTS :ERROR
 :ERROR :OUTPUT :IF-ERROR-EXISTS :ERROR :STATUS-HOOK NIL :ELEMENT-TYPE CHARACTER
 :SHARING :PRIVATE :ENV NIL) 1151
 (BD0CFC) : 4 (DO-EXECUTE "wish" ("-name" "LTK") NIL) 223
 (BD0D14) : 5 (START-WISH :HANDLE-ERRORS :DEBUG :HANDLE-WARNINGS :SIMPLE :DEBUGG
ER T) 271
 (BD0D44) : 6 (CALL-WITH-LTK #<Compiled-function (:INTERNAL LTK-EYES) (Non-Globa
l)  #x966588E>) 255
 (BD0D90) : 7 (CALL-CHECK-REGS LTK-EYES) 247
 (BD0DAC) : 8 (TOPLEVEL-EVAL (LTK-EYES) NIL) 751
 (BD0DEC) : 9 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x89BDB
36> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x89BD936> :BREAK-LEVEL 0 :
PROMPT-FUNCTION #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global)  #x8
378306>) 1831
 (BD0F00) : 10 (TOPLEVEL-LOOP) 71
 (BD0F08) : 11 (FUNCALL #'#<(:INTERNAL (CCL:TOPLEVEL-FUNCTION (CCL::LISP-DEVELOP
MENT-SYSTEM T)))>) 87
 (BD0F14) : 12 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 583
 (BD0F60) : 13 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #x8
9BB43E> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x89BB06E>)) 671
 (BD0FA4) : 14 (FUNCALL #'#<(:INTERNAL CCL::%PROCESS-PRESET-INTERNAL)> #<TTY-LIS
TENER listener(1) [Active] #x89BB43E> (#<CCL:COMPILED-LEXICAL-CLOSURE # #x89BB06
E>)) 335
 (BD0FCC) : 15 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 279
1 >

thanks.

2009-03-11 



Ray 



·¢¼þÈË£º Gary Byers 
·¢ËÍʱ¼ä£º 2009-03-11  13:31:58 
ÊÕ¼þÈË£º Ray 
³­ËÍ£º Openmcl-devel 
Ö÷Ì⣺ Re: Re: [Openmcl-devel] ltk in win32 
 
What is the function LTK-EYES ?  What does it do ?  (How would I know ?)
What does the backtrace say ?
On Wed, 11 Mar 2009, Ray wrote:
> thanks very much, it works.
> but when I try to call function ltk-eyes,it gets error again:
>
> Error: value 864 is not of the expected type CCL:MACPTR.
>
> This error occurs very frequently¡£
>
>
> 2009-03-11
>
>
>
> Ray
>
>
>
> ·¢¼þÈË£º Gary Byers
> ·¢ËÍʱ¼ä£º 2009-03-10  17:31:18
> ÊÕ¼þÈË£º Ray
> ³­ËÍ£º Openmcl-devel
> Ö÷Ì⣺ Re: [Openmcl-devel] ltk in win32
>
> 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
>>
>