Re: g-wrap: guile-CVS build error

[Jan Nieuwenhuizen]

Jan Nieuwenhuizen writes:

> (if (defined? 'class-name)
>     (define class-name (ensure-accessor class-name))
>     (let* ((oop-goops (resolve-module '(oop goops)))
>          (goops-class-name (module-ref oop-goops 'class-name)))
>       (define class-name (ensure-accessor goops-class-name))))
>
> But that doesn't work?

(if (defined? 'class-name)
    (define class-name (ensure-accessor class-name))
    (define class-name (ensure-accessor (module-ref
                                         (resolve-module '(oop goops))
                                         'class-name))))
                                         
Ah, this works, but compiling guile-gnome with GUILE CVS, there are
lots of warnings.  I Realize that this may be the cause of my recent
LilyPond problems with guile-1.6: (oop goops) gets imported, and
lateron gwrap also imports (oop goops), but with some stuff altered
(like class-name?)

guile  -c \
  "(debug-set! stack 200000) \
   (use-modules (g-wrap)) \
   (use-modules (gnome gw gtk-spec)) \
   (generate-wrapset 'guile 'gnome-gtk \"guile-gnome-gw-gtk\")"
WARNING: (srfi srfi-35): `every' imported from both (oop goops util) and (srfi 
srfi-1)
WARNING: (srfi srfi-35): `any' imported from both (oop goops util) and (srfi 
srfi-1)
WARNING: (g-wrap util): imported module (srfi srfi-34) overrides core binding 
`raise'
WARNING: (g-wrap): imported module (srfi srfi-34) overrides core binding `raise'
WARNING: (g-wrap rti): imported module (srfi srfi-34) overrides core binding 
`raise'
WARNING: (g-wrap rti): `class-name' imported from both (oop goops) and (g-wrap)
WARNING: (g-wrap enumeration): `class-name' imported from both (oop goops) and 
(g-wrap)
WARNING: (g-wrap c-types): `class-name' imported from both (oop goops) and 
(g-wrap)
WARNING: (g-wrap guile): `class-name' imported from both (oop goops) and 
(g-wrap)
WARNING: (gnome gobject gw-spec-utils): `class-name' imported from both (oop 
goops) and (g-wrap)
WARNING: (g-wrap ws standard): `class-name' imported from both (oop goops) and 
(g-wrap)
WARNING: (g-wrap guile ws standard): `class-name' imported from both (oop 
goops) and (g-wrap)
WARNING: (gnome gobject defs-support): imported module (ice-9 slib) overrides 
core binding `symbol-append'
WARNING: (gnome gobject defs-support): imported module (ice-9 slib) overrides 
core binding `string-capitalize!'
WARNING: (gnome gobject defs-support): imported module (ice-9 slib) overrides 
core binding `string-capitalize'
WARNING: (gnome gobject defs-support): imported module (ice-9 slib) overrides 
core binding `string-ci->symbol'
WARNING: (gnome gobject defs-support): `class-name' imported from both (oop 
goops) and (g-wrap)
WARNING: (gnome gw glib-spec): `class-name' imported from both (oop goops) and 
(g-wrap)
WARNING: (gnome gw gobject-spec): `class-name' imported from both (oop goops) 
and (g-wrap)
WARNING: (gnome gw atk-spec): `class-name' imported from both (oop goops) and 
(g-wrap)
WARNING: (gnome gw pango-spec): `class-name' imported from both (oop goops) and 
(g-wrap)
WARNING: (gnome gw gdk-spec): `class-name' imported from both (oop goops) and 
(g-wrap)
WARNING: (gnome gw gtk-spec): `class-name' imported from both (oop goops) and 
(g-wrap)


-- 
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org