(FILECREATED " 1-Aug-85 12:46:36" ("compiled on " {ERIS}<LISPCORE>PROLOG>CHARTYPE.%;1)
"19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28")
(FILECREATED " 1-Aug-85 12:27:27" {ERIS}<LISPCORE>PROLOG>CHARTYPE.%;1 2495 changes to: (VARS
CHARTYPECOMS) (FNS QP.BOGUS.1))
QP.BOGUS.1 D1
NIL g NIL
(2 NONSENSE)
()
(PRETTYCOMPRINT CHARTYPECOMS)
(RPAQQ CHARTYPECOMS ((VARS QP.CHARTYPE.ARRAY) (MACROS QP.CHARTYPE) (FNS QP.BOGUS.1)))
(RPAQ QP.CHARTYPE.ARRAY (READARRAY 129 (QUOTE POINTER) 0))
(end←of←stream white←space white←space white←space white←space white←space white←space white←space
white←space white←space white←space white←space white←space white←space white←space white←space
white←space white←space white←space white←space white←space white←space white←space white←space
white←space white←space white←space white←space white←space white←space escape white←space white←space
white←space individual←atom double←quote agglutinating agglutinating percent agglutinating
single←quote individual←char individual←char agglutinating agglutinating individual←char agglutinating
agglutinating agglutinating digit digit digit digit digit digit digit digit digit digit agglutinating
individual←atom agglutinating agglutinating agglutinating agglutinating agglutinating capital←letter
capital←letter capital←letter capital←letter capital←letter capital←letter capital←letter
capital←letter capital←letter capital←letter capital←letter capital←letter capital←letter
capital←letter capital←letter capital←letter capital←letter capital←letter capital←letter
capital←letter capital←letter capital←letter capital←letter capital←letter capital←letter
capital←letter individual←char agglutinating individual←char agglutinating underbar agglutinating
small←letter small←letter small←letter small←letter small←letter small←letter small←letter
small←letter small←letter small←letter small←letter small←letter small←letter small←letter
small←letter small←letter small←letter small←letter small←letter small←lett