I am so sorry; I hope that attaching a PBC file as "text/plain"
didn't hose anyone's mail reader. (I shudder to think what would have
happened in the glass TTY era.) Here's the actual PIR file attachment.
-- Bob
.sub "file_onload"
## Build constants vector.
.local pmc constants
constants = new "Hash"
set_hll_global ["COMMON-LISP::file_constants::reader.lisp"],
"constants", constants
## constant 1: *READ-DEFAULT-FLOAT-FORMAT*
$P41 = new "String"
$P41 = "*READ-DEFAULT-FLOAT-FORMAT*"
$P43 = get_hll_global ["COMMON-LISP"], "_package_or_lose"
$P44 = new "String"
$P44 = "COMMON-LISP"
$P42 = $P43($P44)
$P45 = get_hll_global ["COMMON-LISP"], "_intern"
$P40 = $P45($P41, $P42)
constants[1] = $P40
## constant 2: NIL
$P47 = new "String"
$P47 = "NIL"
$P46 = $P45($P47, $P42)
constants[2] = $P46
## constant 3: T
$P49 = new "String"
$P49 = "T"
$P48 = $P45($P49, $P42)
constants[3] = $P48
## constant 4: SINGLE-FLOAT
$P51 = new "String"
$P51 = "SINGLE-FLOAT"
$P50 = $P45($P51, $P42)
constants[4] = $P50
## constant 5: STD-LISP-READTABLE
$P53 = new "String"
$P53 = "STD-LISP-READTABLE"
$P52 = $P45($P53, $P42)
constants[5] = $P52
## constant 6: WHITESPACE
$P55 = new "String"
$P55 = "WHITESPACE"
$P54 = $P45($P55, $P42)
constants[6] = $P54
## constant 7: TERMINATING-MACRO
$P57 = new "String"
$P57 = "TERMINATING-MACRO"
$P56 = $P45($P57, $P42)
constants[7] = $P56
## constant 8: ESCAPE
$P59 = new "String"
$P59 = "ESCAPE"
$P58 = $P45($P59, $P42)
constants[8] = $P58
## constant 9: CONSTITUENT
$P61 = new "String"
$P61 = "CONSTITUENT"
$P60 = $P45($P61, $P42)
constants[9] = $P60
## constant 10: CONSTITUENT-DOT
$P63 = new "String"
$P63 = "CONSTITUENT-DOT"
$P62 = $P45($P63, $P42)
constants[10] = $P62
## constant 11: CONSTITUENT-EXPT
$P65 = new "String"
$P65 = "CONSTITUENT-EXPT"
$P64 = $P45($P65, $P42)
constants[11] = $P64
## constant 12: CONSTITUENT-SLASH
$P67 = new "String"
$P67 = "CONSTITUENT-SLASH"
$P66 = $P45($P67, $P42)
constants[12] = $P66
## constant 13: CONSTITUENT-DIGIT
$P69 = new "String"
$P69 = "CONSTITUENT-DIGIT"
$P68 = $P45($P69, $P42)
constants[13] = $P68
## constant 14: CONSTITUENT-SIGN
$P71 = new "String"
$P71 = "CONSTITUENT-SIGN"
$P70 = $P45($P71, $P42)
constants[14] = $P70
## constant 15: MULTIPLE-ESCAPE
$P73 = new "String"
$P73 = "MULTIPLE-ESCAPE"
$P72 = $P45($P73, $P42)
constants[15] = $P72
## constant 16: PACKAGE-DELIMITER
$P75 = new "String"
$P75 = "PACKAGE-DELIMITER"
$P74 = $P45($P75, $P42)
constants[16] = $P74
## constant 17: DELIMITER
$P77 = new "String"
$P77 = "DELIMITER"
$P76 = $P45($P77, $P42)
constants[17] = $P76
## constant 18: CONSTITUENT-DECIMAL-DIGIT
$P79 = new "String"
$P79 = "CONSTITUENT-DECIMAL-DIGIT"
$P78 = $P45($P79, $P42)
constants[18] = $P78
## constant 19: CONSTITUENT-DIGIT-OR-EXPT
$P81 = new "String"
$P81 = "CONSTITUENT-DIGIT-OR-EXPT"
$P80 = $P45($P81, $P42)
constants[19] = $P80
## constant 20: CONSTITUENT-INVALID
$P83 = new "String"
$P83 = "CONSTITUENT-INVALID"
$P82 = $P45($P83, $P42)
constants[20] = $P82
## constant 21: *OLD-PACKAGE*
$P85 = new "String"
$P85 = "*OLD-PACKAGE*"
$P84 = $P45($P85, $P42)
constants[21] = $P84
## constant 22: GET-CAT-ENTRY
$P87 = new "String"
$P87 = "GET-CAT-ENTRY"
$P86 = $P45($P87, $P42)
constants[22] = $P86
## constant 23: (#:|fdefn for| . KERNEL::%DEFMACRO)
$P89 = get_hll_global ["COMMON-LISP"], "_fdefinition_object"
$P91 = new "String"
$P91 = "%DEFMACRO"
$P93 = new "String"
$P93 = "KERNEL"
$P92 = $P43($P93)
$P90 = $P45($P91, $P92)
$P88 = $P89($P90, $P48)
constants[23] = $P88
## constant 24: (#:|fdefn for| . CDR)
$P96 = new "String"
$P96 = "CDR"
$P95 = $P45($P96, $P42)
$P94 = $P89($P95, $P48)
constants[24] = $P94
## constant 25: (#:|fdefn for| . LIST-LENGTH-BOUNDED-P)
$P99 = new "String"
$P99 = "LIST-LENGTH-BOUNDED-P"
$P98 = $P45($P99, $P42)
$P97 = $P89($P98, $P48)
constants[25] = $P97
## constant 26: DEFMACRO
$P101 = new "String"
$P101 = "DEFMACRO"
$P100 = $P45($P101, $P42)
constants[26] = $P100
## constant 27: (CHAR RT)
$P104 = get_hll_global ["COMMON-LISP"], "_coerce_to_function"
$P106 = new "String"
$P106 = "CONS"
$P105 = $P45($P106, $P42)
$P103 = $P104($P105)
$P108 = new "String"
$P108 = "CHAR"
$P107 = $P45($P108, $P42)
$P111 = new "String"
$P111 = "RT"
$P110 = $P45($P111, $P42)
$P109 = $P103($P110, $P46)
$P102 = $P103($P107, $P109)
constants[27] = $P102
## constant 28: (#:|fdefn for| . DO-ARG-COUNT-ERROR)
$P114 = new "String"
$P114 = "DO-ARG-COUNT-ERROR"
$P113 = $P45($P114, $P42)
$P112 = $P89($P113, $P48)
constants[28] = $P112
## constant 29: (#:|fdefn for| . CAR)
$P117 = new "String"
$P117 = "CAR"
$P116 = $P45($P117, $P42)
$P115 = $P89($P116, $P48)
constants[29] = $P115
## constant 30: ELT
$P119 = new "String"
$P119 = "ELT"
$P118 = $P45($P119, $P42)
constants[30] = $P118
## constant 31: CHARACTER-ATTRIBUTE-TABLE
$P121 = new "String"
$P121 = "CHARACTER-ATTRIBUTE-TABLE"
$P120 = $P45($P121, $P42)
constants[31] = $P120
## constant 32: (#:|fdefn for| . BACKQ-LIST)
$P124 = new "String"
$P124 = "BACKQ-LIST"
$P123 = $P45($P124, $P42)
$P122 = $P89($P123, $P48)
constants[32] = $P122
## constant 33: CHAR-CODE
$P126 = new "String"
$P126 = "CHAR-CODE"
$P125 = $P45($P126, $P42)
constants[33] = $P125
## constant 34: *READTABLE*
$P128 = new "String"
$P128 = "*READTABLE*"
$P127 = $P45($P128, $P42)
constants[34] = $P127
## constant 35: (#:|fdefn for| . CHARACTER-ATTRIBUTE-TABLE)
$P129 = $P89($P120, $P48)
constants[35] = $P129
## constant 36: (#:|fdefn for| . %SETELT)
$P132 = new "String"
$P132 = "%SETELT"
$P131 = $P45($P132, $P42)
$P130 = $P89($P131, $P48)
constants[36] = $P130
## constant 37: GET-CMT-ENTRY
$P134 = new "String"
$P134 = "GET-CMT-ENTRY"
$P133 = $P45($P134, $P42)
constants[37] = $P133
## constant 38: THE
$P136 = new "String"
$P136 = "THE"
$P135 = $P45($P136, $P42)
constants[38] = $P135
## constant 39: FUNCTION
$P138 = new "String"
$P138 = "FUNCTION"
$P137 = $P45($P138, $P42)
constants[39] = $P137
## constant 40: SIMPLE-VECTOR
$P140 = new "String"
$P140 = "SIMPLE-VECTOR"
$P139 = $P45($P140, $P42)
constants[40] = $P139
## constant 41: CHARACTER-MACRO-TABLE
$P142 = new "String"
$P142 = "CHARACTER-MACRO-TABLE"
$P141 = $P45($P142, $P42)
constants[41] = $P141
## constant 42: (#:|fdefn for| . CHARACTER-MACRO-TABLE)
$P143 = $P89($P141, $P48)
constants[42] = $P143
## constant 43: *READ-SUPPRESS*
$P145 = new "String"
$P145 = "*READ-SUPPRESS*"
$P144 = $P45($P145, $P42)
constants[43] = $P144
## constant 44: "Undefined read-macro character ~S"
$P146 = new "String"
$P146 = "Undefined read-macro character ~S"
constants[44] = $P146
## constant 45: (#:|fdefn for| . %READER-ERROR)
$P149 = new "String"
$P149 = "%READER-ERROR"
$P148 = $P45($P149, $P42)
$P147 = $P89($P148, $P48)
constants[45] = $P147
## constant 46: TEST-ATTRIBUTE
$P151 = new "String"
$P151 = "TEST-ATTRIBUTE"
$P150 = $P45($P151, $P42)
constants[46] = $P150
## constant 47: (CHAR WHICHCLASS RT)
$P155 = new "String"
$P155 = "WHICHCLASS"
$P154 = $P45($P155, $P42)
$P153 = $P103($P154, $P109)
$P152 = $P103($P107, $P153)
constants[47] = $P152
## constant 48: =
$P157 = new "String"
$P157 = "="
$P156 = $P45($P157, $P42)
constants[48] = $P156
## constant 49: FIXNUM
$P159 = new "String"
$P159 = "FIXNUM"
$P158 = $P45($P159, $P42)
constants[49] = $P158
## constant 50: (#:|fdefn for| . ELT)
$P160 = $P89($P118, $P48)
constants[50] = $P160
## constant 51: CONSTITUENTP
$P162 = new "String"
$P162 = "CONSTITUENTP"
$P161 = $P45($P162, $P42)
constants[51] = $P161
## constant 52: (CHAR &OPTIONAL (RT #))
$P166 = new "String"
$P166 = "&OPTIONAL"
$P165 = $P45($P166, $P42)
$P172 = new "String"
$P172 = "QUOTE"
$P171 = $P45($P172, $P42)
$P173 = $P103($P127, $P46)
$P170 = $P103($P171, $P173)
$P169 = $P103($P170, $P46)
$P168 = $P103($P110, $P169)
$P167 = $P103($P168, $P46)
$P164 = $P103($P165, $P167)
$P163 = $P103($P107, $P164)
constants[52] = $P163
## constant 53: TERMINATING-MACROP
$P175 = new "String"
$P175 = "TERMINATING-MACROP"
$P174 = $P45($P175, $P42)
constants[53] = $P174
## constant 54: ESCAPEP
$P177 = new "String"
$P177 = "ESCAPEP"
$P176 = $P45($P177, $P42)
constants[54] = $P176
## constant 55: MULTIPLE-ESCAPE-P
$P179 = new "String"
$P179 = "MULTIPLE-ESCAPE-P"
$P178 = $P45($P179, $P42)
constants[55] = $P178
## constant 56: TOKEN-DELIMITERP
$P181 = new "String"
$P181 = "TOKEN-DELIMITERP"
$P180 = $P45($P181, $P42)
constants[56] = $P180
## constant 57: <=
$P183 = new "String"
$P183 = "<="
$P182 = $P45($P183, $P42)
constants[57] = $P182
## constant 58: (1)
$P185 = new "Undef"
$P185 = 1
$P184 = $P103($P185, $P46)
constants[58] = $P184
## constant 59: (#:|fdefn for| . BACKQ-LIST*)
$P188 = new "String"
$P188 = "BACKQ-LIST*"
$P187 = $P45($P188, $P42)
$P186 = $P89($P187, $P48)
constants[59] = $P186
## constant 60: SECONDARY-ATTRIBUTE-TABLE
$P190 = new "String"
$P190 = "SECONDARY-ATTRIBUTE-TABLE"
$P189 = $P45($P190, $P42)
constants[60] = $P189
## constant 61: CHAR-CODE-LIMIT
$P192 = new "String"
$P192 = "CHAR-CODE-LIMIT"
$P191 = $P45($P192, $P42)
constants[61] = $P191
## constant 62: :ELEMENT-TYPE
$P194 = new "String"
$P194 = "ELEMENT-TYPE"
$P196 = new "String"
$P196 = "KEYWORD"
$P195 = $P43($P196)
$P193 = $P45($P194, $P195)
constants[62] = $P193
## constant 63: (UNSIGNED-BYTE 8)
$P199 = new "String"
$P199 = "UNSIGNED-BYTE"
$P198 = $P45($P199, $P42)
$P201 = new "Undef"
$P201 = 8
$P200 = $P103($P201, $P46)
$P197 = $P103($P198, $P200)
constants[63] = $P197
## constant 64: :INITIAL-ELEMENT
$P203 = new "String"
$P203 = "INITIAL-ELEMENT"
$P202 = $P45($P203, $P195)
constants[64] = $P202
## constant 65: (#:|fdefn for| . MAKE-ARRAY)
$P206 = new "String"
$P206 = "MAKE-ARRAY"
$P205 = $P45($P206, $P42)
$P204 = $P89($P205, $P48)
constants[65] = $P204
## constant 66: #\:
$P207 = new "Character"
$P207 = 58
constants[66] = $P207
## constant 67: (#:|fdefn for| . SET-SECONDARY-ATTRIBUTE)
$P210 = new "String"
$P210 = "SET-SECONDARY-ATTRIBUTE"
$P209 = $P45($P210, $P42)
$P208 = $P89($P209, $P48)
constants[67] = $P208
## constant 68: #\.
$P211 = new "Character"
$P211 = 46
constants[68] = $P211
## constant 69: #\+
$P212 = new "Character"
$P212 = 43
constants[69] = $P212
## constant 70: #\-
$P213 = new "Character"
$P213 = 45
constants[70] = $P213
## constant 71: #\/
$P214 = new "Character"
$P214 = 47
constants[71] = $P214
## constant 72: #\0
$P215 = new "Character"
$P215 = 48
constants[72] = $P215
## constant 73: (#:|fdefn for| . 1+)
$P218 = new "String"
$P218 = "1+"
$P217 = $P45($P218, $P42)
$P216 = $P89($P217, $P48)
constants[73] = $P216
## constant 74: #\9
$P219 = new "Character"
$P219 = 57
constants[74] = $P219
## constant 75: #\E
$P220 = new "Character"
$P220 = 69
constants[75] = $P220
## constant 76: #\F
$P221 = new "Character"
$P221 = 70
constants[76] = $P221
## constant 77: #\D
$P222 = new "Character"
$P222 = 68
constants[77] = $P222
## constant 78: #\S
$P223 = new "Character"
$P223 = 83
constants[78] = $P223
## constant 79: #\L
$P224 = new "Character"
$P224 = 76
constants[79] = $P224
## constant 80: #\e
$P225 = new "Character"
$P225 = 101
constants[80] = $P225
## constant 81: #\f
$P226 = new "Character"
$P226 = 102
constants[81] = $P226
## constant 82: #\d
$P227 = new "Character"
$P227 = 100
constants[82] = $P227
## constant 83: #\s
$P228 = new "Character"
$P228 = 115
constants[83] = $P228
## constant 84: #\l
$P229 = new "Character"
$P229 = 108
constants[84] = $P229
## constant 85: #\
$P230 = new "Character"
$P230 = 32
constants[85] = $P230
## constant 86: #\Newline
$P231 = new "Character"
$P231 = 10
constants[86] = $P231
## constant 87: (#\Backspace #\Tab #\Page #\Return #\Rubout)
$P233 = new "Character"
$P233 = 8
$P235 = new "Character"
$P235 = 9
$P237 = new "Character"
$P237 = 12
$P239 = new "Character"
$P239 = 13
$P241 = new "Character"
$P241 = 127
$P240 = $P103($P241, $P46)
$P238 = $P103($P239, $P240)
$P236 = $P103($P237, $P238)
$P234 = $P103($P235, $P236)
$P232 = $P103($P233, $P234)
constants[87] = $P232
## constant 88: (#:|fdefn for| . ENDP)
$P244 = new "String"
$P244 = "ENDP"
$P243 = $P45($P244, $P42)
$P242 = $P89($P243, $P48)
constants[88] = $P242
## constant 89: GET-SECONDARY-ATTRIBUTE
$P246 = new "String"
$P246 = "GET-SECONDARY-ATTRIBUTE"
$P245 = $P45($P246, $P42)
constants[89] = $P245
## constant 90: (CHAR)
$P247 = $P103($P107, $P46)
constants[90] = $P247
## constant 91: (#:|fdefn for| . SET-CAT-ENTRY)
$P250 = new "String"
$P250 = "SET-CAT-ENTRY"
$P249 = $P45($P250, $P42)
$P248 = $P89($P249, $P48)
constants[91] = $P248
## constant 92: (#:|fdefn for| . SET-CMT-ENTRY)
$P253 = new "String"
$P253 = "SET-CMT-ENTRY"
$P252 = $P45($P253, $P42)
$P251 = $P89($P252, $P48)
constants[92] = $P251
## constant 93: (*EOF*)
$P256 = new "String"
$P256 = "*EOF*"
$P255 = $P45($P256, $P42)
$P254 = $P103($P255, $P46)
constants[93] = $P254
## constant 94: EOF-OBJECT
$P258 = new "String"
$P258 = "EOF-OBJECT"
$P257 = $P45($P258, $P42)
constants[94] = $P257
## constant 95: EOFP
$P260 = new "String"
$P260 = "EOFP"
$P259 = $P45($P260, $P42)
constants[95] = $P259
## constant 96: EQ
$P262 = new "String"
$P262 = "EQ"
$P261 = $P45($P262, $P42)
constants[96] = $P261
## constant 97: (EOF-OBJECT)
$P263 = $P103($P257, $P46)
constants[97] = $P263
## constant 98: (#:|fdefn for| . IN-SYNONYM-OF)
$P266 = new "String"
$P266 = "IN-SYNONYM-OF"
$P265 = $P45($P266, $P42)
$P264 = $P89($P265, $P48)
constants[98] = $P264
## constant 99: (#:|fdefn for| . READ-CHAR)
$P269 = new "String"
$P269 = "READ-CHAR"
$P268 = $P45($P269, $P42)
$P267 = $P89($P268, $P48)
constants[99] = $P267
## constant 100: (#:|fdefn for| . AREF)
$P272 = new "String"
$P272 = "AREF"
$P271 = $P45($P272, $P42)
$P270 = $P89($P271, $P48)
constants[100] = $P270
## constant 101: (#:|fdefn for| . MAKE-READTABLE)
$P275 = new "String"
$P275 = "MAKE-READTABLE"
$P274 = $P45($P275, $P42)
$P273 = $P89($P274, $P48)
constants[101] = $P273
## constant 102: (#:|fdefn for| . SET)
$P278 = new "String"
$P278 = "SET"
$P277 = $P45($P278, $P42)
$P276 = $P89($P277, $P48)
constants[102] = $P276
## constant 103: #\Tab
constants[103] = $P235
## constant 104: #\Page
constants[104] = $P237
## constant 105: #\Return
constants[105] = $P239
## constant 106: #\\
$P279 = new "Character"
$P279 = 92
constants[106] = $P279
## constant 107: #\|
$P280 = new "Character"
$P280 = 124
constants[107] = $P280
## constant 108: (#:|fdefn for| . READ-TOKEN)
$P283 = new "String"
$P283 = "READ-TOKEN"
$P282 = $P45($P283, $P42)
$P281 = $P89($P282, $P48)
constants[108] = $P281
## constant 109: #\"
$P284 = new "Character"
$P284 = 34
constants[109] = $P284
## constant 110: (#:|fdefn for| . READ-STRING)
$P287 = new "String"
$P287 = "READ-STRING"
$P286 = $P45($P287, $P42)
$P285 = $P89($P286, $P48)
constants[110] = $P285
## constant 111: (#:|fdefn for| . SET-MACRO-CHARACTER)
$P290 = new "String"
$P290 = "SET-MACRO-CHARACTER"
$P289 = $P45($P290, $P42)
$P288 = $P89($P289, $P48)
constants[111] = $P288
## constant 112: #\'
$P291 = new "Character"
$P291 = 39
constants[112] = $P291
## constant 113: (#:|fdefn for| . READ-QUOTE)
$P294 = new "String"
$P294 = "READ-QUOTE"
$P293 = $P45($P294, $P42)
$P292 = $P89($P293, $P48)
constants[113] = $P292
## constant 114: #\(
$P295 = new "Character"
$P295 = 40
constants[114] = $P295
## constant 115: (#:|fdefn for| . READ-LIST)
$P298 = new "String"
$P298 = "READ-LIST"
$P297 = $P45($P298, $P42)
$P296 = $P89($P297, $P48)
constants[115] = $P296
## constant 116: #\)
$P299 = new "Character"
$P299 = 41
constants[116] = $P299
## constant 117: (#:|fdefn for| . READ-RIGHT-PAREN)
$P302 = new "String"
$P302 = "READ-RIGHT-PAREN"
$P301 = $P45($P302, $P42)
$P300 = $P89($P301, $P48)
constants[117] = $P300
## constant 118: #\;
$P303 = new "Character"
$P303 = 59
constants[118] = $P303
## constant 119: (#:|fdefn for| . READ-COMMENT)
$P306 = new "String"
$P306 = "READ-COMMENT"
$P305 = $P45($P306, $P42)
$P304 = $P89($P305, $P48)
constants[119] = $P304
## constant 120: WITH-READ-BUFFER
$P308 = new "String"
$P308 = "WITH-READ-BUFFER"
$P307 = $P45($P308, $P42)
constants[120] = $P307
## constant 121: "Bind *read-buffer* to a fresh buffer and ...
$P309 = new "String"
$P309 = "Bind *read-buffer* to a fresh buffer and execute Body."
constants[121] = $P309
## constant 122: (#:|fdefn for| . LISTP)
$P312 = new "String"
$P312 = "LISTP"
$P311 = $P45($P312, $P42)
$P310 = $P89($P311, $P48)
constants[122] = $P310
## constant 123: PARROT::DEFMACRO-BOGUS-SUBLIST-ERROR
$P314 = new "String"
$P314 = "DEFMACRO-BOGUS-SUBLIST-ERROR"
$P316 = new "String"
$P316 = "PARROT"
$P315 = $P43($P316)
$P313 = $P45($P314, $P315)
constants[123] = $P313
## constant 124: :KIND
$P318 = new "String"
$P318 = "KIND"
$P317 = $P45($P318, $P195)
constants[124] = $P317
## constant 125: :NAME
$P320 = new "String"
$P320 = "NAME"
$P319 = $P45($P320, $P195)
constants[125] = $P319
## constant 126: :OBJECT
$P322 = new "String"
$P322 = "OBJECT"
$P321 = $P45($P322, $P195)
constants[126] = $P321
## constant 127: :LAMBDA-LIST
$P324 = new "String"
$P324 = "LAMBDA-LIST"
$P323 = $P45($P324, $P195)
constants[127] = $P323
## constant 128: (#:|fdefn for| . ERROR)
$P327 = new "String"
$P327 = "ERROR"
$P326 = $P45($P327, $P42)
$P325 = $P89($P326, $P48)
constants[128] = $P325
## constant 129: (NIL &BODY BODY)
$P331 = new "String"
$P331 = "&BODY"
$P330 = $P45($P331, $P42)
$P334 = new "String"
$P334 = "BODY"
$P333 = $P45($P334, $P42)
$P332 = $P103($P333, $P46)
$P329 = $P103($P330, $P332)
$P328 = $P103($P46, $P329)
constants[129] = $P328
## constant 130: LET*
$P336 = new "String"
$P336 = "LET*"
$P335 = $P45($P336, $P42)
constants[130] = $P335
## constant 131: ((*READ-BUFFER* #) (*READ-BUFFER-LENGTH* #...
$P340 = new "String"
$P340 = "*READ-BUFFER*"
$P339 = $P45($P340, $P42)
$P344 = new "String"
$P344 = "MAKE-STRING"
$P343 = $P45($P344, $P42)
$P346 = new "Undef"
$P346 = 32
$P345 = $P103($P346, $P46)
$P342 = $P103($P343, $P345)
$P341 = $P103($P342, $P46)
$P338 = $P103($P339, $P341)
$P350 = new "String"
$P350 = "*READ-BUFFER-LENGTH*"
$P349 = $P45($P350, $P42)
$P354 = new "String"
$P354 = "LENGTH"
$P353 = $P45($P354, $P42)
$P355 = $P103($P339, $P46)
$P352 = $P103($P353, $P355)
$P351 = $P103($P352, $P46)
$P348 = $P103($P349, $P351)
$P359 = new "String"
$P359 = "*OUCH-PTR*"
$P358 = $P45($P359, $P42)
$P361 = new "Undef"
$P361 = 0
$P360 = $P103($P361, $P46)
$P357 = $P103($P358, $P360)
$P365 = new "String"
$P365 = "*INCH-PTR*"
$P364 = $P45($P365, $P42)
$P363 = $P103($P364, $P360)
$P362 = $P103($P363, $P46)
$P356 = $P103($P357, $P362)
$P347 = $P103($P348, $P356)
$P337 = $P103($P338, $P347)
constants[131] = $P337
## constant 132: RESET-READ-BUFFER
$P367 = new "String"
$P367 = "RESET-READ-BUFFER"
$P366 = $P45($P367, $P42)
constants[132] = $P366
## constant 133: (PROGN (SETQ *OUCH-PTR* 0) (SETQ *INCH-PTR...
$P370 = new "String"
$P370 = "PROGN"
$P369 = $P45($P370, $P42)
$P374 = new "String"
$P374 = "SETQ"
$P373 = $P45($P374, $P42)
$P372 = $P103($P373, $P357)
$P376 = $P103($P373, $P363)
$P375 = $P103($P376, $P46)
$P371 = $P103($P372, $P375)
$P368 = $P103($P369, $P371)
constants[133] = $P368
## constant 134: OUCH-READ-BUFFER
$P378 = new "String"
$P378 = "OUCH-READ-BUFFER"
$P377 = $P45($P378, $P42)
constants[134] = $P377
## constant 135: PROGN
constants[135] = $P369
## constant 136: (IF (>= # #) (GROW-READ-BUFFER))
$P381 = new "String"
$P381 = "IF"
$P380 = $P45($P381, $P42)
$P385 = new "String"
$P385 = ">="
$P384 = $P45($P385, $P42)
$P389 = $P103($P358, $P46)
$P388 = $P103($P158, $P389)
$P387 = $P103($P135, $P388)
$P393 = $P103($P349, $P46)
$P392 = $P103($P158, $P393)
$P391 = $P103($P135, $P392)
$P390 = $P103($P391, $P46)
$P386 = $P103($P387, $P390)
$P383 = $P103($P384, $P386)
$P397 = new "String"
$P397 = "GROW-READ-BUFFER"
$P396 = $P45($P397, $P42)
$P395 = $P103($P396, $P46)
$P394 = $P103($P395, $P46)
$P382 = $P103($P383, $P394)
$P379 = $P103($P380, $P382)
constants[136] = $P379
## constant 137: SETF
$P399 = new "String"
$P399 = "SETF"
$P398 = $P45($P399, $P42)
constants[137] = $P398
## constant 138: (ELT (THE SIMPLE-STRING *READ-BUFFER*) *OU...
$P405 = new "String"
$P405 = "SIMPLE-STRING"
$P404 = $P45($P405, $P42)
$P403 = $P103($P404, $P355)
$P402 = $P103($P135, $P403)
$P401 = $P103($P402, $P389)
$P400 = $P103($P118, $P401)
constants[138] = $P400
## constant 139: ((SETQ *OUCH-PTR* #))
$P410 = $P103($P217, $P389)
$P409 = $P103($P410, $P46)
$P408 = $P103($P358, $P409)
$P407 = $P103($P373, $P408)
$P406 = $P103($P407, $P46)
constants[139] = $P406
## constant 140: OUCH-UNREAD-BUFFER
$P412 = new "String"
$P412 = "OUCH-UNREAD-BUFFER"
$P411 = $P45($P412, $P42)
constants[140] = $P411
## constant 141: (IF (> # #) (SETQ *OUCH-PTR* #))
$P417 = new "String"
$P417 = ">"
$P416 = $P45($P417, $P42)
$P422 = $P103($P364, $P46)
$P421 = $P103($P158, $P422)
$P420 = $P103($P135, $P421)
$P419 = $P103($P420, $P46)
$P418 = $P103($P387, $P419)
$P415 = $P103($P416, $P418)
$P429 = new "String"
$P429 = "1-"
$P428 = $P45($P429, $P42)
$P430 = $P103($P387, $P46)
$P427 = $P103($P428, $P430)
$P426 = $P103($P427, $P46)
$P425 = $P103($P358, $P426)
$P424 = $P103($P373, $P425)
$P423 = $P103($P424, $P46)
$P414 = $P103($P415, $P423)
$P413 = $P103($P380, $P414)
constants[141] = $P413
## constant 142: *READ-BUFFER*
constants[142] = $P339
## constant 143: (#:|fdefn for| . LENGTH)
$P431 = $P89($P353, $P48)
constants[143] = $P431
## constant 144: SIMPLE-STRING
constants[144] = $P404
## constant 145: (#:|fdefn for| . CONCATENATE)
$P434 = new "String"
$P434 = "CONCATENATE"
$P433 = $P45($P434, $P42)
$P432 = $P89($P433, $P48)
constants[145] = $P432
## constant 146: *READ-BUFFER-LENGTH*
constants[146] = $P349
## constant 147: *INCH-PTR*
constants[147] = $P364
## constant 148: *OUCH-PTR*
constants[148] = $P358
## constant 149: UNREAD-BUFFER
$P436 = new "String"
$P436 = "UNREAD-BUFFER"
$P435 = $P45($P436, $P42)
constants[149] = $P435
## constant 150: (DECF (THE FIXNUM *INCH-PTR*))
$P439 = new "String"
$P439 = "DECF"
$P438 = $P45($P439, $P42)
$P437 = $P103($P438, $P419)
constants[150] = $P437
## constant 151: (#:|fdefn for| . SUBSEQ)
$P442 = new "String"
$P442 = "SUBSEQ"
$P441 = $P45($P442, $P42)
$P440 = $P89($P441, $P48)
constants[151] = $P440
## constant 152: *IGNORE-EXTRA-CLOSE-PARENTHESES*
$P444 = new "String"
$P444 = "*IGNORE-EXTRA-CLOSE-PARENTHESES*"
$P443 = $P45($P444, $P42)
constants[152] = $P443
## constant 153: *SHARP-EQUAL-ALIST*
$P446 = new "String"
$P446 = "*SHARP-EQUAL-ALIST*"
$P445 = $P45($P446, $P42)
constants[153] = $P445
## constant 154: *STANDARD-INPUT*
$P448 = new "String"
$P448 = "*STANDARD-INPUT*"
$P447 = $P45($P448, $P42)
constants[154] = $P447
## constant 155: (#:|fdefn for| . READ-PRESERVING-WHITESPAC...
$P451 = new "String"
$P451 = "READ-PRESERVING-WHITESPACE-INTERNAL"
$P450 = $P45($P451, $P42)
$P449 = $P89($P450, $P48)
constants[155] = $P449
## constant 156: (#:|fdefn for| . WHITESPACEP)
$P454 = new "String"
$P454 = "WHITESPACEP"
$P453 = $P45($P454, $P42)
$P452 = $P89($P453, $P48)
constants[156] = $P452
## constant 157: (#:|fdefn for| . LIST)
$P457 = new "String"
$P457 = "LIST"
$P456 = $P45($P457, $P42)
$P455 = $P89($P456, $P48)
constants[157] = $P455
## constant 158: (#:|fdefn for| . READ-INTERNAL)
$P460 = new "String"
$P460 = "READ-INTERNAL"
$P459 = $P45($P460, $P42)
$P458 = $P89($P459, $P48)
constants[158] = $P458
## constant 159: (#:|fdefn for| . UNREAD-CHAR)
$P463 = new "String"
$P463 = "UNREAD-CHAR"
$P462 = $P45($P463, $P42)
$P461 = $P89($P462, $P48)
constants[159] = $P461
## constant 160: (#:|fdefn for| . FLUSH-WHITESPACE)
$P466 = new "String"
$P466 = "FLUSH-WHITESPACE"
$P465 = $P45($P466, $P42)
$P464 = $P89($P465, $P48)
constants[160] = $P464
## constant 161: (#:|fdefn for| . READ-MAYBE-NOTHING)
$P469 = new "String"
$P469 = "READ-MAYBE-NOTHING"
$P468 = $P45($P469, $P42)
$P467 = $P89($P468, $P48)
constants[161] = $P467
## constant 162: (#:|fdefn for| . NCONC)
$P472 = new "String"
$P472 = "NCONC"
$P471 = $P45($P472, $P42)
$P470 = $P89($P471, $P48)
constants[162] = $P470
## constant 163: (#:|fdefn for| . NREVERSE)
$P475 = new "String"
$P475 = "NREVERSE"
$P474 = $P45($P475, $P42)
$P473 = $P89($P474, $P48)
constants[163] = $P473
## constant 164: QUOTE
constants[164] = $P171
## constant 165: "Nothing appears before . in list."
$P476 = new "String"
$P476 = "Nothing appears before . in list."
constants[165] = $P476
## constant 166: (#:|fdefn for| . READ-AFTER-DOT)
$P479 = new "String"
$P479 = "READ-AFTER-DOT"
$P478 = $P45($P479, $P42)
$P477 = $P89($P478, $P48)
constants[166] = $P477
## constant 167: "Nothing appears after . in list."
$P480 = new "String"
$P480 = "Nothing appears after . in list."
constants[167] = $P480
## constant 168: "More than one object follows . in list."
$P481 = new "String"
$P481 = "More than one object follows . in list."
constants[168] = $P481
## constant 169: (#:|fdefn for| . GROW-READ-BUFFER)
$P482 = $P89($P396, $P48)
constants[169] = $P482
## constant 170: (#:|fdefn for| . READ-BUFFER-TO-STRING)
$P485 = new "String"
$P485 = "READ-BUFFER-TO-STRING"
$P484 = $P45($P485, $P42)
$P483 = $P89($P484, $P48)
constants[170] = $P483
## constant 171: "Ignoring unmatched close parenthesis."
$P486 = new "String"
$P486 = "Ignoring unmatched close parenthesis."
constants[171] = $P486
## constant 172: (#:|fdefn for| . WARN)
$P489 = new "String"
$P489 = "WARN"
$P488 = $P45($P489, $P42)
$P487 = $P89($P488, $P48)
constants[172] = $P487
## constant 173: "Unmatched close parenthesis."
$P490 = new "String"
$P490 = "Unmatched close parenthesis."
constants[173] = $P490
## constant 174: (#:|fdefn for| . CONS)
$P491 = $P89($P105, $P48)
constants[174] = $P491
## constant 175: "after escape character"
$P492 = new "String"
$P492 = "after escape character"
constants[175] = $P492
## constant 176: (#:|fdefn for| . READER-EOF-ERROR)
$P495 = new "String"
$P495 = "READER-EOF-ERROR"
$P494 = $P45($P495, $P42)
$P493 = $P89($P494, $P48)
constants[176] = $P493
## constant 177: "inside extended token"
$P496 = new "String"
$P496 = "inside extended token"
constants[177] = $P496
## constant 178: (#:|fdefn for| . EQL)
$P499 = new "String"
$P499 = "EQL"
$P498 = $P45($P499, $P42)
$P497 = $P89($P498, $P48)
constants[178] = $P497
## constant 179: CHAR-CLASS
$P501 = new "String"
$P501 = "CHAR-CLASS"
$P500 = $P45($P501, $P42)
constants[179] = $P500
## constant 180: (CHAR ATTABLE)
$P505 = new "String"
$P505 = "ATTABLE"
$P504 = $P45($P505, $P42)
$P503 = $P103($P504, $P46)
$P502 = $P103($P107, $P503)
constants[180] = $P502
## constant 181: LET
$P507 = new "String"
$P507 = "LET"
$P506 = $P45($P507, $P42)
constants[181] = $P506
## constant 182: ATT
$P509 = new "String"
$P509 = "ATT"
$P508 = $P45($P509, $P42)
constants[182] = $P508
## constant 183: AREF
constants[183] = $P271
## constant 184: (DECLARE (FIXNUM ATT))
$P512 = new "String"
$P512 = "DECLARE"
$P511 = $P45($P512, $P42)
$P515 = $P103($P508, $P46)
$P514 = $P103($P158, $P515)
$P513 = $P103($P514, $P46)
$P510 = $P103($P511, $P513)
constants[184] = $P510
## constant 185: COND
$P517 = new "String"
$P517 = "COND"
$P516 = $P45($P517, $P42)
constants[185] = $P516
## constant 186: ((<= ATT 1) 12)
$P520 = $P103($P508, $P184)
$P519 = $P103($P182, $P520)
$P522 = new "Undef"
$P522 = 12
$P521 = $P103($P522, $P46)
$P518 = $P103($P519, $P521)
constants[186] = $P518
## constant 187: ((OR # #) ATT)
$P526 = new "String"
$P526 = "OR"
$P525 = $P45($P526, $P42)
$P530 = new "String"
$P530 = "<"
$P529 = $P45($P530, $P42)
$P532 = $P103($P60, $P46)
$P531 = $P103($P508, $P532)
$P528 = $P103($P529, $P531)
$P536 = $P103($P72, $P46)
$P535 = $P103($P508, $P536)
$P534 = $P103($P156, $P535)
$P533 = $P103($P534, $P46)
$P527 = $P103($P528, $P533)
$P524 = $P103($P525, $P527)
$P523 = $P103($P524, $P515)
constants[187] = $P523
## constant 188: ((COND # #))
$P544 = new "Undef"
$P544 = 15
$P543 = $P103($P544, $P46)
$P542 = $P103($P508, $P543)
$P541 = $P103($P156, $P542)
$P549 = new "String"
$P549 = "STREAM"
$P548 = $P45($P549, $P42)
$P551 = new "String"
$P551 = "invalid constituent"
$P550 = $P103($P551, $P46)
$P547 = $P103($P548, $P550)
$P546 = $P103($P148, $P547)
$P545 = $P103($P546, $P46)
$P540 = $P103($P541, $P545)
$P553 = $P103($P48, $P515)
$P552 = $P103($P553, $P46)
$P539 = $P103($P540, $P552)
$P538 = $P103($P516, $P539)
$P537 = $P103($P538, $P46)
constants[188] = $P537
## constant 189: CHAR-CLASS2
$P555 = new "String"
$P555 = "CHAR-CLASS2"
$P554 = $P45($P555, $P42)
constants[189] = $P554
## constant 190: DIGIT-CHAR-P
$P557 = new "String"
$P557 = "DIGIT-CHAR-P"
$P556 = $P45($P557, $P42)
constants[190] = $P556
## constant 191: (*READ-BASE*)
$P560 = new "String"
$P560 = "*READ-BASE*"
$P559 = $P45($P560, $P42)
$P558 = $P103($P559, $P46)
constants[191] = $P558
## constant 192: (CONSTITUENT-DIGIT)
$P561 = $P103($P68, $P46)
constants[192] = $P561
## constant 193: (#:|fdefn for| . BACKQ-CONS)
$P564 = new "String"
$P564 = "BACKQ-CONS"
$P563 = $P45($P564, $P42)
$P562 = $P89($P563, $P48)
constants[193] = $P562
## constant 194: ((# CONSTITUENT) (# #) (T ATT))
$P568 = $P103($P508, $P561)
$P567 = $P103($P156, $P568)
$P566 = $P103($P567, $P532)
$P573 = $P103($P82, $P46)
$P572 = $P103($P508, $P573)
$P571 = $P103($P156, $P572)
$P570 = $P103($P571, $P545)
$P569 = $P103($P570, $P552)
$P565 = $P103($P566, $P569)
constants[194] = $P565
## constant 195: CHAR-CLASS3
$P575 = new "String"
$P575 = "CHAR-CLASS3"
$P574 = $P45($P575, $P42)
constants[195] = $P574
## constant 196: WHEN
$P577 = new "String"
$P577 = "WHEN"
$P576 = $P45($P577, $P42)
constants[196] = $P576
## constant 197: POSSIBLY-RATIONAL
$P579 = new "String"
$P579 = "POSSIBLY-RATIONAL"
$P578 = $P45($P579, $P42)
constants[197] = $P578
## constant 198: SETQ
constants[198] = $P373
## constant 199: OR
constants[199] = $P525
## constant 200: ((= ATT CONSTITUENT-SLASH))
$P583 = $P103($P66, $P46)
$P582 = $P103($P508, $P583)
$P581 = $P103($P156, $P582)
$P580 = $P103($P581, $P46)
constants[200] = $P580
## constant 201: POSSIBLY-FLOAT
$P585 = new "String"
$P585 = "POSSIBLY-FLOAT"
$P584 = $P45($P585, $P42)
constants[201] = $P584
## constant 202: (10)
$P587 = new "Undef"
$P587 = 10
$P586 = $P103($P587, $P46)
constants[202] = $P586
## constant 203: ((= ATT CONSTITUENT-DOT))
$P591 = $P103($P62, $P46)
$P590 = $P103($P508, $P591)
$P589 = $P103($P156, $P590)
$P588 = $P103($P589, $P46)
constants[203] = $P588
## constant 204: ((MAX *READ-BASE* 10))
$P595 = new "String"
$P595 = "MAX"
$P594 = $P45($P595, $P42)
$P596 = $P103($P559, $P586)
$P593 = $P103($P594, $P596)
$P592 = $P103($P593, $P46)
constants[204] = $P592
## constant 205: IF
constants[205] = $P380
## constant 206: ((IF # CONSTITUENT-DIGIT-OR-EXPT CONSTITUE...
$P603 = new "Undef"
$P603 = 5
$P602 = $P103($P603, $P46)
$P601 = $P103($P508, $P602)
$P600 = $P103($P156, $P601)
$P604 = $P103($P80, $P561)
$P599 = $P103($P600, $P604)
$P598 = $P103($P380, $P599)
$P605 = $P103($P78, $P46)
$P597 = $P103($P598, $P605)
constants[206] = $P597
## constant 207: ((# #) (T ATT))
constants[207] = $P569
## constant 208: *READ-BASE*
constants[208] = $P559
## constant 209: (#:|fdefn for| . READTABLE-CASE)
$P608 = new "String"
$P608 = "READTABLE-CASE"
$P607 = $P45($P608, $P42)
$P606 = $P89($P607, $P48)
constants[209] = $P606
## constant 210: :UPCASE
$P610 = new "String"
$P610 = "UPCASE"
$P609 = $P45($P610, $P195)
constants[210] = $P609
## constant 211: (#:|fdefn for| . CHAR-UPCASE)
$P613 = new "String"
$P613 = "CHAR-UPCASE"
$P612 = $P45($P613, $P42)
$P611 = $P89($P612, $P48)
constants[211] = $P611
## constant 212: (#:|fdefn for| . ROW-MAJOR-ASET)
$P616 = new "String"
$P616 = "ROW-MAJOR-ASET"
$P615 = $P45($P616, $P42)
$P614 = $P89($P615, $P48)
constants[212] = $P614
## constant 213: :PRESERVE
$P618 = new "String"
$P618 = "PRESERVE"
$P617 = $P45($P618, $P195)
constants[213] = $P617
## constant 214: :DOWNCASE
$P620 = new "String"
$P620 = "DOWNCASE"
$P619 = $P45($P620, $P195)
constants[214] = $P619
## constant 215: :INVERT
$P622 = new "String"
$P622 = "INVERT"
$P621 = $P45($P622, $P195)
constants[215] = $P621
## constant 216: (#:|fdefn for| . 1-)
$P623 = $P89($P428, $P48)
constants[216] = $P623
## constant 217: (= ESC I)
$P627 = new "String"
$P627 = "ESC"
$P626 = $P45($P627, $P42)
$P630 = new "String"
$P630 = "I"
$P629 = $P45($P630, $P42)
$P628 = $P103($P629, $P46)
$P625 = $P103($P626, $P628)
$P624 = $P103($P156, $P625)
constants[217] = $P624
## constant 218: (#:|fdefn for| . LISP::ASSERT-ERROR)
$P633 = new "String"
$P633 = "ASSERT-ERROR"
$P634 = $P43($P44)
$P632 = $P45($P633, $P634)
$P631 = $P89($P632, $P48)
constants[218] = $P631
## constant 219: (#:|fdefn for| . BOTH-CASE-P)
$P637 = new "String"
$P637 = "BOTH-CASE-P"
$P636 = $P45($P637, $P42)
$P635 = $P89($P636, $P48)
constants[219] = $P635
## constant 220: (#:|fdefn for| . UPPER-CASE-P)
$P640 = new "String"
$P640 = "UPPER-CASE-P"
$P639 = $P45($P640, $P42)
$P638 = $P89($P639, $P48)
constants[220] = $P638
## constant 221: (#:|fdefn for| . MINUSP)
$P643 = new "String"
$P643 = "MINUSP"
$P642 = $P45($P643, $P42)
$P641 = $P89($P642, $P48)
constants[221] = $P641
## constant 222: CONDITIONS::CASE-FAILURE
$P645 = new "String"
$P645 = "CASE-FAILURE"
$P647 = new "String"
$P647 = "CONDITIONS"
$P646 = $P43($P647)
$P644 = $P45($P645, $P646)
constants[222] = $P644
## constant 223: ECASE
$P649 = new "String"
$P649 = "ECASE"
$P648 = $P45($P649, $P42)
constants[223] = $P648
## constant 224: :DATUM
$P651 = new "String"
$P651 = "DATUM"
$P650 = $P45($P651, $P195)
constants[224] = $P650
## constant 225: :EXPECTED-TYPE
$P653 = new "String"
$P653 = "EXPECTED-TYPE"
$P652 = $P45($P653, $P195)
constants[225] = $P652
## constant 226: (MEMBER :INVERT :DOWNCASE :UPCASE)
$P656 = new "String"
$P656 = "MEMBER"
$P655 = $P45($P656, $P42)
$P659 = $P103($P609, $P46)
$P658 = $P103($P619, $P659)
$P657 = $P103($P621, $P658)
$P654 = $P103($P655, $P657)
constants[226] = $P654
## constant 227: :POSSIBILITIES
$P661 = new "String"
$P661 = "POSSIBILITIES"
$P660 = $P45($P661, $P195)
constants[227] = $P660
## constant 228: (:INVERT :DOWNCASE :UPCASE)
constants[228] = $P657
## constant 229: (#:|fdefn for| . CHAR-DOWNCASE)
$P664 = new "String"
$P664 = "CHAR-DOWNCASE"
$P663 = $P45($P664, $P42)
$P662 = $P89($P663, $P48)
constants[229] = $P662
## constant 230: (#:|fdefn for| . INTERNAL-READ-EXTENDED-TO...
$P667 = new "String"
$P667 = "INTERNAL-READ-EXTENDED-TOKEN"
$P666 = $P45($P667, $P42)
$P665 = $P89($P666, $P48)
constants[230] = $P665
## constant 231: (#:|fdefn for| . DIGIT-CHAR-P)
$P668 = $P89($P556, $P48)
constants[231] = $P668
## constant 232: (#:|fdefn for| . MAX)
$P669 = $P89($P594, $P48)
constants[232] = $P669
## constant 233: "invalid constituent"
constants[233] = $P551
## constant 234: (#:|fdefn for| . MAKE-INTEGER)
$P672 = new "String"
$P672 = "MAKE-INTEGER"
$P671 = $P45($P672, $P42)
$P670 = $P89($P671, $P48)
constants[234] = $P670
## constant 235: "impossible!"
$P673 = new "String"
$P673 = "impossible!"
constants[235] = $P673
## constant 236: (NOT POSSIBLY-RATIONAL)
$P676 = new "String"
$P676 = "NOT"
$P675 = $P45($P676, $P42)
$P677 = $P103($P578, $P46)
$P674 = $P103($P675, $P677)
constants[236] = $P674
## constant 237: (#:|fdefn for| . MAKE-FLOAT)
$P680 = new "String"
$P680 = "MAKE-FLOAT"
$P679 = $P45($P680, $P42)
$P678 = $P89($P679, $P48)
constants[237] = $P678
## constant 238: "dot context error"
$P681 = new "String"
$P681 = "dot context error"
constants[238] = $P681
## constant 239: (#:|fdefn for| . MAKE-RATIO)
$P684 = new "String"
$P684 = "MAKE-RATIO"
$P683 = $P45($P684, $P42)
$P682 = $P89($P683, $P48)
constants[239] = $P682
## constant 240: "too many dots"
$P685 = new "String"
$P685 = "too many dots"
constants[240] = $P685
## constant 241: :EOF
$P687 = new "String"
$P687 = "EOF"
$P686 = $P45($P687, $P195)
constants[241] = $P686
## constant 242: (#:|fdefn for| . CASIFY-READ-BUFFER)
$P690 = new "String"
$P690 = "CASIFY-READ-BUFFER"
$P689 = $P45($P690, $P42)
$P688 = $P89($P689, $P48)
constants[242] = $P688
## constant 243: (#:|fdefn for| . ZEROP)
$P693 = new "String"
$P693 = "ZEROP"
$P692 = $P45($P693, $P42)
$P691 = $P89($P692, $P48)
constants[243] = $P691
## constant 244: "too many colons in ~S"
$P694 = new "String"
$P694 = "too many colons in ~S"
constants[244] = $P694
## constant 245: *KEYWORD-PACKAGE*
$P696 = new "String"
$P696 = "*KEYWORD-PACKAGE*"
$P695 = $P45($P696, $P42)
constants[245] = $P695
## constant 246: "after reading a colon"
$P697 = new "String"
$P697 = "after reading a colon"
constants[246] = $P697
## constant 247: "illegal terminating character after a col...
$P698 = new "String"
$P698 = "illegal terminating character after a colon: ~S"
constants[247] = $P698
## constant 248: "too many colons after ~S name"
$P699 = new "String"
$P699 = "too many colons after ~S name"
constants[248] = $P699
## constant 249: (#:|fdefn for| . FIND-PACKAGE)
$P702 = new "String"
$P702 = "FIND-PACKAGE"
$P701 = $P45($P702, $P42)
$P700 = $P89($P701, $P48)
constants[249] = $P700
## constant 250: *PACKAGE*
$P704 = new "String"
$P704 = "*PACKAGE*"
$P703 = $P45($P704, $P42)
constants[250] = $P703
## constant 251: READER-PACKAGE-ERROR
$P706 = new "String"
$P706 = "READER-PACKAGE-ERROR"
$P705 = $P45($P706, $P42)
constants[251] = $P705
## constant 252: :STREAM
$P707 = $P45($P549, $P195)
constants[252] = $P707
## constant 253: :FORMAT-ARGUMENTS
$P709 = new "String"
$P709 = "FORMAT-ARGUMENTS"
$P708 = $P45($P709, $P195)
constants[253] = $P708
## constant 254: :FORMAT-CONTROL
$P711 = new "String"
$P711 = "FORMAT-CONTROL"
$P710 = $P45($P711, $P195)
constants[254] = $P710
## constant 255: "package ~S not found"
$P712 = new "String"
$P712 = "package ~S not found"
constants[255] = $P712
## constant 256: (#:|fdefn for| . INTERN*)
$P715 = new "String"
$P715 = "INTERN*"
$P714 = $P45($P715, $P42)
$P713 = $P89($P714, $P48)
constants[256] = $P713
## constant 257: (#:|fdefn for| . FIND-SYMBOL*)
$P718 = new "String"
$P718 = "FIND-SYMBOL*"
$P717 = $P45($P718, $P42)
$P716 = $P89($P717, $P48)
constants[257] = $P716
## constant 258: :EXTERNAL
$P720 = new "String"
$P720 = "EXTERNAL"
$P719 = $P45($P720, $P195)
constants[258] = $P719
## constant 259: CONTINUE
$P722 = new "String"
$P722 = "CONTINUE"
$P721 = $P45($P722, $P42)
constants[259] = $P721
## constant 260: :FUNCTION
$P723 = $P45($P138, $P195)
constants[260] = $P723
## constant 261: :REPORT-FUNCTION
$P725 = new "String"
$P725 = "REPORT-FUNCTION"
$P724 = $P45($P725, $P195)
constants[261] = $P724
## constant 262: (#:|fdefn for| . CONDITIONS::MAKE-RESTART)
$P728 = new "String"
$P728 = "MAKE-RESTART"
$P727 = $P45($P728, $P646)
$P726 = $P89($P727, $P48)
constants[262] = $P726
## constant 263: CONDITIONS::*RESTART-CLUSTERS*
$P730 = new "String"
$P730 = "*RESTART-CLUSTERS*"
$P729 = $P45($P730, $P646)
constants[263] = $P729
## constant 264: (#:|fdefn for| . PACKAGE-NAME)
$P733 = new "String"
$P733 = "PACKAGE-NAME"
$P732 = $P45($P733, $P42)
$P731 = $P89($P732, $P48)
constants[264] = $P731
## constant 265: "The symbol ~S is not external in the ~A p...
$P734 = new "String"
$P734 = "The symbol ~S is not external in the ~A package."
constants[265] = $P734
## constant 266: "Symbol ~S not found in the ~A package."
$P735 = new "String"
$P735 = "Symbol ~S not found in the ~A package."
constants[266] = $P735
## constant 267: SIMPLE-ERROR
$P737 = new "String"
$P737 = "SIMPLE-ERROR"
$P736 = $P45($P737, $P42)
constants[267] = $P736
## constant 268: ERROR
constants[268] = $P326
## constant 269: (#:|fdefn for| . CONDITIONS::COERCE-TO-CON...
$P740 = new "String"
$P740 = "COERCE-TO-CONDITION"
$P739 = $P45($P740, $P646)
$P738 = $P89($P739, $P48)
constants[269] = $P738
## constant 270: (CONTINUE)
$P741 = $P103($P721, $P46)
constants[270] = $P741
## constant 271: (#:|fdefn for| . CONDITIONS::%FIND-RESTARTS)
$P744 = new "String"
$P744 = "%FIND-RESTARTS"
$P743 = $P45($P744, $P646)
$P742 = $P89($P743, $P48)
constants[271] = $P742
## constant 272: CONDITIONS::*CONDITION-RESTARTS*
$P746 = new "String"
$P746 = "*CONDITION-RESTARTS*"
$P745 = $P45($P746, $P646)
constants[272] = $P745
## constant 273: (#:|fdefn for| . ASSOC)
$P749 = new "String"
$P749 = "ASSOC"
$P748 = $P45($P749, $P42)
$P747 = $P89($P748, $P48)
constants[273] = $P747
## constant 274: (#:|fdefn for| . APPEND)
$P752 = new "String"
$P752 = "APPEND"
$P751 = $P45($P752, $P42)
$P750 = $P89($P751, $P48)
constants[274] = $P750
## constant 275: (#:|fdefn for| . APPLY)
$P755 = new "String"
$P755 = "APPLY"
$P754 = $P45($P755, $P42)
$P753 = $P89($P754, $P48)
constants[275] = $P753
## constant 276: (#:|fdefn for| . INTERN)
$P758 = new "String"
$P758 = "INTERN"
$P757 = $P45($P758, $P42)
$P756 = $P89($P757, $P48)
constants[276] = $P756
## constant 277: "Use symbol anyway."
$P759 = new "String"
$P759 = "Use symbol anyway."
constants[277] = $P759
## constant 278: (#:|fdefn for| . FORMAT)
$P762 = new "String"
$P762 = "FORMAT"
$P761 = $P45($P762, $P42)
$P760 = $P89($P761, $P48)
constants[278] = $P760
## constant 279: ""
$P763 = new "String"
$P763 = ""
constants[279] = $P763
## constant 280: "after escape"
$P764 = new "String"
$P764 = "after escape"
constants[280] = $P764
## constant 281: EXPONENT-LETTERP
$P766 = new "String"
$P766 = "EXPONENT-LETTERP"
$P765 = $P45($P766, $P42)
constants[281] = $P765
## constant 282: (LETTER)
$P769 = new "String"
$P769 = "LETTER"
$P768 = $P45($P769, $P42)
$P767 = $P103($P768, $P46)
constants[282] = $P767
## constant 283: MEMQ
$P771 = new "String"
$P771 = "MEMQ"
$P770 = $P45($P771, $P42)
constants[283] = $P770
## constant 284: ((QUOTE #))
$P784 = $P103($P227, $P46)
$P783 = $P103($P229, $P784)
$P782 = $P103($P226, $P783)
$P781 = $P103($P228, $P782)
$P780 = $P103($P225, $P781)
$P779 = $P103($P222, $P780)
$P778 = $P103($P224, $P779)
$P777 = $P103($P221, $P778)
$P776 = $P103($P223, $P777)
$P775 = $P103($P220, $P776)
$P774 = $P103($P775, $P46)
$P773 = $P103($P171, $P774)
$P772 = $P103($P773, $P46)
constants[284] = $P772
## constant 285: *INTEGER-READER-SAFE-DIGITS*
$P786 = new "String"
$P786 = "*INTEGER-READER-SAFE-DIGITS*"
$P785 = $P45($P786, $P42)
constants[285] = $P785
.end
