(lambda (port)
(define (filenames)
- '("abbrev" "ansi" "argred" "artdebug" "autold" "autosv" "basic"
- "bios" "bufcom" "buffer" "buffrm" "bufinp" "bufmnu" "bufout"
- "bufset" "bufwfs" "bufwin" "bufwiu" "bufwmc" "c-mode" "calias"
- "cinden" "class" "clscon" "clsmac" "comatch" "comhst" "comint"
- "comman" "compile" "comred" "comtab" "comwin" "curren" "dabbrev"
- "debian-changelog" "debug" "debuge" "diff" "dired" "dirunx"
- "dirw32" "display" "docstr" "dos" "doscom" "dosfile" "dosproc"
- "dosshell" "ed-ffi" "editor" "edtfrm" "edtstr" "evlcom" "eystep"
- "filcom" "fileio" "fill" "grpops" "hlpcom" "htmlmode" "image"
- "info" "input" "intmod" "iserch" "javamode" "key-w32" "keymap"
- "keyparse" "kilcom" "kmacro" "lincom" "linden" "lisppaste"
- "loadef" "lspcom" "macros" "make" "malias" "manual" "midas"
- "modefs" "modes" "modlin" "modwin" "motcom" "motion" "mousecom"
- "nntp" "notify" "nvector" "occur" "outline" "paredit" "pasmod"
- "paths" "print" "process" "prompt" "pwedit" "pwparse" "rcsparse"
- "reccom" "regcom" "regexp" "regops" "replaz" "rfc822"
- "ring" "rmail" "rmailsrt" "rmailsum" "schmod" "scrcom" "screen"
- "search" "sendmail" "sercom" "shell" "simple" "snr" "sort"
- "string" "strpad" "strtab" "struct" "syntax" "tagutl" "techinfo"
- "telnet" "termcap" "texcom" "things" "tparse" "tterm" "tximod"
- "txtprp" "undo" "unix" "utils" "utlwin" "vc" "vc-bzr" "vc-cvs"
- "vc-git" "vc-rcs" "vc-svn" "verilog" "vhdl" "webster" "win32"
- "win32com" "wincom" "window" "winout" "world-monitor"
- "xform" "xterm"))
+ '("abbrev" "adapters" "ansi" "argred" "artdebug" "autold" "autosv" "basic"
+ "bios" "bufcom" "buffer" "buffrm" "bufinp" "bufmnu" "bufout" "bufset"
+ "bufwfs" "bufwin" "bufwiu" "bufwmc" "c-mode" "calias" "cinden" "class"
+ "clscon" "clsmac" "comatch" "comhst" "comint" "comman" "compile"
+ "comred" "comtab" "comwin" "curren" "dabbrev" "debian-changelog" "debug"
+ "debuge" "diff" "dired" "dirunx" "dirw32" "display" "docstr" "dos"
+ "doscom" "dosfile" "dosproc" "dosshell" "ed-ffi" "editor" "edtfrm"
+ "edtstr" "evlcom" "eystep" "filcom" "fileio" "fill" "grpops" "hlpcom"
+ "htmlmode" "image" "info" "input" "intmod" "iserch" "javamode" "key-w32"
+ "keymap" "keyparse" "kilcom" "kmacro" "lincom" "linden" "lisppaste"
+ "loadef" "lspcom" "macros" "make" "malias" "manual" "midas" "modefs"
+ "modes" "modlin" "modwin" "motcom" "motion" "mousecom" "nntp" "notify"
+ "nvector" "occur" "outline" "paredit" "pasmod" "paths" "print" "process"
+ "prompt" "pwedit" "pwparse" "rcsparse" "reccom" "regcom" "regexp"
+ "regops" "replaz" "rfc822" "ring" "rmail" "rmailsrt" "rmailsum" "schmod"
+ "scrcom" "screen" "search" "sendmail" "sercom" "shell" "simple" "snr"
+ "sort" "string" "strpad" "strtab" "struct" "syntax" "tagutl" "techinfo"
+ "telnet" "termcap" "texcom" "things" "tparse" "tterm" "tximod" "txtprp"
+ "undo" "unix" "utils" "utlwin" "vc" "vc-bzr" "vc-cvs" "vc-git" "vc-rcs"
+ "vc-svn" "verilog" "vhdl" "webster" "win32" "win32com" "wincom" "window"
+ "winout" "world-monitor" "xform" "xterm"))
(define (my-write . strings)
(for-each (lambda (string)