Splitting code across modules

error.txt

No applicable method, applying {<incremental-generic-function>: table-protocol} to {<simple-object-vector>: {<no-table>}}.
No applicable method, applying {function  0x7fed119e7700} to #[{<no-table> 0x55bc735e4840}].
Breaking into debugger.
Backtrace:
  raise + 0x10b
  invoke-debugger:internal:dylan##1 + 0x49
  default-handler:dylan:dylan##1 + 0x2a
  default-last-handler:common-dylan-internals:common-dylan##0 + 0x104
  error:dylan:dylan##0 + 0x54
  no-applicable-method-error:dylan-extensions:dylan + 0x4d8
  initialize:dylan:dylan##29 + 0xc9
  <no-table> constructor:modmod:modmod##0 + 0xd8
  make:dylan:dylan##48 + 0x26
  main:modmod:modmod + 0x74
  _Init_modmod_ + 0x4e
  _dl_rtld_di_serinfo + 0x5fda
  _dl_rtld_di_serinfo + 0x60d6
  0x7fed11a810ca

library.dylan

Module: dylan-user

define library modmod
  use common-dylan;
  use io;
end library modmod;

define module modmod
  use common-dylan;
  use format-out;
end module modmod;

modmod.dylan

Module: modmod
Synopsis: 
Author: 
Copyright: 

define class <yes-table> (<table>)
end;

define method table-protocol ( q :: <yes-table>) => (eq :: <function>, ha :: <function>)
  values(\=, object-hash)
end;


define function main
    (name :: <string>, arguments :: <vector>)
  format-out("Hello, world!\n");
  let w = make(<yes-table>);
  let q = make(<no-table>);
  exit-application(0);
end function main;

main(application-name(), application-arguments());

modmod.lid

Library: modmod
Files: library
       modmod
       more

more.dylan

Module: modmod

define class <no-table> (<table>)
end;

define method table-protocol ( q :: <no-table>) => (eq :: <function>, ha :: <function>)
  values(\=, object-hash)
end;