Steel Bank Common Lisp

On Mon, 26 Jul 2004, Rick Taube wrote:

> Can someone please tell me how I should define two alien types whose stucts 
> refer to each other? Here is a simple case in C:

It's not a case of what you need to do, but how we need to fix SBCL...

I'm looking at this, but it's a tad hairy, so this may take a while. If 
someone else has a flash of insight, please do tell (or fix).

Cheers,

  -- Nikodemus                   "Not as clumsy or random as a C++ or Java.
                              An elegant weapon for a more civilized time."

> It's not a case of what you need to do, but how we need to fix SBCL...
>
> I'm looking at this, but it's a tad hairy,

Thank you very much for your response. If that issue were solved I 
think will be able to auto-generate an SBCL FFI for GTK2 from a gtk.ffi 
file that I created using the "ffigen" tools in OpenMCL. This "gtk.ffi" 
stores all of GTK2's .h declarations as lisp expressions so the 
information very easy to process but there are over 8 thousand entries 
so I would hate to resolve these interdependant struct/typedefs by 
hand! Ill keep watching the list and thanks again for looking at the 
issue.

Rick Taube
Associate Professor, Composition/Theory
School of Music
University of Illinois
Urbana, IL 61821 USA
net: taube@...
fax: 217 244 8319
vox: 217 244 2684

On Mon, 26 Jul 2004, Rick Taube wrote:

> Can someone please tell me how I should define two alien types whose stucts 
> refer to each other? Here is a simple case in C:

This should be fixed in SBCL 0.8.13.9 -- coming soon to an anoncvs near 
you. ...or if you're in a rush, the diffs can be had from the sbcl-cvs 
list archives. Thanks for the report.

Cheers,

  -- Nikodemus                   "Not as clumsy or random as a C++ or Java.
                              An elegant weapon for a more civilized time."

Hello,

Rick Taube wrote:
> Can someone please tell me how I should define two alien types whose 
> stucts refer to each other? 

Maybe this workaround will be useful for you:

;;;(slot (slot a 'funcs) 'x)   ; error - no slot x.
(slot (cast (slot a 'funcs) (* GsourceFuncs)) 'x) => 2

Cheers,

Carlos

On Tue, 3 Aug 2004, Carlos Ungil wrote:

>> Can someone please tell me how I should define two alien types whose 
>> stucts refer to each other? 
>
> Maybe this workaround will be useful for you:
>
> ;;;(slot (slot a 'funcs) 'x)   ; error - no slot x.
> (slot (cast (slot a 'funcs) (* GsourceFuncs)) 'x) => 2

Clever. ;-) However, this should not be needed with current (CVS HEAD) 
SBCL anymore, as the bugs that caused problems for mutually referring 
structures got squashed.

Cheers,

  -- Nikodemus              Schemer: "Buddha is small, clean, and serious."
                   Lispnik: "Buddha is big, has hairy armpits, and laughs."