(FILECREATED " 8-Feb-86 15:18:53" {DSK}<LISPFILES2>IMPROVEDDCOMS>CHARTYPE.;1
 5352   

      changes to:  (VARS CHARTYPECOMS))


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

(PRETTYCOMPRINT CHARTYPECOMS)

(RPAQQ CHARTYPECOMS
 ((ADDVARS (GLOBALVARS QP.CHARTYPE.BLOCK) (GLOBALVARS QP.CHARTYPE.ARRAY)) (FNS 
QP.INIT.CHARTYPE.ARRAY) (P (QP.INIT.CHARTYPE.ARRAY)) (MACROS QP.CHARTYPE)))

(ADDTOVAR GLOBALVARS
 QP.CHARTYPE.BLOCK)

(ADDTOVAR GLOBALVARS
 QP.CHARTYPE.ARRAY)
(DEFINEQ

(QP.INIT.CHARTYPE.ARRAY

(LAMBDA NIL (LET ((C (ARRAY 129 (QUOTE POINTER) NIL 0))) (SETA C 0 (QUOTE end←of←stream)) (SETA C 1 (
QUOTE white←space)) (SETA C 2 (QUOTE white←space)) (SETA C 3 (QUOTE white←space)) (SETA C 4 (QUOTE 
white←space)) (SETA C 5 (QUOTE white←space)) (SETA C 6 (QUOTE white←space)) (SETA C 7 (QUOTE 
white←space)) (SETA C 8 (QUOTE white←space)) (SETA C 9 (QUOTE white←space)) (SETA C 10 (QUOTE 
white←space)) (SETA C 11 (QUOTE white←space)) (SETA C 12 (QUOTE white←space)) (SETA C 13 (QUOTE 
white←space)) (SETA C 14 (QUOTE white←space)) (SETA C 15 (QUOTE white←space)) (SETA C 16 (QUOTE 
white←space)) (SETA C 17 (QUOTE white←space)) (SETA C 18 (QUOTE white←space)) (SETA C 19 (QUOTE 
white←space)) (SETA C 20 (QUOTE white←space)) (SETA C 21 (QUOTE white←space)) (SETA C 22 (QUOTE 
white←space)) (SETA C 23 (QUOTE white←space)) (SETA C 24 (QUOTE white←space)) (SETA C 25 (QUOTE 
white←space)) (SETA C 26 (QUOTE white←space)) (SETA C 27 (QUOTE white←space)) (SETA C 28 (QUOTE 
white←space)) (SETA C 29 (QUOTE white←space)) (SETA C 30 (QUOTE escape)) (SETA C 31 (QUOTE white←space
)) (SETA C 32 (QUOTE white←space)) (SETA C 33 (QUOTE white←space)) (SETA C 34 (QUOTE individual←atom))
 (SETA C 35 (QUOTE double←quote)) (SETA C 36 (QUOTE agglutinating)) (SETA C 37 (QUOTE agglutinating)) 
(SETA C 38 (QUOTE percent)) (SETA C 39 (QUOTE agglutinating)) (SETA C 40 (QUOTE single←quote)) (SETA C
 41 (QUOTE individual←char)) (SETA C 42 (QUOTE individual←char)) (SETA C 43 (QUOTE agglutinating)) (
SETA C 44 (QUOTE agglutinating)) (SETA C 45 (QUOTE individual←char)) (SETA C 46 (QUOTE agglutinating))
 (SETA C 47 (QUOTE agglutinating)) (SETA C 48 (QUOTE agglutinating)) (SETA C 49 (QUOTE digit)) (SETA C
 50 (QUOTE digit)) (SETA C 51 (QUOTE digit)) (SETA C 52 (QUOTE digit)) (SETA C 53 (QUOTE digit)) (SETA
 C 54 (QUOTE digit)) (SETA C 55 (QUOTE digit)) (SETA C 56 (QUOTE digit)) (SETA C 57 (QUOTE digit)) (
SETA C 58 (QUOTE digit)) (SETA C 59 (QUOTE agglutinating)) (SETA C 60 (QUOTE individual←atom)) (SETA C
 61 (QUOTE agglutinating)) (SETA C 62 (QUOTE agglutinating)) (SETA C 63 (QUOTE agglutinating)) (SETA C
 64 (QUOTE agglutinating)) (SETA C 65 (QUOTE agglutinating)) (SETA C 66 (QUOTE capital←letter)) (SETA 
C 67 (QUOTE capital←letter)) (SETA C 68 (QUOTE capital←letter)) (SETA C 69 (QUOTE capital←letter)) (
SETA C 70 (QUOTE capital←letter)) (SETA C 71 (QUOTE capital←letter)) (SETA C 72 (QUOTE capital←letter)
) (SETA C 73 (QUOTE capital←letter)) (SETA C 74 (QUOTE capital←letter)) (SETA C 75 (QUOTE 
capital←letter)) (SETA C 76 (QUOTE capital←letter)) (SETA C 77 (QUOTE capital←letter)) (SETA C 78 (
QUOTE capital←letter)) (SETA C 79 (QUOTE capital←letter)) (SETA C 80 (QUOTE capital←letter)) (SETA C 
81 (QUOTE capital←letter)) (SETA C 82 (QUOTE capital←letter)) (SETA C 83 (QUOTE capital←letter)) (SETA
 C 84 (QUOTE capital←letter)) (SETA C 85 (QUOTE capital←letter)) (SETA C 86 (QUOTE capital←letter)) (
SETA C 87 (QUOTE capital←letter)) (SETA C 88 (QUOTE capital←letter)) (SETA C 89 (QUOTE capital←letter)
) (SETA C 90 (QUOTE capital←letter)) (SETA C 91 (QUOTE capital←letter)) (SETA C 92 (QUOTE 
individual←char)) (SETA C 93 (QUOTE agglutinating)) (SETA C 94 (QUOTE individual←char)) (SETA C 95 (
QUOTE agglutinating)) (SETA C 96 (QUOTE underbar)) (SETA C 97 (QUOTE agglutinating)) (SETA C 98 (QUOTE
 small←letter)) (SETA C 99 (QUOTE small←letter)) (SETA C 100 (QUOTE small←letter)) (SETA C 101 (QUOTE 
small←letter)) (SETA C 102 (QUOTE small←letter)) (SETA C 103 (QUOTE small←letter)) (SETA C 104 (QUOTE 
small←letter)) (SETA C 105 (QUOTE small←letter)) (SETA C 106 (QUOTE small←letter)) (SETA C 107 (QUOTE 
small←letter)) (SETA C 108 (QUOTE small←letter)) (SETA C 109 (QUOTE small←letter)) (SETA C 110 (QUOTE 
small←letter)) (SETA C 111 (QUOTE small←letter)) (SETA C 112 (QUOTE small←letter)) (SETA C 113 (QUOTE 
small←letter)) (SETA C 114 (QUOTE small←letter)) (SETA C 115 (QUOTE small←letter)) (SETA C 116 (QUOTE 
small←letter)) (SETA C 117 (QUOTE small←letter)) (SETA C 118 (QUOTE small←letter)) (SETA C 119 (QUOTE 
small←letter)) (SETA C 120 (QUOTE small←letter)) (SETA C 121 (QUOTE small←letter)) (SETA C 122 (QUOTE 
small←letter)) (SETA C 123 (QUOTE small←letter)) (SETA C 124 (QUOTE individual←char)) (SETA C 125 (
QUOTE individual←char)) (SETA C 126 (QUOTE individual←char)) (SETA C 127 (QUOTE agglutinating)) (SETA 
C 128 (QUOTE white←space)) (SETQ QP.CHARTYPE.BLOCK (\ADDBASE (fetch (ARRAYP BASE) of C) 2)) (SETQ 
QP.CHARTYPE.ARRAY C))))
)
(QP.INIT.CHARTYPE.ARRAY)
(DECLARE: EVAL@COMPILE 
(PUTPROPS QP.CHARTYPE MACRO (X (APPLY (FUNCTION (LAMBDA (CHAR) (BQUOTE (LET ((NUM (\, CHAR))) (COND ((
IGREATERP NUM 127) (QUOTE small←letter)) (T (\GETBASEPTR QP.CHARTYPE.BLOCK (LLSH NUM 1)))))))) X)))
)
(PUTPROPS CHARTYPE COPYRIGHT ("Quintus Computer Systems, Inc" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (513 5007 (QP.INIT.CHARTYPE.ARRAY 523 . 5005)))))
STOP