danking/scsh-command-tables-tests-log.scm

## scsh-command-tables-tests-log.scm
Welcome to scsh 0.7
Type ,? for help.
> ,exec ,load load.scm

warning: name from opened structure redefined [package-define!]
         #{package 285 config}
         srfi-43
         #{structure 95 more-structures}

warning: name from opened structure redefined [package-define!]
         #{package 285 config}
         srfi-66
         #{structure 95 more-structures}

warning: name from opened structure redefined [package-define!]
         #{package 285 config}
         srfi-78
         #{structure 95 more-structures}
> ,open edwin:command-table

warning: duplicate name in opened structure [check-for-duplicates!]
         write
         #{package 398 scsh-subset}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         newline
         #{package 398 scsh-subset}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         write-char
         #{package 398 scsh-subset}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         char-ready?
         #{package 398 scsh-subset}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         display
         #{package 398 scsh-subset}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         open-input-file
         #{package 398 scsh-subset}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         open-output-file
         #{package 398 scsh-subset}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         read-char
         #{package 398 scsh-subset}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 383 srfi-89}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 383 srfi-89}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 383 srfi-89}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 383 srfi-89}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         vector-fill!
         #{package 390 aliases}
         #{structure 380 srfi-43}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         list->vector
         #{package 390 aliases}
         #{structure 380 srfi-43}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         vector->list
         #{package 390 aliases}
         #{structure 380 srfi-43}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string->list
         #{package 390 aliases}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-copy
         #{package 390 aliases}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         filter
         #{package 390 aliases}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 390 aliases}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 390 aliases}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         fold
         #{package 390 aliases}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         any
         #{package 390 aliases}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 390 aliases}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         every
         #{package 390 aliases}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         reduce
         #{package 390 aliases}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 390 aliases}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         last
         #{package 390 aliases}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         write
         #{package 390 aliases}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         newline
         #{package 390 aliases}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         write-char
         #{package 390 aliases}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         char-ready?
         #{package 390 aliases}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         display
         #{package 390 aliases}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         open-input-file
         #{package 390 aliases}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         open-output-file
         #{package 390 aliases}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         read-char
         #{package 390 aliases}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 397 event-distributor}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 397 event-distributor}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 397 event-distributor}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 397 event-distributor}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-fill!
         #{package 404 char-support}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string->list
         #{package 404 char-support}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-copy
         #{package 404 char-support}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-fill!
         #{package 402 keystroke-core}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string->list
         #{package 402 keystroke-core}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-copy
         #{package 402 keystroke-core}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 402 keystroke-core}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 402 keystroke-core}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 402 keystroke-core}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 402 keystroke-core}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         filter
         #{package 393 pathname}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 393 pathname}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 393 pathname}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         fold
         #{package 393 pathname}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         any
         #{package 393 pathname}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 393 pathname}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         every
         #{package 393 pathname}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         reduce
         #{package 393 pathname}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 393 pathname}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         last
         #{package 393 pathname}
         #{structure 217 srfi-1}
         #{structure 16 util}

warning: duplicate name in opened structure [check-for-duplicates!]
         signal
         #{package 393 pathname}
         #{structure 345 scsh-level-0}
         #{structure 204 signals}

warning: duplicate name in opened structure [check-for-duplicates!]
         write
         #{package 393 pathname}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         newline
         #{package 393 pathname}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         write-char
         #{package 393 pathname}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         char-ready?
         #{package 393 pathname}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         display
         #{package 393 pathname}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         open-input-file
         #{package 393 pathname}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         open-output-file
         #{package 393 pathname}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         read-char
         #{package 393 pathname}
         #{structure 345 scsh-level-0}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         error
         #{package 374 soosy-helpers}
         #{structure 231 srfi-23}
         #{structure 204 signals}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 374 soosy-helpers}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 374 soosy-helpers}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 374 soosy-helpers}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 374 soosy-helpers}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 376 soosy-macros}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 376 soosy-macros}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 376 soosy-macros}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 376 soosy-macros}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 387 weak-pair}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 387 weak-pair}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 387 weak-pair}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 387 weak-pair}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-fill!
         #{package 415 edwin:string-table}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string->list
         #{package 415 edwin:string-table}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-copy
         #{package 415 edwin:string-table}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         vector-fill!
         #{package 415 edwin:string-table}
         #{structure 380 srfi-43}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         list->vector
         #{package 415 edwin:string-table}
         #{structure 380 srfi-43}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         vector->list
         #{package 415 edwin:string-table}
         #{structure 380 srfi-43}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-fill!
         #{package 411 edwin:doc-string}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string->list
         #{package 411 edwin:doc-string}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-copy
         #{package 411 edwin:doc-string}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         write-string
         #{package 411 edwin:doc-string}
         #{structure 28 i/o}
         #{structure 390 aliases}

