(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "11-May-87 16:33:49" {DSK}<LISPFILES>PS>PSCFONT-FIX-FILENAME.\;1
 5877   

      |changes| |to:|  (VARS PSCFONT-FIX-FILENAMECOMS)
                       (FNS PSCFONT-FILENAME-FIX)
                       (FILEVARS PSCFONT-FIX-FILENAMECOMS))


; Copyright (c) 1987 by Beckman Instruments, Inc.  All rights reserved.

(PRETTYCOMPRINT PSCFONT-FIX-FILENAMECOMS)

(RPAQQ PSCFONT-FIX-FILENAMECOMS
 ((FNS PSCFONT-FILENAME-FIX)
                                 (VARS POSTSCRIPT-FONT-FILENAME-FIXLIST)))
(DEFINEQ

(PSCFONT-FILENAME-FIX

  (LAMBDA NIL
                                        (* \; "Edited 11-May-87 15:34 by Matt Heffron")


    (FOR
 D IN
 POSTSCRIPTFONTDIRECTORIES
       DO
 (FOR
 F IN
 POSTSCRIPT-FONT-FILENAME-FIXLIST
             DO
 (LET (FN)
                     (CL:WHEN (SETQ FN (INFILEP (CONCAT D (CAR F))))
                            (PRINTOUT T FN " => " (RENAMEFILE FN (CONCAT D (\\FONTFILENAME
                                                                            (CADR F)
                                                                            1
                                                                            (CADDR F)
                                                                            '.PSCFONT)))
                                   T)))))))
)

(RPAQQ POSTSCRIPT-FONT-FILENAME-FIXLIST
 (("AVANTGARDE-BOOK1" AVANTGARDE-BOOK (MEDIUM REGULAR REGULAR)
                                                )
                                         ("AVANTGARDE-BOOK1I" AVANTGARDE-BOOK (MEDIUM ITALIC REGULAR)
                                                )
                                         ("AVANTGARDE-DEMI1" AVANTGARDE-DEMI (MEDIUM REGULAR REGULAR)
                                                )
                                         ("AVANTGARDE-DEMI1I" AVANTGARDE-DEMI (MEDIUM ITALIC REGULAR)
                                                )
                                         ("BOOKMAN-DEMI1" BOOKMAN-DEMI (MEDIUM REGULAR REGULAR))
                                         ("BOOKMAN-DEMI1I" BOOKMAN-DEMI (MEDIUM ITALIC REGULAR))
                                         ("BOOKMAN-LIGHT1" BOOKMAN-LIGHT (MEDIUM REGULAR REGULAR))
                                         ("BOOKMAN-LIGHT1I" BOOKMAN-LIGHT (MEDIUM ITALIC REGULAR))
                                         ("COURIER1" COURIER (MEDIUM REGULAR REGULAR))
                                         ("COURIER1B" COURIER (BOLD REGULAR REGULAR))
                                         ("COURIER1BI" COURIER (BOLD ITALIC REGULAR))
                                         ("COURIER1I" COURIER (MEDIUM ITALIC REGULAR))
                                         ("HELVETICA-NARROW1" HELVETICA-NARROW (MEDIUM REGULAR 
                                                                                      REGULAR))
                                         ("HELVETICA-NARROW1B" HELVETICA-NARROW (BOLD REGULAR REGULAR
                                                                                      ))
                                         ("HELVETICA-NARROW1BI" HELVETICA-NARROW (BOLD ITALIC REGULAR
                                                                                       ))
                                         ("HELVETICA-NARROW1I" HELVETICA-NARROW (MEDIUM ITALIC 
                                                                                       REGULAR))
                                         ("HELVETICA1" HELVETICA (MEDIUM REGULAR REGULAR))
                                         ("HELVETICA1B" HELVETICA (BOLD REGULAR REGULAR))
                                         ("HELVETICA1BI" HELVETICA (BOLD ITALIC REGULAR))
                                         ("HELVETICA1I" HELVETICA (MEDIUM ITALIC REGULAR))
                                         ("NEWCENTURYSCHLBK1" NEWCENTURYSCHLBK (MEDIUM REGULAR 
                                                                                      REGULAR))
                                         ("NEWCENTURYSCHLBK1B" NEWCENTURYSCHLBK (BOLD REGULAR REGULAR
                                                                                      ))
                                         ("NEWCENTURYSCHLBK1BI" NEWCENTURYSCHLBK (BOLD ITALIC REGULAR
                                                                                       ))
                                         ("NEWCENTURYSCHLBK1I" NEWCENTURYSCHLBK (MEDIUM ITALIC 
                                                                                       REGULAR))
                                         ("PALATINO1" PALATINO (MEDIUM REGULAR REGULAR))
                                         ("PALATINO1B" PALATINO (BOLD REGULAR REGULAR))
                                         ("PALATINO1BI" PALATINO (BOLD ITALIC REGULAR))
                                         ("PALATINO1I" PALATINO (MEDIUM ITALIC REGULAR))
                                         ("SYMBOL1" SYMBOL (MEDIUM REGULAR REGULAR))
                                         ("TIMES1" TIMES (MEDIUM REGULAR REGULAR))
                                         ("TIMES1B" TIMES (BOLD REGULAR REGULAR))
                                         ("TIMES1BI" TIMES (BOLD ITALIC REGULAR))
                                         ("TIMES1I" TIMES (MEDIUM ITALIC REGULAR))
                                         ("ZAPFCHANCERY-MEDIUM1I" ZAPFCHANCERY-MEDIUM
                                                (MEDIUM REGULAR REGULAR))
                                         ("ZAPFCHANCERY1I" ZAPFCHANCERY (MEDIUM ITALIC REGULAR))
                                         ("ZAPFDINGBATS1" ZAPFDINGBATS (MEDIUM REGULAR REGULAR))))
(PUTPROPS PSCFONT-FIX-FILENAME COPYRIGHT ("Beckman Instruments, Inc" 1987))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (572 1404 (PSCFONT-FILENAME-FIX 582 . 1402)))))
STOP