(FILECREATED " 2-Feb-86 17:11:26" {DSK}<LISPFILES2>CHARTYPE.LSP;2
 7958   

      changes to:  (VARS CHARTYPECOMS))


(* Copyright (c) 1986 by Quintus Computer Systems, Inc. All rights reserved.)

(PRETTYCOMPRINT CHARTYPECOMS)

(RPAQQ CHARTYPECOMS
 ((FNS QP.INIT.CHARTYPE.ARRAY)
		       (VARS (QP.CHARTYPE.ARRAY (QP.INIT.CHARTYPE.ARRAY)))
		       (ADDVARS (GLOBALVARS QP.CHARTYPE.ARRAY))
		       (MACROS QP.CHARTYPE)))
(DEFINEQ

(QP.INIT.CHARTYPE.ARRAY

  (LAMBDA NIL
    (
PROG
 (THE.ARRAY)
	    (
SETQ
 THE.ARRAY (
ARRAY
 129 (
QUOTE
 POINTER)
				       NIL 0))
	    (
SETA
 THE.ARRAY 0 (
QUOTE
 end←of←stream))
	    (
SETA
 THE.ARRAY 1 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 2 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 3 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 4 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 5 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 6 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 7 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 8 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 9 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 10 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 11 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 12 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 13 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 14 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 15 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 16 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 17 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 18 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 19 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 20 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 21 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 22 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 23 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 24 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 25 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 26 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 27 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 28 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 29 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 30 (
QUOTE
 escape))
	    (
SETA
 THE.ARRAY 31 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 32 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 33 (
QUOTE
 white←space))
	    (
SETA
 THE.ARRAY 34 (
QUOTE
 individual←atom))
	    (
SETA
 THE.ARRAY 35 (
QUOTE
 double←quote))
	    (
SETA
 THE.ARRAY 36 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 37 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 38 (
QUOTE
 percent))
	    (
SETA
 THE.ARRAY 39 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 40 (
QUOTE
 single←quote))
	    (
SETA
 THE.ARRAY 41 (
QUOTE
 individual←char))
	    (
SETA
 THE.ARRAY 42 (
QUOTE
 individual←char))
	    (
SETA
 THE.ARRAY 43 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 44 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 45 (
QUOTE
 individual←char))
	    (
SETA
 THE.ARRAY 46 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 47 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 48 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 49 (
QUOTE
 digit))
	    (
SETA
 THE.ARRAY 50 (
QUOTE
 digit))
	    (
SETA
 THE.ARRAY 51 (
QUOTE
 digit))
	    (
SETA
 THE.ARRAY 52 (
QUOTE
 digit))
	    (
SETA
 THE.ARRAY 53 (
QUOTE
 digit))
	    (
SETA
 THE.ARRAY 54 (
QUOTE
 digit))
	    (
SETA
 THE.ARRAY 55 (
QUOTE
 digit))
	    (
SETA
 THE.ARRAY 56 (
QUOTE
 digit))
	    (
SETA
 THE.ARRAY 57 (
QUOTE
 digit))
	    (
SETA
 THE.ARRAY 58 (
QUOTE
 digit))
	    (
SETA
 THE.ARRAY 59 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 60 (
QUOTE
 individual←atom))
	    (
SETA
 THE.ARRAY 61 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 62 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 63 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 64 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 65 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 66 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 67 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 68 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 69 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 70 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 71 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 72 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 73 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 74 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 75 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 76 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 77 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 78 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 79 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 80 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 81 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 82 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 83 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 84 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 85 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 86 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 87 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 88 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 89 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 90 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 91 (
QUOTE
 capital←letter))
	    (
SETA
 THE.ARRAY 92 (
QUOTE
 individual←char))
	    (
SETA
 THE.ARRAY 93 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 94 (
QUOTE
 individual←char))
	    (
SETA
 THE.ARRAY 95 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 96 (
QUOTE
 underbar))
	    (
SETA
 THE.ARRAY 97 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 98 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 99 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 100 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 101 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 102 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 103 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 104 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 105 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 106 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 107 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 108 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 109 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 110 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 111 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 112 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 113 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 114 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 115 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 116 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 117 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 118 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 119 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 120 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 121 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 122 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 123 (
QUOTE
 small←letter))
	    (
SETA
 THE.ARRAY 124 (
QUOTE
 individual←char))
	    (
SETA
 THE.ARRAY 125 (
QUOTE
 individual←char))
	    (
SETA
 THE.ARRAY 126 (
QUOTE
 individual←char))
	    (
SETA
 THE.ARRAY 127 (
QUOTE
 agglutinating))
	    (
SETA
 THE.ARRAY 128 (
QUOTE
 white←space))
	    (
RETURN
 THE.ARRAY))))
)

(RPAQ QP.CHARTYPE.ARRAY
 (QP.INIT.CHARTYPE.ARRAY))

(ADDTOVAR GLOBALVARS
 QP.CHARTYPE.ARRAY)
(DECLARE: EVAL@COMPILE 
(PUTPROPS QP.CHARTYPE MACRO (X (APPLY (FUNCTION (LAMBDA (CHAR)
							(BQUOTE (ELT QP.CHARTYPE.ARRAY
								     (ADD1 (\, CHAR))))))
				      X)))
)
(PUTPROPS CHARTYPE.LSP COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (430 7587 (QP.INIT.CHARTYPE.ARRAY 440 . 7585)))))
STOP