warning: duplicate name in opened structure [check-for-duplicates!]
         list->vector
         #{package 413 edwin:command}
         #{structure 380 srfi-43}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         vector->list
         #{package 413 edwin:command}
         #{structure 380 srfi-43}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         error
         #{package 413 edwin:command}
         #{structure 231 srfi-23}
         #{structure 389 errors}

warning: duplicate name in opened structure [check-for-duplicates!]
         string->list
         #{package 413 edwin:command}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-copy
         #{package 413 edwin:command}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 413 edwin:command}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 413 edwin:command}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 413 edwin:command}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 413 edwin:command}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         define-record-type
         #{package 401 keystroke-discloser}
         #{structure 19 define-record-types}
         #{structure 224 srfi-9}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 412 edwin:command-table}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 412 edwin:command-table}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 412 edwin:command-table}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 412 edwin:command-table}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 375 soosy-disclosers}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 375 soosy-disclosers}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 375 soosy-disclosers}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 375 soosy-disclosers}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: Structure has undefined exports [check-structure]
         #{structure 398 scsh-subset}
         (interrupt/winch set-interrupt-handler)

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 421 ((for-syntax #f))}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 421 ((for-syntax #f))}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 421 ((for-syntax #f))}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 421 ((for-syntax #f))}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: name from opened structure redefined [package-define!]
         #{package 390 aliases}
         unspecific
         #{structure 16 util}

warning: name from opened structure redefined [package-define!]
         #{package 390 aliases}
         symbol-append
         #{structure 16 util}

warning: name from opened structure redefined [package-define!]
         #{package 390 aliases}
         write-string
         #{structure 345 scsh-level-0}

warning: undefined variables [print-undefined-names]
         #{package 390 aliases}
         time+ticks

warning: duplicate name in opened structure [check-for-duplicates!]
         string-fill!
         #{package 423 ((for-syntax #f))}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string->list
         #{package 423 ((for-syntax #f))}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         string-copy
         #{package 423 ((for-syntax #f))}
         #{structure 226 srfi-13}
         #{structure 91 scheme}

warning: name from opened structure redefined [package-define!]
         #{package 393 pathname}
         name->user-info
         #{structure 345 scsh-level-0}

warning: duplicate name in opened structure [check-for-duplicates!]
         member
         #{package 424 ((for-syntax #f))}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         for-each
         #{package 424 ((for-syntax #f))}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         assoc
         #{package 424 ((for-syntax #f))}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: duplicate name in opened structure [check-for-duplicates!]
         map
         #{package 424 ((for-syntax #f))}
         #{structure 217 srfi-1}
         #{structure 91 scheme}

warning: Structure has undefined exports [check-structure]
         #{structure 415 edwin:string-table}
         (string-table-apropos)

warning: Structure has undefined exports [check-structure]
         #{structure 413 edwin:variable/private}
         (set-variable-%default-value! set-variable-%value!)

Changing default package for file ../edwin48/scsh/macros.scm from
#{package 413 edwin:command} to #{package 412 edwin:command-table}

warning: name from opened structure redefined [package-define!]
         #{package 412 edwin:command-table}
         define-command
         #{structure 413 edwin:command}

warning: name from opened structure redefined [package-define!]
         #{package 412 edwin:command-table}
         ref-command-object
         #{structure 413 edwin:command}

warning: name from opened structure redefined [package-define!]
         #{package 412 edwin:command-table}
         ref-command
         #{structure 413 edwin:command}

warning: undefined variables [print-undefined-names]
         #{package 412 edwin:command-table}
         button?
         edwin-command$undefined
         local-comtabs
         command?
         edwin-command$prefix-key
         char-set?
         char-set->list
> ,exec ,load command-tables.scm

error: unsupported number syntax [read]
       "->command"
       #{&read-error}
       #{&i/o-port-error #{input-port #{input-channel "command-tables.scm" 3}}}
1 exec>