[Cc to RDNZL mailing list]

Hi!

On Sat, 18 Dec 2004 18:28:33 -0600, "Francisco Rivera" jfrivera56@hotmail.com wrote:

RDNZL works very fine using LispWorks Personal 4.3.7, but then I cannot make deliver. When I try to use the full LispWorks 4.0.1 the following error appears:

; Loading text file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\load.lisp ; Loading fasl file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\packages.fsl ; Loading fasl file C:\Program Files\Harlequin\LispWorks\current-lib\modules\concat\xref.fsl ; Loading fasl file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\specials.fsl ; Loading fasl file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\util.fsl ; Loading fasl file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\port-lw.fsl ; Loading fasl file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\ffi.fsl ; Loading fasl file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\container.fsl ; Loading fasl file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\reader.fsl ; Loading fasl file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\arrays.fsl ; Loading fasl file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\adapter.fsl ; Loading fasl file C:\Program Files\Harlequin\LispWorks\RDNZL-0.3.0\import.fsl

CL-USER 1 > (use-package :rdnzl) T

CL-USER 2 > (enable-rdnzl-syntax)

CL-USER 3 > (import-types "System.Windows.Forms" "MessageBox" "MessageBoxButtons" "DialogResult")

Error: The subscript 0 exceeds the limit -1 for the first dimension of the foreign-array #<Foreign-Array FLI::WCHAR-T (0) : addr #x00397128>. 1 (abort) Return to level 0. 2 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed, or :? for other options

CL-USER 4 : 1 > :b Call to FLI::DO-FOREIGN-AREF Call to (SETF FLI:FOREIGN-AREF) Call to (SUBFUNCTION (LABELS EXTERNAL-FORMAT:EF-WRITE-BYTE) (SUBFUNCTION EXTERNAL-FORMAT::MAKE-EF-FUNCTION-GENERATOR (SUBFUNCTION 1 FLI::LISP-TO-C-STRING))) Call to (SUBFUNCTION EXTERNAL-FORMAT::MAKE-EF-FUNCTION-GENERATOR (SUBFUNCTION 1 FLI::LISP-TO-C-STRING)) Call to RDNZL::%MAKE-TYPE-FROM-NAME Call to RDNZL::MAKE-TYPE-FROM-NAME Call to INVOKE Call to LOAD-ASSEMBLY Call to IMPORT-TYPES Call to CAPI::CAPI-TOP-LEVEL-FUNCTION Call to LISPWORKS-TOOLS::LISTENER-TOP-LEVEL-FUNCTION Call to CAPI::INITIALIZE-AND-PROCESS-EVENTS Call to (SUBFUNCTION 1 CAPI::CALL-AND-PROCESS-EVENTS) Call to (SUBFUNCTION 1 MP::INITIALIZE-PROCESS-STACK)

CL-USER 5 : 1 >

I suppose that the old FFI in LW 4.0.1 will not be supported.

Looks like some problem with the old FFI to me, yes. If you have a license then maybe you can get a patch from Xanalys support.

Cheers, Edi.