<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<STYLE>@font-face {
font-family: 宋体;
}
@font-face {
font-family: Verdana;
}
@font-face {
font-family: @宋体;
}
@page Section1 {size: 595.3pt 841.9pt; margin: 72.0pt 90.0pt 72.0pt 90.0pt; layout-grid: 15.6pt; }
P.MsoNormal {
TEXT-JUSTIFY: inter-ideograph; FONT-SIZE: 10.5pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; TEXT-ALIGN: justify
}
LI.MsoNormal {
TEXT-JUSTIFY: inter-ideograph; FONT-SIZE: 10.5pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; TEXT-ALIGN: justify
}
DIV.MsoNormal {
TEXT-JUSTIFY: inter-ideograph; FONT-SIZE: 10.5pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; TEXT-ALIGN: justify
}
A:link {
COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline
}
SPAN.EmailStyle17 {
FONT-WEIGHT: normal; COLOR: windowtext; FONT-STYLE: normal; FONT-FAMILY: Verdana; TEXT-DECORATION: none; mso-style-type: personal-compose
}
DIV.Section1 {
page: Section1
}
UNKNOWN {
FONT-SIZE: 10pt
}
BLOCKQUOTE {
MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; MARGIN-LEFT: 2em
}
OL {
MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px
}
UL {
MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px
}
</STYLE>
</HEAD>
<BODY style="FONT-SIZE: 10pt; MARGIN: 10px; FONT-FAMILY: verdana">
<DIV><FONT size="2" color="#000080" face="Verdana">thanks very much, it
works.</FONT></DIV>
<DIV><FONT color="#000080">but when I try to call function ltk-eyes,it gets error
again:</FONT></DIV>
<DIV><FONT color="#000080"></FONT> </DIV>
<DIV>Error: value 864 is not of the expected type CCL:MACPTR.
</DIV>
<DIV><FONT color="#000080"></FONT> </DIV>
<DIV><FONT color="#000080">This error occurs very frequently。</FONT></DIV>
<DIV><FONT size="2" color="#000080" face="Verdana"></FONT> </DIV>
<DIV><FONT size="2" color="#000080" face="Verdana"></FONT> </DIV>
<DIV><FONT size="2" color="#c0c0c0" face="Verdana">2009-03-11 </FONT></DIV><FONT size="2" color="#000080" face="Verdana">
<HR SIZE="1" color="#b5c4df" align="left" style="WIDTH: 100px">
</FONT>
<DIV><FONT size="2" color="#c0c0c0" face="Verdana"><SPAN>Ray</SPAN> </FONT></DIV>
<HR SIZE="1" color="#b5c4df">
<DIV><FONT size="2" face="Verdana"><STRONG>发件人：</STRONG> Gary Byers </FONT></DIV>
<DIV><FONT size="2" face="Verdana"><STRONG>发送时间：</STRONG> 2009-03-10 17:31:18
</FONT></DIV>
<DIV><FONT size="2" face="Verdana"><STRONG>收件人：</STRONG> Ray </FONT></DIV>
<DIV><FONT size="2" face="Verdana"><STRONG>抄送：</STRONG> Openmcl-devel </FONT></DIV>
<DIV><FONT size="2" face="Verdana"><STRONG>主题：</STRONG> Re: [Openmcl-devel] ltk in
win32 </FONT></DIV>
<DIV><FONT size="2" face="Verdana"></FONT> </DIV>
<DIV><FONT size="2" face="Verdana">
<DIV>It's a bug. There are several differences between the Windows and</DIV>
<DIV>Unix implementations of RUN-PROGRAM and friends, but</DIV>
<DIV>CCL:EXTERNAL-PROCESS-INPUT-STREAM and CCL:EXTERNAL-PROCESS-OUTPUT-STREAM</DIV>
<DIV>should be defined unconditionally.</DIV>
<DIV></DIV>
<DIV>To work around it, you might try something (admittedly ugly) like:</DIV>
<DIV></DIV>
<DIV>(unless (fboundp 'ccl:external-process-input-stream)</DIV>
<DIV> (defun ccl:external-process-input-stream (proc)</DIV>
<DIV> (check-type proc ccl::external-process)</DIV>
<DIV> (ccl::external-process-input proc)))</DIV>
<DIV></DIV>
<DIV>(unless (fboundp 'ccl:external-process-output-stream)</DIV>
<DIV> (defun ccl:external-process-output-stream (proc)</DIV>
<DIV> (check-type proc ccl::external-process)</DIV>
<DIV> (ccl::external-process-output proc)))</DIV>
<DIV></DIV>
<DIV>(load "ltk/ltk.lisp")</DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV>On Tue, 10 Mar 2009, Ray wrote:</DIV>
<DIV></DIV>
<DIV>> Hi,all!</DIV>
<DIV>></DIV>
<DIV>> Does somebody use ltk in win32?</DIV>
<DIV>> I tried, but got some errors;</DIV>
<DIV>> It looks like this:</DIV>
<DIV>></DIV>
<DIV>> ? (load "ltk/ltk.lisp")</DIV>
<DIV>> ;Compiler warnings :</DIV>
<DIV>> ; In DO-EXECUTE: Undefined function CCL:EXTERNAL-PROCESS-INPUT-STREAM</DIV>
<DIV>> ; In DO-EXECUTE: Undefined function CCL:EXTERNAL-PROCESS-OUTPUT-STREAM</DIV>
<DIV>> #P"D:/Bin/ccl/ltk/ltk.lisp"</DIV>
<DIV>> ?</DIV>
<DIV>></DIV>
<DIV>> How can I fix this? Thanks.</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> 2009-03-10</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Ray</DIV>
<DIV>></DIV></FONT></DIV></BODY></HTML>