(FILECREATED "20-Apr-86 10:14:07" {ERIS}<LISPCORE>SOURCES>FLOPPYTEMP.;1
 946    

      changes to:  (VARS FLOPPYTEMPCOMS)
                   (FNS FLOPPY.TEMP))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FLOPPYTEMPCOMS)

(RPAQQ FLOPPYTEMPCOMS
 ((FNS FLOPPY.TEMP)))
(DEFINEQ

(FLOPPY.TEMP

  (LAMBDA NIL
                                                (* kbr: "20-Apr-86 10:13")

    (PROGN (LOAD (QUOTE EXPORTS.ALL))
           (CONN (QUOTE <LISPCORE>SOURCES>))
           (LOADFROM (QUOTE FLOPPY))
           (LOADFROM (QUOTE DOVEFLOPPYPATCH))
           (LOADFNS (QUOTE \FLOPPY.TRANSFER)
                  (QUOTE DOVEFLOPPYPATCH))
           (DELFILE (QUOTE DOVEFLOPPYPATCH.DCOM;9))
           (RECOMPILE (QUOTE DOVEFLOPPYPATCH))
           (MAKEFILE (QUOTE FLOPPY)
                  (QUOTE (RC F))))))
)
(PUTPROPS FLOPPYTEMP COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (315 865 (FLOPPY.TEMP 325 . 863)))))
STOP