| allegro-cl archives 1999-5-29 | home index prev H thread prev K thread next J next L |
|
From: cox (Charles A. Cox) Subject: [juhst6+@pitt.edu: cannot run acl5.0 DLL example factorial properly] Date: 1999-5-29 19:01 Return-Path: <cox> From: "jun hu" <pitt.edu at juhst6+> To: <cs.berkeley.edu at allegro-cl-request> Subject: cannot run acl5.0 DLL example factorial properly Date: Wed, 26 May 1999 22:21:39 -0400 MIME-Version: 1.0 X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 5.00.2314.1300 X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300 Content-Type: multipart/alternative; boundary="----=_NextPart_000_0005_01BEA7C6.20252120" Content-Length: 2868 This is a multi-part message in MIME format. ------=_NextPart_000_0005_01BEA7C6.20252120 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable does anybody know how to run the dll example at acl50/examples/dll ? my platform is WindowsNT workstation with service pack 3 and acl5.0 enterprise edition. i doubt that the customized call-back function provided by Franz contains a bug. i include the code in this email. i checked the lisp thread status before and after executing RemoteCommand function in fact.c, the return value showed that the lisp thread was no longer alive and the error message was "factorial startup error". part of fact.cl (defun initialize-factorial () (mp:process-run-function "Factorial" #'(lambda () (let ((ct 0)) (loop (mp:process-wait "Wait for immigrant" #'(lambda () (> (mp::thread-test :waiting-threads nil) 0))) (incf ct) (mp:make-immigrant-process (format nil "CB-~d" ct)))))) (set_factorial_callback (ff:register-function #'factorial-callback nil t))) thanks for any advice and comment - jun ------=_NextPart_000_0005_01BEA7C6.20252120 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META content="text/html; charset=iso-8859-1" http-equiv=Content-Type> <META content="MSHTML 5.00.2314.1000" name=GENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=#ffffff> <DIV><FONT face=Arial size=2>does anybody know how to run the dll example at acl50/examples/dll ? my platform is WindowsNT workstation with service pack 3 and acl5.0 enterprise edition. i doubt that the customized call-back function provided by Franz contains a bug. i include the code in this email. i checked the lisp thread status before and after executing RemoteCommand function in fact.c, the return value showed that the lisp thread was no longer alive and the error message was "factorial startup error".</FONT></DIV> <DIV> </DIV> <DIV><FONT face=Arial size=2>part of fact.cl</FONT></DIV> <DIV><FONT face="Courier New" size=1> <P>(defun initialize-factorial ()</P> <P>(mp:process-run-function</P> <P>"Factorial"</P> <P>#'(lambda ()</P> <P>(let ((ct 0))</P> <P>(loop</P> <P>(mp:process-wait</P> <P>"Wait for immigrant"</P> <P>#'(lambda ()</P> <P>(> (mp::thread-test :waiting-threads nil)</P> <P>0)))</P> <P>(incf ct)</P> <P>(mp:make-immigrant-process</P> <P>(format nil "CB-~d" ct))))))</P> <P>(set_factorial_callback (ff:register-function #'factorial-callback nil t)))</P> <P><FONT face=Arial size=2>thanks for any advice and comment</FONT></P> <P><FONT face=Arial size=2>- jun</FONT></P></FONT></DIV></BODY></HTML> ------=_NextPart_000_0005_01BEA7C6.20252120-- |