[Chicken-users] retrieving a structure's symbol name

[Marco Maggi]

Ciao,

  I know  that it is  dirty, but is it  possible to retrieve  the symbol
name of  a structure  from the  block object?  If  I create  a structure
with:

   (define (make-it)
     (##sys#make-structure 'spiffy))

   (define O
     (make-it))

can  I extract  "spiffy"  from the  structure object  bound  to "O"?   I
searched "library.scm" in CHICKEN's 5.1.0 source without success.

TIA
-- 
Marco Maggi