goops: a subclass of top has no name (1.6.3)

[Greg Troxel]

While I was playing with goops to understand things well enough to
comment about merging generic functions, I noticed:

  guile> (pretty-print (map class-name (class-direct-subclasses <top>)))
  <unnamed port>:18:15: In procedure class-name in expression (map
  class-name (class-direct-subclasses <top>)):
  <unnamed port>:18:15: Slot `name' is unbound in object #<<class>
  808ede0>
  ABORT: (goops-error)
  guile> (version )
  "1.6.3"

This is right after jmpbuffer and before srcprops.

        Greg Troxel <address@hidden>