(progn
  (tape:rewind)
  (tape:write-files "sys:examples;fix-window-maker-code.*#>")
  (tape:write-files "sys:examples;simple-unix-eval.*#>")
  (tape:write-files "sys:examples;tv-examples.*#>")
  (tape:write-files "sys:sys2;maksys.lisp#>")
  (tape:write-files "sys:tape;error.lisp#>")
  (tape:write-files "sys:tape;user.lisp#>")
  (tape:write-files "sys:tape;lmfl-format.lisp#>")
  (tape:write-files "sys:tape;patch-22-2")
  (tape:write-files "sw:local-3-patches;*.*#>")
  (tape:write-files "sw:local-4-patches;*.*#>")
  (tape:write-files "sw:tips;*.*#>")
  (tape:write-files "sw:tools;*.*#>")
  (tape:write-files "it:keith.release-4;make-system-patch.lisp#>")
  (tape:write-files "it:keith.release-4;qfile-bugmail.text#>")
  (tape:finish-tape)
  (tape:rewind)
  (tape:compare-files))