(fs:copy-file "lm:interlisp;BREAKDOWN.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;CHANGETRAN.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;DEFRECORD.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;GENERAL.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;INDEX.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;INTERLISP.SYSTEM#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;ITERATE.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;LETP.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;METER-ANALYSIS.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;RANDOM-FUNCTIONS.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;READER-MACROS.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;RECORD-PACKAGE.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;CONVERTINTERLISP.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;PATCH.qfasl#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;PATCHES.SYSTEM#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;MAKEINTERLISP.LISP#>" "lm:interlisp-release;")
(fs:copy-file "lm:interlisp;INTERLISP.DOC#>" "lm:interlisp-release;")
(fs:tapemaster-initialize)
(fs:copy-directory "lm:interlisp-release;" "mt:" ':copy-only ':newest)
(fs:mt-write-eof)
(fs:mt-write-eof)
(fs:mt-write-eof)
(fs:mt-write-eof)
(fs:mt-rewind)