(FILECREATED "10-NOV-83 14:56:45" {PHYLUM}<LISPCORE>SOURCES>TEMP.;1 709    

      changes to:  (VARS TEMPCOMS TBM))


(* Copyright (c) 1983 by Xerox Corporation)

(PRETTYCOMPRINT TEMPCOMS)

(RPAQQ TEMPCOMS ((UGLYVARS TBM)))
(READVARS TBM)
({(READBITMAP)(17 33
"L@@@H@@@"
"F@@AH@@@"
"C@@CH@@@"
"AN@GH@@@"
"@CHCH@@@"
"@@LAH@@@"
"@@D@H@@@"
"@@C@@@@@"
"H@AL@@@@"
"H@@F@@@@"
"H@@AH@@@"
"H@@@@@@@"
"H@@AH@@@"
"H@@G@@@@"
"@@@L@@@@"
"@@AH@@@@"
"@@N@@@@@"
"@GH@@@@@"
"OL@@@@@@"
"L@@@@@@@"
"F@@@H@@@"
"C@@@H@@@"
"AH@@H@@@"
"@L@@H@@@"
"@C@@H@@@"
"@AHAH@@@"
"@@OO@@@@"
"@AK@@@@@"
"@A@L@@@@"
"@B@F@@@@"
"@NBC@@@@"
"CHGAH@@@"
"L@OHH@@@")})
(PUTPROPS TEMP COPYRIGHT ("Xerox Corporation" 1983))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP