(lp1 (ccopy_reg _reconstructor p2 (cpygments.token _TokenType p3 c__builtin__ tuple p4 (S'Text' p5 ttRp6 (dp7 S'subtypes' p8 c__builtin__ set p9 ((lp10 g2 (g3 g4 (g5 S'Symbol' p11 ttRp12 (dp13 g8 g9 ((ltRp14 sS'parent' p15 g6 sbag2 (g3 g4 (g5 S'Whitespace' p16 ttRp17 (dp18 g8 g9 ((ltRp19 sg15 g6 sbatRp20 sg11 g12 sg16 g17 sg15 g2 (g3 g4 (ttRp21 (dp22 S'Comment' p23 g2 (g3 g4 (g23 ttRp24 (dp25 g15 g21 sS'Preproc' p26 g2 (g3 g4 (g23 g26 ttRp27 (dp28 g8 g9 ((ltRp29 sg15 g24 sbsS'Single' p30 g2 (g3 g4 (g23 g30 ttRp31 (dp32 g8 g9 ((ltRp33 sg15 g24 sbsS'Multiline' p34 g2 (g3 g4 (g23 g34 ttRp35 (dp36 g8 g9 ((ltRp37 sg15 g24 sbsg8 g9 ((lp38 g2 (g3 g4 (g23 S'Special' p39 ttRp40 (dp41 g8 g9 ((ltRp42 sg15 g24 sbag27 ag31 ag35 atRp43 sg39 g40 sbsS'Name' p44 g2 (g3 g4 (g44 ttRp45 (dp46 S'Function' p47 g2 (g3 g4 (g44 g47 ttRp48 (dp49 g8 g9 ((ltRp50 sg15 g45 sbsS'Exception' p51 g2 (g3 g4 (g44 g51 ttRp52 (dp53 g8 g9 ((ltRp54 sg15 g45 sbsS'Tag' p55 g2 (g3 g4 (g44 g55 ttRp56 (dp57 g8 g9 ((ltRp58 sg15 g45 sbsS'Constant' p59 g2 (g3 g4 (g44 g59 ttRp60 (dp61 g8 g9 ((ltRp62 sg15 g45 sbsg15 g21 sS'Pseudo' p63 g2 (g3 g4 (g44 g63 ttRp64 (dp65 g8 g9 ((ltRp66 sg15 g45 sbsS'Attribute' p67 g2 (g3 g4 (g44 g67 ttRp68 (dp69 g8 g9 ((ltRp70 sg15 g45 sbsS'Label' p71 g2 (g3 g4 (g44 g71 ttRp72 (dp73 g8 g9 ((ltRp74 sg15 g45 sbsS'Blubb' p75 g2 (g3 g4 (g44 g75 ttRp76 (dp77 g8 g9 ((ltRp78 sg15 g45 sbsS'Entity' p79 g2 (g3 g4 (g44 g79 ttRp80 (dp81 g8 g9 ((ltRp82 sg15 g45 sbsS'Builtin' p83 g2 (g3 g4 (g44 g83 ttRp84 (dp85 g8 g9 ((lp86 g2 (g3 g4 (g44 g83 g63 ttRp87 (dp88 g8 g9 ((ltRp89 sg15 g84 sbatRp90 sg63 g87 sg15 g45 sbsS'Other' p91 g2 (g3 g4 (g44 g91 ttRp92 (dp93 g8 g9 ((ltRp94 sg15 g45 sbsS'Identifier' p95 g2 (g3 g4 (g44 g95 ttRp96 (dp97 g8 g9 ((ltRp98 sg15 g45 sbsS'Variable' p99 g2 (g3 g4 (g44 g99 ttRp100 (dp101 g15 g45 sS'Global' p102 g2 (g3 g4 (g44 g99 g102 ttRp103 (dp104 g8 g9 ((ltRp105 sg15 g100 sbsS'Instance' p106 g2 (g3 g4 (g44 g99 g106 ttRp107 (dp108 g8 g9 ((ltRp109 sg15 g100 sbsS'Anonymous' p110 g2 (g3 g4 (g44 g99 g110 ttRp111 (dp112 g8 g9 ((ltRp113 sg15 g100 sbsg8 g9 ((lp114 g111 ag107 ag103 ag2 (g3 g4 (g44 g99 S'Class' p115 ttRp116 (dp117 g8 g9 ((ltRp118 sg15 g100 sbatRp119 sg115 g116 sbsg8 g9 ((lp120 g2 (g3 g4 (g44 S'Decorator' p121 ttRp122 (dp123 g8 g9 ((ltRp124 sg15 g45 sbag68 ag60 ag64 ag2 (g3 g4 (g44 S'Namespace' p125 ttRp126 (dp127 g8 g9 ((ltRp128 sg15 g45 sbag96 ag84 ag100 ag92 ag76 ag80 ag48 ag2 (g3 g4 (g44 S'Property' p129 ttRp130 (dp131 g8 g9 ((ltRp132 sg15 g45 sbag72 ag56 ag52 ag2 (g3 g4 (g44 g115 ttRp133 (dp134 g8 g9 ((ltRp135 sg15 g45 sbatRp136 sg129 g130 sg115 g133 sg121 g122 sg125 g126 sbsS'Keyword' p137 g2 (g3 g4 (g137 ttRp138 (dp139 g59 g2 (g3 g4 (g137 g59 ttRp140 (dp141 g8 g9 ((ltRp142 sg15 g138 sbsg15 g21 sg125 g2 (g3 g4 (g137 g125 ttRp143 (dp144 g8 g9 ((ltRp145 sg15 g138 sbsg63 g2 (g3 g4 (g137 g63 ttRp146 (dp147 g8 g9 ((ltRp148 sg15 g138 sbsS'Reserved' p149 g2 (g3 g4 (g137 g149 ttRp150 (dp151 g8 g9 ((ltRp152 sg15 g138 sbsS'Declaration' p153 g2 (g3 g4 (g137 g153 ttRp154 (dp155 g8 g9 ((ltRp156 sg15 g138 sbsg99 g2 (g3 g4 (g137 g99 ttRp157 (dp158 g8 g9 ((ltRp159 sg15 g138 sbsg8 g9 ((lp160 g140 ag150 ag2 (g3 g4 (g137 S'Type' p161 ttRp162 (dp163 g8 g9 ((ltRp164 sg15 g138 sbag154 ag157 ag143 ag146 atRp165 sg161 g162 sbsS'Generic' p166 g2 (g3 g4 (g166 ttRp167 (dp168 S'Prompt' p169 g2 (g3 g4 (g166 g169 ttRp170 (dp171 g8 g9 ((ltRp172 sg15 g167 sbsg15 g21 sS'Deleted' p173 g2 (g3 g4 (g166 g173 ttRp174 (dp175 g8 g9 ((ltRp176 sg15 g167 sbsS'Traceback' p177 g2 (g3 g4 (g166 g177 ttRp178 (dp179 g8 g9 ((ltRp180 sg15 g167 sbsS'Emph' p181 g2 (g3 g4 (g166 g181 ttRp182 (dp183 g8 g9 ((ltRp184 sg15 g167 sbsS'Output' p185 g2 (g3 g4 (g166 g185 ttRp186 (dp187 g8 g9 ((ltRp188 sg15 g167 sbsS'Subheading' p189 g2 (g3 g4 (g166 g189 ttRp190 (dp191 g8 g9 ((ltRp192 sg15 g167 sbsS'Error' p193 g2 (g3 g4 (g166 g193 ttRp194 (dp195 g8 g9 ((ltRp196 sg15 g167 sbsg8 g9 ((lp197 g186 ag182 ag194 ag190 ag178 ag174 ag2 (g3 g4 (g166 S'Heading' p198 ttRp199 (dp200 g8 g9 ((ltRp201 sg15 g167 sbag2 (g3 g4 (g166 S'Inserted' p202 ttRp203 (dp204 g8 g9 ((ltRp205 sg15 g167 sbag2 (g3 g4 (g166 S'Strong' p206 ttRp207 (dp208 g8 g9 ((ltRp209 sg15 g167 sbag170 atRp210 sg206 g207 sg202 g203 sg198 g199 sbsg5 g6 sS'Punctuation' p211 g2 (g3 g4 (g211 ttRp212 (dp213 g8 g9 ((lp214 g2 (g3 g4 (g211 S'Indicator' p215 ttRp216 (dp217 g8 g9 ((ltRp218 sg15 g212 sbatRp219 sg215 g216 sg15 g21 sbsS'Token' p220 g21 sS'Number' p221 g2 (g3 g4 (S'Literal' p222 g221 ttRp223 (dp224 S'Bin' p225 g2 (g3 g4 (g222 g221 g225 ttRp226 (dp227 g8 g9 ((ltRp228 sg15 g223 sbsS'Binary' p229 g2 (g3 g4 (g222 g221 g229 ttRp230 (dp231 g8 g9 ((ltRp232 sg15 g223 sbsg15 g2 (g3 g4 (g222 ttRp233 (dp234 S'String' p235 g2 (g3 g4 (g222 g235 ttRp236 (dp237 S'Regex' p238 g2 (g3 g4 (g222 g235 g238 ttRp239 (dp240 g8 g9 ((ltRp241 sg15 g236 sbsS'Interpol' p242 g2 (g3 g4 (g222 g235 g242 ttRp243 (dp244 g8 g9 ((ltRp245 sg15 g236 sbsS'Regexp' p246 g2 (g3 g4 (g222 g235 g246 ttRp247 (dp248 g8 g9 ((ltRp249 sg15 g236 sbsg15 g233 sS'Heredoc' p250 g2 (g3 g4 (g222 g235 g250 ttRp251 (dp252 g8 g9 ((ltRp253 sg15 g236 sbsS'Double' p254 g2 (g3 g4 (g222 g235 g254 ttRp255 (dp256 g8 g9 ((ltRp257 sg15 g236 sbsg11 g2 (g3 g4 (g222 g235 g11 ttRp258 (dp259 g8 g9 ((ltRp260 sg15 g236 sbsS'Escape' p261 g2 (g3 g4 (g222 g235 g261 ttRp262 (dp263 g8 g9 ((ltRp264 sg15 g236 sbsS'Character' p265 g2 (g3 g4 (g222 g235 g265 ttRp266 (dp267 g8 g9 ((ltRp268 sg15 g236 sbsS'Interp' p269 g2 (g3 g4 (g222 g235 g269 ttRp270 (dp271 g8 g9 ((ltRp272 sg15 g236 sbsS'Backtick' p273 g2 (g3 g4 (g222 g235 g273 ttRp274 (dp275 g8 g9 ((ltRp276 sg15 g236 sbsS'Char' p277 g2 (g3 g4 (g222 g235 g277 ttRp278 (dp279 g8 g9 ((ltRp280 sg15 g236 sbsg30 g2 (g3 g4 (g222 g235 g30 ttRp281 (dp282 g8 g9 ((ltRp283 sg15 g236 sbsg91 g2 (g3 g4 (g222 g235 g91 ttRp284 (dp285 g8 g9 ((ltRp286 sg15 g236 sbsS'Doc' p287 g2 (g3 g4 (g222 g235 g287 ttRp288 (dp289 g8 g9 ((ltRp290 sg15 g236 sbsg8 g9 ((lp291 g284 ag2 (g3 g4 (g222 g235 S'Atom' p292 ttRp293 (dp294 g8 g9 ((ltRp295 sg15 g236 sbag255 ag278 ag270 ag288 ag251 ag274 ag243 ag258 ag247 ag239 ag281 ag266 ag262 atRp296 sg292 g293 sbsg15 g21 sg221 g223 sS'Scalar' p297 g2 (g3 g4 (g222 g297 ttRp298 (dp299 g8 g9 ((lp300 g2 (g3 g4 (g222 g297 S'Plain' p301 ttRp302 (dp303 g8 g9 ((ltRp304 sg15 g298 sbatRp305 sg15 g233 sg301 g302 sbsg91 g2 (g3 g4 (g222 g91 ttRp306 (dp307 g8 g9 ((ltRp308 sg15 g233 sbsS'Date' p309 g2 (g3 g4 (g222 g309 ttRp310 (dp311 g8 g9 ((ltRp312 sg15 g233 sbsg8 g9 ((lp313 g310 ag236 ag306 ag223 ag298 atRp314 sbsS'Decimal' p315 g2 (g3 g4 (g222 g221 g315 ttRp316 (dp317 g8 g9 ((ltRp318 sg15 g223 sbsS'Float' p319 g2 (g3 g4 (g222 g221 g319 ttRp320 (dp321 g8 g9 ((ltRp322 sg15 g223 sbsS'Hex' p323 g2 (g3 g4 (g222 g221 g323 ttRp324 (dp325 g8 g9 ((ltRp326 sg15 g223 sbsS'Integer' p327 g2 (g3 g4 (g222 g221 g327 ttRp328 (dp329 g8 g9 ((lp330 g2 (g3 g4 (g222 g221 g327 S'Long' p331 ttRp332 (dp333 g8 g9 ((ltRp334 sg15 g328 sbatRp335 sg331 g332 sg15 g223 sbsS'Octal' p336 g2 (g3 g4 (g222 g221 g336 ttRp337 (dp338 g8 g9 ((ltRp339 sg15 g223 sbsg8 g9 ((lp340 g226 ag230 ag337 ag316 ag2 (g3 g4 (g222 g221 S'Oct' p341 ttRp342 (dp343 g8 g9 ((ltRp344 sg15 g223 sbag328 ag320 ag324 atRp345 sg341 g342 sbsg222 g233 sg91 g2 (g3 g4 (g91 ttRp346 (dp347 g8 g9 ((ltRp348 sg15 g21 sbsg193 g2 (g3 g4 (g193 ttRp349 (dp350 g8 g9 ((ltRp351 sg15 g21 sbsS'Operator' p352 g2 (g3 g4 (g352 ttRp353 (dp354 g8 g9 ((lp355 g2 (g3 g4 (g352 S'Word' p356 ttRp357 (dp358 g8 g9 ((ltRp359 sg15 g353 sbatRp360 sg356 g357 sg15 g21 sbsg8 g9 ((lp361 g24 ag349 ag167 ag6 ag45 ag212 ag138 ag233 ag353 ag346 atRp362 sg235 g236 sbsbV tp363 a(g31 V;;;; TYPEP und Verwandtes p364 tp365 a(g6 V\u000a tp366 a(g31 V;;;; Michael Stoll, 21. 10. 1988 p367 tp368 a(g6 V\u000a tp369 a(g31 V;;;; Bruno Haible, 10.6.1989 p370 tp371 a(g6 V\u000a tp372 a(g31 V;;;; Sam Steingold 2000-2005 p373 tp374 a(g6 V\u000a\u000a p375 tp376 a(g31 V;;; Datenstrukturen für TYPEP: p377 tp378 a(g6 V\u000a tp379 a(g31 V;;; - Ein Type-Specifier-Symbol hat auf seiner Propertyliste unter dem p380 tp381 a(g6 V\u000a tp382 a(g31 V;;; Indikator SYS::TYPE-SYMBOL eine Funktion von einem Argument, die p383 tp384 a(g6 V\u000a tp385 a(g31 V;;; testet, ob ein Objekt vom richtigen Typ ist. p386 tp387 a(g6 V\u000a tp388 a(g31 V;;; - Ein Symbol, das eine Type-Specifier-Liste beginnen kann, hat auf seiner p389 tp390 a(g6 V\u000a tp391 a(g31 V;;; Propertyliste unter dem Indikator SYS::TYPE-LIST eine Funktion von p392 tp393 a(g6 V\u000a tp394 a(g31 V;;; einem Argument für das zu testende Objekt und zusätzlichen Argumenten p395 tp396 a(g6 V\u000a tp397 a(g31 V;;; für die Listenelemente. p398 tp399 a(g6 V\u000a tp400 a(g31 V;;; - Ein Symbol, das als Typmacro definiert wurde, hat auf seiner Property- p401 tp402 a(g6 V\u000a tp403 a(g31 V;;; liste unter dem Indikator SYSTEM::DEFTYPE-EXPANDER den zugehörigen p404 tp405 a(g6 V\u000a tp406 a(g31 V;;; Expander: eine Funktion, die den zu expandierenden Type-Specifier (eine p407 tp408 a(g6 V\u000a tp409 a(g31 V;;; mindestens einelementige Liste) als Argument bekommt. p410 tp411 a(g6 V\u000a\u000a p412 tp413 a(g212 V( tp414 a(g84 Vin-package p415 tp416 a(g6 V tp417 a(g236 V"EXT" p418 tp419 a(g212 V) tp420 a(g6 V\u000a tp421 a(g212 V( tp422 a(g84 Vexport p423 tp424 a(g6 V tp425 a(g353 V' tp426 a(g212 V( tp427 a(g100 Vtype-expand p428 tp429 a(g212 V) tp430 a(g212 V) tp431 a(g6 V\u000a tp432 a(g212 V( tp433 a(g84 Vin-package p434 tp435 a(g6 V tp436 a(g236 V"SYSTEM" p437 tp438 a(g212 V) tp439 a(g6 V\u000a\u000a p440 tp441 a(g31 V; vorläufig, solange bis clos.lisp geladen wird: p442 tp443 a(g6 V\u000a tp444 a(g212 V( tp445 a(g138 Veval-when p446 tp447 a(g6 V tp448 a(g212 V( tp449 a(g84 Veval p450 tp451 a(g212 V) tp452 a(g6 V\u000a p453 tp454 a(g212 V( tp455 a(g100 Vpredefun p456 tp457 a(g6 V tp458 a(g100 Vclos::built-in-class-p p459 tp460 a(g6 V tp461 a(g212 V( tp462 a(g100 Vobject p463 tp464 a(g212 V) tp465 a(g6 V tp466 a(g212 V( tp467 a(g138 Vdeclare p468 tp469 a(g6 V tp470 a(g212 V( tp471 a(g138 Vignore p472 tp473 a(g6 V tp474 a(g100 Vobject p475 tp476 a(g212 V) tp477 a(g212 V) tp478 a(g6 V tp479 a(g60 Vnil p480 tp481 a(g212 V) tp482 a(g212 V) tp483 a(g6 V\u000a tp484 a(g212 V( tp485 a(g84 Vunless p486 tp487 a(g6 V tp488 a(g212 V( tp489 a(g84 Vfboundp p490 tp491 a(g6 V tp492 a(g258 V'clos::class-name p493 tp494 a(g212 V) tp495 a(g6 V\u000a p496 tp497 a(g212 V( tp498 a(g84 Vdefun p499 tp500 a(g6 V tp501 a(g100 Vclos::class-name p502 tp503 a(g6 V tp504 a(g212 V( tp505 a(g100 Vc tp506 a(g212 V) tp507 a(g6 V tp508 a(g212 V( tp509 a(g138 Vdeclare p510 tp511 a(g6 V tp512 a(g212 V( tp513 a(g138 Vignore p514 tp515 a(g6 V tp516 a(g100 Vc tp517 a(g212 V) tp518 a(g212 V) tp519 a(g6 V tp520 a(g60 Vnil p521 tp522 a(g212 V) tp523 a(g6 V\u000a tp524 a(g212 V) tp525 a(g6 V\u000a\u000a p526 tp527 a(g212 V( tp528 a(g84 Vdefun p529 tp530 a(g6 V tp531 a(g100 Vtypespec-error p532 tp533 a(g6 V tp534 a(g212 V( tp535 a(g100 Vfun p536 tp537 a(g6 V tp538 a(g138 Vtype p539 tp540 a(g212 V) tp541 a(g6 V\u000a p542 tp543 a(g212 V( tp544 a(g100 Verror-of-type p545 tp546 a(g6 V tp547 a(g258 V'error p548 tp549 a(g6 V\u000a p550 tp551 a(g212 V( tp552 a(g100 VTEXT p553 tp554 a(g6 V tp555 a(g236 V"~S: invalid type specification ~S" p556 tp557 a(g212 V) tp558 a(g6 V\u000a p559 tp560 a(g100 Vfun p561 tp562 a(g6 V tp563 a(g138 Vtype p564 tp565 a(g6 V\u000a tp566 a(g212 V) tp567 a(g6 V tp568 a(g212 V) tp569 a(g6 V\u000a\u000a p570 tp571 a(g31 V;; ============================================================================ p572 tp573 a(g6 V\u000a\u000a p574 tp575 a(g31 V;; return the CLOS class named by TYPESPEC or NIL p576 tp577 a(g6 V\u000a tp578 a(g212 V( tp579 a(g84 Vdefun p580 tp581 a(g6 V tp582 a(g100 Vclos-class p583 tp584 a(g6 V tp585 a(g212 V( tp586 a(g100 Vtypespec p587 tp588 a(g212 V) tp589 a(g6 V\u000a p590 tp591 a(g212 V( tp592 a(g138 Vlet p593 tp594 a(g6 V tp595 a(g212 V( tp596 a(g212 V( tp597 a(g100 Vcc p598 tp599 a(g6 V tp600 a(g212 V( tp601 a(g84 Vget p602 tp603 a(g6 V tp604 a(g100 Vtypespec p605 tp606 a(g6 V tp607 a(g258 V'CLOS::CLOSCLASS p608 tp609 a(g212 V) tp610 a(g212 V) tp611 a(g212 V) tp612 a(g6 V\u000a p613 tp614 a(g212 V( tp615 a(g84 Vwhen p616 tp617 a(g6 V tp618 a(g212 V( tp619 a(g84 Vand p620 tp621 a(g6 V tp622 a(g100 Vcc p623 tp624 a(g6 V tp625 a(g212 V( tp626 a(g100 Vclos::defined-class-p p627 tp628 a(g6 V tp629 a(g100 Vcc p630 tp631 a(g212 V) tp632 a(g6 V tp633 a(g212 V( tp634 a(g84 Veq p635 tp636 a(g6 V tp637 a(g212 V( tp638 a(g100 Vclos:class-name p639 tp640 a(g6 V tp641 a(g100 Vcc p642 tp643 a(g212 V) tp644 a(g6 V tp645 a(g100 Vtypespec p646 tp647 a(g212 V) tp648 a(g212 V) tp649 a(g6 V\u000a p650 tp651 a(g100 Vcc p652 tp653 a(g212 V) tp654 a(g212 V) tp655 a(g212 V) tp656 a(g6 V\u000a\u000a p657 tp658 a(g31 V;;; TYPEP, CLTL S. 72, S. 42-51 p659 tp660 a(g6 V\u000a tp661 a(g212 V( tp662 a(g84 Vdefun p663 tp664 a(g6 V tp665 a(g84 Vtypep p666 tp667 a(g6 V tp668 a(g212 V( tp669 a(g100 Vx tp670 a(g6 V tp671 a(g100 Vy tp672 a(g6 V tp673 a(g138 V&optional p674 tp675 a(g6 V tp676 a(g100 Venv p677 tp678 a(g6 V tp679 a(g138 V&aux p680 tp681 a(g6 V tp682 a(g100 Vf tp683 a(g212 V) tp684 a(g6 V tp685 a(g31 V; x = Objekt, y = Typ p686 tp687 a(g6 V\u000a p688 tp689 a(g212 V( tp690 a(g138 Vdeclare p691 tp692 a(g6 V tp693 a(g212 V( tp694 a(g138 Vignore p695 tp696 a(g6 V tp697 a(g100 Venv p698 tp699 a(g212 V) tp700 a(g212 V) tp701 a(g6 V\u000a p702 tp703 a(g212 V( tp704 a(g138 Vsetq p705 tp706 a(g6 V tp707 a(g100 Vy tp708 a(g6 V tp709 a(g212 V( tp710 a(g100 Vexpand-deftype p711 tp712 a(g6 V tp713 a(g100 Vy tp714 a(g212 V) tp715 a(g212 V) tp716 a(g6 V\u000a p717 tp718 a(g212 V( tp719 a(g84 Vcond p720 tp721 a(g6 V\u000a p722 tp723 a(g212 V( tp724 a(g212 V( tp725 a(g84 Vsymbolp p726 tp727 a(g6 V tp728 a(g100 Vy tp729 a(g212 V) tp730 a(g6 V\u000a p731 tp732 a(g212 V( tp733 a(g84 Vcond p734 tp735 a(g6 V tp736 a(g212 V( tp737 a(g212 V( tp738 a(g138 Vsetq p739 tp740 a(g6 V tp741 a(g100 Vf tp742 a(g6 V tp743 a(g212 V( tp744 a(g84 Vget p745 tp746 a(g6 V tp747 a(g100 Vy tp748 a(g6 V tp749 a(g258 V'TYPE-SYMBOL p750 tp751 a(g212 V) tp752 a(g212 V) tp753 a(g6 V tp754 a(g212 V( tp755 a(g84 Vfuncall p756 tp757 a(g6 V tp758 a(g100 Vf tp759 a(g6 V tp760 a(g100 Vx tp761 a(g212 V) tp762 a(g212 V) tp763 a(g6 V\u000a p764 tp765 a(g212 V( tp766 a(g212 V( tp767 a(g138 Vsetq p768 tp769 a(g6 V tp770 a(g100 Vf tp771 a(g6 V tp772 a(g212 V( tp773 a(g84 Vget p774 tp775 a(g6 V tp776 a(g100 Vy tp777 a(g6 V tp778 a(g258 V'TYPE-LIST p779 tp780 a(g212 V) tp781 a(g212 V) tp782 a(g6 V tp783 a(g212 V( tp784 a(g84 Vfuncall p785 tp786 a(g6 V tp787 a(g100 Vf tp788 a(g6 V tp789 a(g100 Vx tp790 a(g212 V) tp791 a(g212 V) tp792 a(g6 V\u000a p793 tp794 a(g212 V( tp795 a(g212 V( tp796 a(g138 Vsetq p797 tp798 a(g6 V tp799 a(g100 Vf tp800 a(g6 V tp801 a(g212 V( tp802 a(g84 Vget p803 tp804 a(g6 V tp805 a(g100 Vy tp806 a(g6 V tp807 a(g258 V'DEFSTRUCT-DESCRIPTION p808 tp809 a(g212 V) tp810 a(g212 V) tp811 a(g6 V tp812 a(g212 V( tp813 a(g100 Vds-typep p814 tp815 a(g6 V tp816 a(g100 Vx tp817 a(g6 V tp818 a(g100 Vy tp819 a(g6 V tp820 a(g100 Vf tp821 a(g212 V) tp822 a(g212 V) tp823 a(g6 V\u000a p824 tp825 a(g212 V( tp826 a(g212 V( tp827 a(g138 Vsetq p828 tp829 a(g6 V tp830 a(g100 Vf tp831 a(g6 V tp832 a(g212 V( tp833 a(g100 Vclos-class p834 tp835 a(g6 V tp836 a(g100 Vy tp837 a(g212 V) tp838 a(g212 V) tp839 a(g6 V\u000a p840 tp841 a(g31 V; It's not worth handling structure classes specially here. p842 tp843 a(g6 V\u000a p844 tp845 a(g212 V( tp846 a(g100 Vclos::typep-class p847 tp848 a(g6 V tp849 a(g100 Vx tp850 a(g6 V tp851 a(g100 Vf tp852 a(g212 V) tp853 a(g212 V) tp854 a(g6 V\u000a p855 tp856 a(g212 V( tp857 a(g60 Vt tp858 a(g6 V tp859 a(g212 V( tp860 a(g100 Vtypespec-error p861 tp862 a(g6 V tp863 a(g258 V'typep p864 tp865 a(g6 V tp866 a(g100 Vy tp867 a(g212 V) tp868 a(g212 V) tp869 a(g6 V\u000a p870 tp871 a(g212 V) tp872 a(g6 V p873 tp874 a(g212 V) tp875 a(g6 V\u000a p876 tp877 a(g212 V( tp878 a(g212 V( tp879 a(g84 Vand p880 tp881 a(g6 V tp882 a(g212 V( tp883 a(g84 Vconsp p884 tp885 a(g6 V tp886 a(g100 Vy tp887 a(g212 V) tp888 a(g6 V tp889 a(g212 V( tp890 a(g84 Vsymbolp p891 tp892 a(g6 V tp893 a(g212 V( tp894 a(g84 Vfirst p895 tp896 a(g6 V tp897 a(g100 Vy tp898 a(g212 V) tp899 a(g212 V) tp900 a(g212 V) tp901 a(g6 V\u000a p902 tp903 a(g212 V( tp904 a(g84 Vcond p905 tp906 a(g6 V\u000a p907 tp908 a(g212 V( tp909 a(g212 V( tp910 a(g84 Vand p911 tp912 a(g6 V tp913 a(g212 V( tp914 a(g84 Veq p915 tp916 a(g6 V tp917 a(g212 V( tp918 a(g84 Vfirst p919 tp920 a(g6 V tp921 a(g100 Vy tp922 a(g212 V) tp923 a(g6 V tp924 a(g258 V'SATISFIES p925 tp926 a(g212 V) tp927 a(g6 V tp928 a(g212 V( tp929 a(g84 Veql p930 tp931 a(g6 V tp932 a(g212 V( tp933 a(g84 Vlength p934 tp935 a(g6 V tp936 a(g100 Vy tp937 a(g212 V) tp938 a(g6 V tp939 a(g328 V2 tp940 a(g212 V) tp941 a(g212 V) tp942 a(g6 V\u000a p943 tp944 a(g212 V( tp945 a(g84 Vunless p946 tp947 a(g6 V tp948 a(g212 V( tp949 a(g84 Vsymbolp p950 tp951 a(g6 V tp952 a(g212 V( tp953 a(g84 Vsecond p954 tp955 a(g6 V tp956 a(g100 Vy tp957 a(g212 V) tp958 a(g212 V) tp959 a(g6 V\u000a p960 tp961 a(g212 V( tp962 a(g100 Verror-of-type p963 tp964 a(g6 V tp965 a(g258 V'error p966 tp967 a(g6 V\u000a p968 tp969 a(g212 V( tp970 a(g100 VTEXT p971 tp972 a(g6 V tp973 a(g236 V"~S: argument to SATISFIES must be a symbol: ~S" p974 tp975 a(g212 V) tp976 a(g6 V\u000a p977 tp978 a(g258 V'typep p979 tp980 a(g6 V tp981 a(g212 V( tp982 a(g84 Vsecond p983 tp984 a(g6 V tp985 a(g100 Vy tp986 a(g212 V) tp987 a(g6 V\u000a p988 tp989 a(g212 V) tp990 a(g6 V tp991 a(g212 V) tp992 a(g6 V\u000a p993 tp994 a(g212 V( tp995 a(g138 Vif p996 tp997 a(g6 V tp998 a(g212 V( tp999 a(g84 Vfuncall p1000 tp1001 a(g6 V tp1002 a(g212 V( tp1003 a(g84 Vsymbol-function p1004 tp1005 a(g6 V tp1006 a(g212 V( tp1007 a(g84 Vsecond p1008 tp1009 a(g6 V tp1010 a(g100 Vy tp1011 a(g212 V) tp1012 a(g212 V) tp1013 a(g6 V tp1014 a(g100 Vx tp1015 a(g212 V) tp1016 a(g6 V tp1017 a(g60 Vt tp1018 a(g6 V tp1019 a(g60 Vnil p1020 tp1021 a(g212 V) tp1022 a(g6 V\u000a p1023 tp1024 a(g212 V) tp1025 a(g6 V\u000a p1026 tp1027 a(g212 V( tp1028 a(g212 V( tp1029 a(g84 Veq p1030 tp1031 a(g6 V tp1032 a(g212 V( tp1033 a(g84 Vfirst p1034 tp1035 a(g6 V tp1036 a(g100 Vy tp1037 a(g212 V) tp1038 a(g6 V tp1039 a(g258 V'MEMBER p1040 tp1041 a(g212 V) tp1042 a(g6 V\u000a p1043 tp1044 a(g212 V( tp1045 a(g138 Vif p1046 tp1047 a(g6 V tp1048 a(g212 V( tp1049 a(g84 Vmember p1050 tp1051 a(g6 V tp1052 a(g100 Vx tp1053 a(g6 V tp1054 a(g212 V( tp1055 a(g84 Vrest p1056 tp1057 a(g6 V tp1058 a(g100 Vy tp1059 a(g212 V) tp1060 a(g212 V) tp1061 a(g6 V tp1062 a(g60 Vt tp1063 a(g6 V tp1064 a(g60 Vnil p1065 tp1066 a(g212 V) tp1067 a(g6 V\u000a p1068 tp1069 a(g212 V) tp1070 a(g6 V\u000a p1071 tp1072 a(g212 V( tp1073 a(g212 V( tp1074 a(g84 Vand p1075 tp1076 a(g6 V tp1077 a(g212 V( tp1078 a(g84 Veq p1079 tp1080 a(g6 V tp1081 a(g212 V( tp1082 a(g84 Vfirst p1083 tp1084 a(g6 V tp1085 a(g100 Vy tp1086 a(g212 V) tp1087 a(g6 V tp1088 a(g258 V'EQL p1089 tp1090 a(g212 V) tp1091 a(g6 V tp1092 a(g212 V( tp1093 a(g84 Veql p1094 tp1095 a(g6 V tp1096 a(g212 V( tp1097 a(g84 Vlength p1098 tp1099 a(g6 V tp1100 a(g100 Vy tp1101 a(g212 V) tp1102 a(g6 V tp1103 a(g328 V2 tp1104 a(g212 V) tp1105 a(g212 V) tp1106 a(g6 V\u000a p1107 tp1108 a(g212 V( tp1109 a(g84 Veql p1110 tp1111 a(g6 V tp1112 a(g100 Vx tp1113 a(g6 V tp1114 a(g212 V( tp1115 a(g84 Vsecond p1116 tp1117 a(g6 V tp1118 a(g100 Vy tp1119 a(g212 V) tp1120 a(g212 V) tp1121 a(g6 V\u000a p1122 tp1123 a(g212 V) tp1124 a(g6 V\u000a p1125 tp1126 a(g212 V( tp1127 a(g212 V( tp1128 a(g84 Vand p1129 tp1130 a(g6 V tp1131 a(g212 V( tp1132 a(g84 Veq p1133 tp1134 a(g6 V tp1135 a(g212 V( tp1136 a(g84 Vfirst p1137 tp1138 a(g6 V tp1139 a(g100 Vy tp1140 a(g212 V) tp1141 a(g6 V tp1142 a(g258 V'NOT p1143 tp1144 a(g212 V) tp1145 a(g6 V tp1146 a(g212 V( tp1147 a(g84 Veql p1148 tp1149 a(g6 V tp1150 a(g212 V( tp1151 a(g84 Vlength p1152 tp1153 a(g6 V tp1154 a(g100 Vy tp1155 a(g212 V) tp1156 a(g6 V tp1157 a(g328 V2 tp1158 a(g212 V) tp1159 a(g212 V) tp1160 a(g6 V\u000a p1161 tp1162 a(g212 V( tp1163 a(g84 Vnot p1164 tp1165 a(g6 V tp1166 a(g212 V( tp1167 a(g84 Vtypep p1168 tp1169 a(g6 V tp1170 a(g100 Vx tp1171 a(g6 V tp1172 a(g212 V( tp1173 a(g84 Vsecond p1174 tp1175 a(g6 V tp1176 a(g100 Vy tp1177 a(g212 V) tp1178 a(g212 V) tp1179 a(g212 V) tp1180 a(g6 V\u000a p1181 tp1182 a(g212 V) tp1183 a(g6 V\u000a p1184 tp1185 a(g212 V( tp1186 a(g212 V( tp1187 a(g84 Veq p1188 tp1189 a(g6 V tp1190 a(g212 V( tp1191 a(g84 Vfirst p1192 tp1193 a(g6 V tp1194 a(g100 Vy tp1195 a(g212 V) tp1196 a(g6 V tp1197 a(g258 V'AND p1198 tp1199 a(g212 V) tp1200 a(g6 V\u000a p1201 tp1202 a(g212 V( tp1203 a(g84 Vdolist p1204 tp1205 a(g6 V tp1206 a(g212 V( tp1207 a(g138 Vtype p1208 tp1209 a(g6 V tp1210 a(g212 V( tp1211 a(g84 Vrest p1212 tp1213 a(g6 V tp1214 a(g100 Vy tp1215 a(g212 V) tp1216 a(g6 V tp1217 a(g60 Vt tp1218 a(g212 V) tp1219 a(g6 V\u000a p1220 tp1221 a(g212 V( tp1222 a(g84 Vunless p1223 tp1224 a(g6 V tp1225 a(g212 V( tp1226 a(g84 Vtypep p1227 tp1228 a(g6 V tp1229 a(g100 Vx tp1230 a(g6 V tp1231 a(g138 Vtype p1232 tp1233 a(g212 V) tp1234 a(g6 V tp1235 a(g212 V( tp1236 a(g84 Vreturn p1237 tp1238 a(g6 V tp1239 a(g60 Vnil p1240 tp1241 a(g212 V) tp1242 a(g212 V) tp1243 a(g6 V\u000a p1244 tp1245 a(g212 V) tp1246 a(g6 V p1247 tp1248 a(g212 V) tp1249 a(g6 V\u000a p1250 tp1251 a(g212 V( tp1252 a(g212 V( tp1253 a(g84 Veq p1254 tp1255 a(g6 V tp1256 a(g212 V( tp1257 a(g84 Vfirst p1258 tp1259 a(g6 V tp1260 a(g100 Vy tp1261 a(g212 V) tp1262 a(g6 V tp1263 a(g258 V'OR p1264 tp1265 a(g212 V) tp1266 a(g6 V\u000a p1267 tp1268 a(g212 V( tp1269 a(g84 Vdolist p1270 tp1271 a(g6 V tp1272 a(g212 V( tp1273 a(g138 Vtype p1274 tp1275 a(g6 V tp1276 a(g212 V( tp1277 a(g84 Vrest p1278 tp1279 a(g6 V tp1280 a(g100 Vy tp1281 a(g212 V) tp1282 a(g6 V tp1283 a(g60 Vnil p1284 tp1285 a(g212 V) tp1286 a(g6 V\u000a p1287 tp1288 a(g212 V( tp1289 a(g84 Vwhen p1290 tp1291 a(g6 V tp1292 a(g212 V( tp1293 a(g84 Vtypep p1294 tp1295 a(g6 V tp1296 a(g100 Vx tp1297 a(g6 V tp1298 a(g138 Vtype p1299 tp1300 a(g212 V) tp1301 a(g6 V tp1302 a(g212 V( tp1303 a(g84 Vreturn p1304 tp1305 a(g6 V tp1306 a(g60 Vt tp1307 a(g212 V) tp1308 a(g212 V) tp1309 a(g6 V\u000a p1310 tp1311 a(g212 V) tp1312 a(g6 V p1313 tp1314 a(g212 V) tp1315 a(g6 V\u000a p1316 tp1317 a(g212 V( tp1318 a(g212 V( tp1319 a(g138 Vsetq p1320 tp1321 a(g6 V tp1322 a(g100 Vf tp1323 a(g6 V tp1324 a(g212 V( tp1325 a(g84 Vget p1326 tp1327 a(g6 V tp1328 a(g212 V( tp1329 a(g84 Vfirst p1330 tp1331 a(g6 V tp1332 a(g100 Vy tp1333 a(g212 V) tp1334 a(g6 V tp1335 a(g258 V'TYPE-LIST p1336 tp1337 a(g212 V) tp1338 a(g212 V) tp1339 a(g6 V tp1340 a(g212 V( tp1341 a(g84 Vapply p1342 tp1343 a(g6 V tp1344 a(g100 Vf tp1345 a(g6 V tp1346 a(g100 Vx tp1347 a(g6 V tp1348 a(g212 V( tp1349 a(g84 Vrest p1350 tp1351 a(g6 V tp1352 a(g100 Vy tp1353 a(g212 V) tp1354 a(g212 V) tp1355 a(g212 V) tp1356 a(g6 V\u000a p1357 tp1358 a(g212 V( tp1359 a(g60 Vt tp1360 a(g6 V tp1361 a(g212 V( tp1362 a(g100 Vtypespec-error p1363 tp1364 a(g6 V tp1365 a(g258 V'typep p1366 tp1367 a(g6 V tp1368 a(g100 Vy tp1369 a(g212 V) tp1370 a(g212 V) tp1371 a(g6 V\u000a p1372 tp1373 a(g212 V) tp1374 a(g6 V p1375 tp1376 a(g212 V) tp1377 a(g6 V\u000a p1378 tp1379 a(g212 V( tp1380 a(g212 V( tp1381 a(g100 Vclos::defined-class-p p1382 tp1383 a(g6 V tp1384 a(g100 Vy tp1385 a(g212 V) tp1386 a(g6 V tp1387 a(g212 V( tp1388 a(g100 Vclos::typep-class p1389 tp1390 a(g6 V tp1391 a(g100 Vx tp1392 a(g6 V tp1393 a(g100 Vy tp1394 a(g212 V) tp1395 a(g212 V) tp1396 a(g6 V\u000a p1397 tp1398 a(g212 V( tp1399 a(g212 V( tp1400 a(g100 Vclos::eql-specializer-p p1401 tp1402 a(g6 V tp1403 a(g100 Vy tp1404 a(g212 V) tp1405 a(g6 V tp1406 a(g212 V( tp1407 a(g84 Veql p1408 tp1409 a(g6 V tp1410 a(g100 Vx tp1411 a(g6 V tp1412 a(g212 V( tp1413 a(g100 Vclos::eql-specializer-singleton p1414 tp1415 a(g6 V tp1416 a(g100 Vy tp1417 a(g212 V) tp1418 a(g212 V) tp1419 a(g212 V) tp1420 a(g6 V\u000a p1421 tp1422 a(g212 V( tp1423 a(g212 V( tp1424 a(g100 Vencodingp p1425 tp1426 a(g6 V tp1427 a(g100 Vy tp1428 a(g212 V) tp1429 a(g6 V tp1430 a(g212 V( tp1431 a(g100 Vcharset-typep p1432 tp1433 a(g6 V tp1434 a(g100 Vx tp1435 a(g6 V tp1436 a(g100 Vy tp1437 a(g212 V) tp1438 a(g212 V) tp1439 a(g6 V\u000a p1440 tp1441 a(g212 V( tp1442 a(g60 Vt tp1443 a(g6 V tp1444 a(g212 V( tp1445 a(g100 Vtypespec-error p1446 tp1447 a(g6 V tp1448 a(g258 V'typep p1449 tp1450 a(g6 V tp1451 a(g100 Vy tp1452 a(g212 V) tp1453 a(g212 V) tp1454 a(g6 V\u000a tp1455 a(g212 V) tp1456 a(g6 V tp1457 a(g212 V) tp1458 a(g6 V\u000a\u000a p1459 tp1460 a(g31 V;; ---------------------------------------------------------------------------- p1461 tp1462 a(g6 V\u000a\u000a p1463 tp1464 a(g31 V;; UPGRADED-ARRAY-ELEMENT-TYPE is a lattice homomorphism, see p1465 tp1466 a(g6 V\u000a tp1467 a(g31 V;; ANSI CL 15.1.2.1. p1468 tp1469 a(g6 V\u000a tp1470 a(g212 V( tp1471 a(g84 Vdefun p1472 tp1473 a(g6 V tp1474 a(g84 Vupgraded-array-element-type p1475 tp1476 a(g6 V tp1477 a(g212 V( tp1478 a(g138 Vtype p1479 tp1480 a(g6 V tp1481 a(g138 V&optional p1482 tp1483 a(g6 V tp1484 a(g100 Venvironment p1485 tp1486 a(g212 V) tp1487 a(g6 V\u000a p1488 tp1489 a(g212 V( tp1490 a(g138 Vdeclare p1491 tp1492 a(g6 V tp1493 a(g212 V( tp1494 a(g138 Vignore p1495 tp1496 a(g6 V tp1497 a(g100 Venvironment p1498 tp1499 a(g212 V) tp1500 a(g212 V) tp1501 a(g6 V\u000a p1502 tp1503 a(g31 V;; see array.d p1504 tp1505 a(g6 V\u000a p1506 tp1507 a(g212 V( tp1508 a(g84 Vcase p1509 tp1510 a(g6 V tp1511 a(g138 Vtype p1512 tp1513 a(g6 V\u000a p1514 tp1515 a(g212 V( tp1516 a(g212 V( tp1517 a(g100 VBIT p1518 tp1519 a(g212 V) tp1520 a(g6 V tp1521 a(g258 V'BIT p1522 tp1523 a(g212 V) tp1524 a(g6 V\u000a p1525 tp1526 a(g212 V( tp1527 a(g212 V( tp1528 a(g100 VCHARACTER p1529 tp1530 a(g212 V) tp1531 a(g6 V tp1532 a(g258 V'CHARACTER p1533 tp1534 a(g212 V) tp1535 a(g6 V\u000a p1536 tp1537 a(g212 V( tp1538 a(g212 V( tp1539 a(g60 VT tp1540 a(g212 V) tp1541 a(g6 V tp1542 a(g258 V'T p1543 tp1544 a(g212 V) tp1545 a(g6 V\u000a p1546 tp1547 a(g212 V( tp1548 a(g212 V( tp1549 a(g60 VNIL p1550 tp1551 a(g212 V) tp1552 a(g6 V tp1553 a(g258 V'NIL p1554 tp1555 a(g212 V) tp1556 a(g6 V\u000a p1557 tp1558 a(g212 V( tp1559 a(g60 Vt tp1560 a(g6 V tp1561 a(g212 V( tp1562 a(g138 Vif p1563 tp1564 a(g6 V tp1565 a(g212 V( tp1566 a(g84 Vsubtypep p1567 tp1568 a(g6 V tp1569 a(g138 Vtype p1570 tp1571 a(g6 V tp1572 a(g258 V'NIL p1573 tp1574 a(g212 V) tp1575 a(g6 V\u000a p1576 tp1577 a(g258 V'NIL p1578 tp1579 a(g6 V\u000a p1580 tp1581 a(g212 V( tp1582 a(g84 Vmultiple-value-bind p1583 tp1584 a(g6 V tp1585 a(g212 V( tp1586 a(g100 Vlow p1587 tp1588 a(g6 V tp1589 a(g100 Vhigh p1590 tp1591 a(g212 V) tp1592 a(g6 V tp1593 a(g212 V( tp1594 a(g100 Vsys::subtype-integer p1595 tp1596 a(g6 V tp1597 a(g138 Vtype p1598 tp1599 a(g212 V) tp1600 a(g6 V\u000a p1601 tp1602 a(g31 V; Es gilt (or (null low) (subtypep type `(INTEGER ,low ,high))) p1603 tp1604 a(g6 V\u000a p1605 tp1606 a(g212 V( tp1607 a(g138 Vif p1608 tp1609 a(g6 V tp1610 a(g212 V( tp1611 a(g84 Vand p1612 tp1613 a(g6 V tp1614 a(g212 V( tp1615 a(g84 Vintegerp p1616 tp1617 a(g6 V tp1618 a(g100 Vlow p1619 tp1620 a(g212 V) tp1621 a(g6 V tp1622 a(g212 V( tp1623 a(g84 Vnot p1624 tp1625 a(g6 V tp1626 a(g212 V( tp1627 a(g84 Vminusp p1628 tp1629 a(g6 V tp1630 a(g100 Vlow p1631 tp1632 a(g212 V) tp1633 a(g212 V) tp1634 a(g6 V tp1635 a(g212 V( tp1636 a(g84 Vintegerp p1637 tp1638 a(g6 V tp1639 a(g100 Vhigh p1640 tp1641 a(g212 V) tp1642 a(g212 V) tp1643 a(g6 V\u000a p1644 tp1645 a(g212 V( tp1646 a(g138 Vlet p1647 tp1648 a(g6 V tp1649 a(g212 V( tp1650 a(g212 V( tp1651 a(g100 Vl tp1652 a(g6 V tp1653 a(g212 V( tp1654 a(g84 Vinteger-length p1655 tp1656 a(g6 V tp1657 a(g100 Vhigh p1658 tp1659 a(g212 V) tp1660 a(g212 V) tp1661 a(g212 V) tp1662 a(g6 V\u000a p1663 tp1664 a(g31 V; Es gilt (subtypep type `(UNSIGNED-BYTE ,l)) p1665 tp1666 a(g6 V\u000a p1667 tp1668 a(g212 V( tp1669 a(g84 Vcond p1670 tp1671 a(g6 V tp1672 a(g212 V( tp1673 a(g212 V( tp1674 a(g84 V<= p1675 tp1676 a(g6 V tp1677 a(g100 Vl tp1678 a(g6 V tp1679 a(g328 V1 tp1680 a(g212 V) tp1681 a(g6 V tp1682 a(g258 V'BIT p1683 tp1684 a(g212 V) tp1685 a(g6 V\u000a p1686 tp1687 a(g212 V( tp1688 a(g212 V( tp1689 a(g84 V<= p1690 tp1691 a(g6 V tp1692 a(g100 Vl tp1693 a(g6 V tp1694 a(g328 V2 tp1695 a(g212 V) tp1696 a(g6 V tp1697 a(g353 V' tp1698 a(g212 V( tp1699 a(g100 VUNSIGNED-BYTE p1700 tp1701 a(g6 V tp1702 a(g328 V2 tp1703 a(g212 V) tp1704 a(g212 V) tp1705 a(g6 V\u000a p1706 tp1707 a(g212 V( tp1708 a(g212 V( tp1709 a(g84 V<= p1710 tp1711 a(g6 V tp1712 a(g100 Vl tp1713 a(g6 V tp1714 a(g328 V4 tp1715 a(g212 V) tp1716 a(g6 V tp1717 a(g353 V' tp1718 a(g212 V( tp1719 a(g100 VUNSIGNED-BYTE p1720 tp1721 a(g6 V tp1722 a(g328 V4 tp1723 a(g212 V) tp1724 a(g212 V) tp1725 a(g6 V\u000a p1726 tp1727 a(g212 V( tp1728 a(g212 V( tp1729 a(g84 V<= p1730 tp1731 a(g6 V tp1732 a(g100 Vl tp1733 a(g6 V tp1734 a(g328 V8 tp1735 a(g212 V) tp1736 a(g6 V tp1737 a(g353 V' tp1738 a(g212 V( tp1739 a(g100 VUNSIGNED-BYTE p1740 tp1741 a(g6 V tp1742 a(g328 V8 tp1743 a(g212 V) tp1744 a(g212 V) tp1745 a(g6 V\u000a p1746 tp1747 a(g212 V( tp1748 a(g212 V( tp1749 a(g84 V<= p1750 tp1751 a(g6 V tp1752 a(g100 Vl tp1753 a(g6 V tp1754 a(g328 V16 p1755 tp1756 a(g212 V) tp1757 a(g6 V tp1758 a(g353 V' tp1759 a(g212 V( tp1760 a(g100 VUNSIGNED-BYTE p1761 tp1762 a(g6 V tp1763 a(g328 V16 p1764 tp1765 a(g212 V) tp1766 a(g212 V) tp1767 a(g6 V\u000a p1768 tp1769 a(g212 V( tp1770 a(g212 V( tp1771 a(g84 V<= p1772 tp1773 a(g6 V tp1774 a(g100 Vl tp1775 a(g6 V tp1776 a(g328 V32 p1777 tp1778 a(g212 V) tp1779 a(g6 V tp1780 a(g353 V' tp1781 a(g212 V( tp1782 a(g100 VUNSIGNED-BYTE p1783 tp1784 a(g6 V tp1785 a(g328 V32 p1786 tp1787 a(g212 V) tp1788 a(g212 V) tp1789 a(g6 V\u000a p1790 tp1791 a(g212 V( tp1792 a(g60 Vt tp1793 a(g6 V tp1794 a(g258 V'T p1795 tp1796 a(g212 V) tp1797 a(g212 V) tp1798 a(g212 V) tp1799 a(g6 V\u000a p1800 tp1801 a(g212 V( tp1802 a(g138 Vif p1803 tp1804 a(g6 V tp1805 a(g212 V( tp1806 a(g84 Vsubtypep p1807 tp1808 a(g6 V tp1809 a(g138 Vtype p1810 tp1811 a(g6 V tp1812 a(g258 V'CHARACTER p1813 tp1814 a(g212 V) tp1815 a(g6 V\u000a p1816 tp1817 a(g258 V'CHARACTER p1818 tp1819 a(g6 V\u000a p1820 tp1821 a(g258 V'T p1822 tp1823 a(g212 V) tp1824 a(g212 V) tp1825 a(g212 V) tp1826 a(g212 V) tp1827 a(g212 V) tp1828 a(g212 V) tp1829 a(g212 V) tp1830 a(g6 V\u000a\u000a p1831 tp1832 a(g31 V;; ---------------------------------------------------------------------------- p1833 tp1834 a(g6 V\u000a\u000a p1835 tp1836 a(g31 V;; UPGRADED-COMPLEX-PART-TYPE is a lattice homomorphism, see p1837 tp1838 a(g6 V\u000a tp1839 a(g31 V;; HyperSpec/Body/fun_complex.html and HyperSpec/Body/syscla_complex.html, p1840 tp1841 a(g6 V\u000a tp1842 a(g31 V;; and an idempotent. Therefore p1843 tp1844 a(g6 V\u000a tp1845 a(g31 V;; (subtypep (upgraded-complex-part-type T1) (upgraded-complex-part-type T2)) p1846 tp1847 a(g6 V\u000a tp1848 a(g31 V;; is equivalent to p1849 tp1850 a(g6 V\u000a tp1851 a(g31 V;; (subtypep T1 (upgraded-complex-part-type T2)) p1852 tp1853 a(g6 V\u000a tp1854 a(g31 V;; (Proof: Let U T be an abbreviation for (upgraded-complex-part-type T). p1855 tp1856 a(g6 V\u000a tp1857 a(g31 V;; If U T1 <= U T2, then T1 <= U T1 <= U T2. p1858 tp1859 a(g6 V\u000a tp1860 a(g31 V;; If T1 <= U T2, then by homomorphism U T1 <= U U T2 = U T2.) p1861 tp1862 a(g6 V\u000a tp1863 a(g31 V;; p1864 tp1865 a(g6 V\u000a tp1866 a(g31 V;; For _any_ CL implementation, you could define p1867 tp1868 a(g6 V\u000a tp1869 a(g31 V;; (defun upgraded-complex-part-type (type) 'REAL) p1870 tp1871 a(g6 V\u000a tp1872 a(g31 V;; Likewise for _any_ CL implementation, you could define p1873 tp1874 a(g6 V\u000a tp1875 a(g31 V;; (defun upgraded-complex-part-type (type) type) p1876 tp1877 a(g6 V\u000a tp1878 a(g31 V;; or - again for _any_ CL implementation: p1879 tp1880 a(g6 V\u000a tp1881 a(g31 V;; (defun upgraded-complex-part-type (type) p1882 tp1883 a(g6 V\u000a tp1884 a(g31 V;; (cond ((subtypep type 'NIL) 'NIL) p1885 tp1886 a(g6 V\u000a tp1887 a(g31 V;; ((subtypep type 'SHORT-FLOAT) 'SHORT-FLOAT) p1888 tp1889 a(g6 V\u000a tp1890 a(g31 V;; ((subtypep type 'SINGLE-FLOAT) 'SINGLE-FLOAT) p1891 tp1892 a(g6 V\u000a tp1893 a(g31 V;; ((subtypep type 'DOUBLE-FLOAT) 'DOUBLE-FLOAT) p1894 tp1895 a(g6 V\u000a tp1896 a(g31 V;; ((subtypep type 'LONG-FLOAT) 'LONG-FLOAT) p1897 tp1898 a(g6 V\u000a tp1899 a(g31 V;; ((subtypep type 'RATIONAL) 'RATIONAL) p1900 tp1901 a(g6 V\u000a tp1902 a(g31 V;; ((subtypep type 'REAL) 'REAL) p1903 tp1904 a(g6 V\u000a tp1905 a(g31 V;; (t (error ...)))) p1906 tp1907 a(g6 V\u000a tp1908 a(g31 V;; The reason is that a complex number is immutable: no setters for the p1909 tp1910 a(g6 V\u000a tp1911 a(g31 V;; realpart and imagpart exist. p1912 tp1913 a(g6 V\u000a tp1914 a(g31 V;; p1915 tp1916 a(g6 V\u000a tp1917 a(g31 V;; We choose the second implementation because it allows the most precise p1918 tp1919 a(g6 V\u000a tp1920 a(g31 V;; type inference. p1921 tp1922 a(g6 V\u000a tp1923 a(g212 V( tp1924 a(g84 Vdefun p1925 tp1926 a(g6 V tp1927 a(g84 Vupgraded-complex-part-type p1928 tp1929 a(g6 V tp1930 a(g212 V( tp1931 a(g138 Vtype p1932 tp1933 a(g6 V tp1934 a(g138 V&optional p1935 tp1936 a(g6 V tp1937 a(g100 Venvironment p1938 tp1939 a(g212 V) tp1940 a(g6 V\u000a p1941 tp1942 a(g212 V( tp1943 a(g138 Vdeclare p1944 tp1945 a(g6 V tp1946 a(g212 V( tp1947 a(g138 Vignore p1948 tp1949 a(g6 V tp1950 a(g100 Venvironment p1951 tp1952 a(g212 V) tp1953 a(g212 V) tp1954 a(g6 V\u000a p1955 tp1956 a(g212 V( tp1957 a(g138 Vif p1958 tp1959 a(g6 V tp1960 a(g212 V( tp1961 a(g84 Vsubtypep p1962 tp1963 a(g6 V tp1964 a(g138 Vtype p1965 tp1966 a(g6 V tp1967 a(g258 V'REAL p1968 tp1969 a(g212 V) tp1970 a(g6 V\u000a p1971 tp1972 a(g138 Vtype p1973 tp1974 a(g6 V\u000a p1975 tp1976 a(g212 V( tp1977 a(g100 Verror-of-type p1978 tp1979 a(g6 V tp1980 a(g258 V'error p1981 tp1982 a(g6 V\u000a p1983 tp1984 a(g212 V( tp1985 a(g100 VTEXT p1986 tp1987 a(g6 V tp1988 a(g236 V"~S: type ~S is not a subtype of ~S" p1989 tp1990 a(g212 V) tp1991 a(g6 V\u000a p1992 tp1993 a(g258 V'upgraded-complex-part-type p1994 tp1995 a(g6 V tp1996 a(g138 Vtype p1997 tp1998 a(g6 V tp1999 a(g258 V'real p2000 tp2001 a(g212 V) tp2002 a(g212 V) tp2003 a(g212 V) tp2004 a(g6 V\u000a\u000a p2005 tp2006 a(g31 V;; ---------------------------------------------------------------------------- p2007 tp2008 a(g6 V\u000a\u000a p2009 tp2010 a(g31 V;; Macros for defining the various built-in "atomic type specifier"s and p2011 tp2012 a(g6 V\u000a tp2013 a(g31 V;; "compound type specifier"s. The following macros add information for both p2014 tp2015 a(g6 V\u000a tp2016 a(g31 V;; the TYPEP function above and the c-TYPEP in the compiler. p2017 tp2018 a(g6 V\u000a\u000a p2019 tp2020 a(g31 V; Alist symbol -> funname, used by the compiler. p2021 tp2022 a(g6 V\u000a tp2023 a(g212 V( tp2024 a(g84 Vdefparameter p2025 tp2026 a(g6 V tp2027 a(g100 Vc-typep-alist1 p2028 tp2029 a(g6 V tp2030 a(g353 V' tp2031 a(g212 V( tp2032 a(g212 V) tp2033 a(g212 V) tp2034 a(g6 V\u000a tp2035 a(g31 V; Alist symbol -> lambdabody, used by the compiler. p2036 tp2037 a(g6 V\u000a tp2038 a(g212 V( tp2039 a(g84 Vdefparameter p2040 tp2041 a(g6 V tp2042 a(g100 Vc-typep-alist2 p2043 tp2044 a(g6 V tp2045 a(g353 V' tp2046 a(g212 V( tp2047 a(g212 V) tp2048 a(g212 V) tp2049 a(g6 V\u000a tp2050 a(g31 V; Alist symbol -> expander function, used by the compiler. p2051 tp2052 a(g6 V\u000a tp2053 a(g212 V( tp2054 a(g84 Vdefparameter p2055 tp2056 a(g6 V tp2057 a(g100 Vc-typep-alist3 p2058 tp2059 a(g6 V tp2060 a(g353 V' tp2061 a(g212 V( tp2062 a(g212 V) tp2063 a(g212 V) tp2064 a(g6 V\u000a\u000a p2065 tp2066 a(g31 V; (def-atomic-type symbol function-name) p2067 tp2068 a(g6 V\u000a tp2069 a(g31 V; defines an atomic type. The function-name designates a function taking one p2070 tp2071 a(g6 V\u000a tp2072 a(g31 V; argument and returning a generalized boolean value. It can be either a p2073 tp2074 a(g6 V\u000a tp2075 a(g31 V; symbol or a lambda expression. p2076 tp2077 a(g6 V\u000a tp2078 a(g212 V( tp2079 a(g84 Vdefmacro p2080 tp2081 a(g6 V tp2082 a(g100 Vdef-atomic-type p2083 tp2084 a(g6 V tp2085 a(g212 V( tp2086 a(g133 Vsymbol p2087 tp2088 a(g6 V tp2089 a(g100 Vfunname p2090 tp2091 a(g212 V) tp2092 a(g6 V\u000a p2093 tp2094 a(g212 V( tp2095 a(g138 Vlet p2096 tp2097 a(g6 V tp2098 a(g212 V( tp2099 a(g212 V( tp2100 a(g100 Vlambdap p2101 tp2102 a(g6 V tp2103 a(g212 V( tp2104 a(g84 Vand p2105 tp2106 a(g6 V tp2107 a(g212 V( tp2108 a(g84 Vconsp p2109 tp2110 a(g6 V tp2111 a(g100 Vfunname p2112 tp2113 a(g212 V) tp2114 a(g6 V tp2115 a(g212 V( tp2116 a(g84 Veq p2117 tp2118 a(g6 V tp2119 a(g212 V( tp2120 a(g84 Vcar p2121 tp2122 a(g6 V tp2123 a(g100 Vfunname p2124 tp2125 a(g212 V) tp2126 a(g6 V tp2127 a(g258 V'LAMBDA p2128 tp2129 a(g212 V) tp2130 a(g212 V) tp2131 a(g212 V) tp2132 a(g212 V) tp2133 a(g6 V\u000a p2134 tp2135 a(g353 V` tp2136 a(g212 V( tp2137 a(g100 VPROGN p2138 tp2139 a(g6 V\u000a p2140 tp2141 a(g212 V( tp2142 a(g100 VSETF p2143 tp2144 a(g6 V tp2145 a(g212 V( tp2146 a(g100 VGET p2147 tp2148 a(g6 V tp2149 a(g258 V',symbol p2150 tp2151 a(g6 V tp2152 a(g258 V'TYPE-SYMBOL p2153 tp2154 a(g212 V) tp2155 a(g6 V\u000a p2156 tp2157 a(g353 V, tp2158 a(g212 V( tp2159 a(g138 Vif p2160 tp2161 a(g6 V tp2162 a(g100 Vlambdap p2163 tp2164 a(g6 V\u000a p2165 tp2166 a(g353 V` tp2167 a(g212 V( tp2168 a(g100 VFUNCTION p2169 tp2170 a(g6 V tp2171 a(g353 V, tp2172 a(g212 V( tp2173 a(g100 Vconcat-pnames p2174 tp2175 a(g6 V tp2176 a(g236 V"TYPE-SYMBOL-" p2177 tp2178 a(g6 V tp2179 a(g133 Vsymbol p2180 tp2181 a(g212 V) tp2182 a(g6 V tp2183 a(g353 V, tp2184 a(g100 Vfunname p2185 tp2186 a(g212 V) tp2187 a(g6 V\u000a p2188 tp2189 a(g353 V` tp2190 a(g212 V( tp2191 a(g100 VFUNCTION p2192 tp2193 a(g6 V tp2194 a(g353 V, tp2195 a(g100 Vfunname p2196 tp2197 a(g212 V) tp2198 a(g6 V\u000a p2199 tp2200 a(g212 V) tp2201 a(g6 V\u000a p2202 tp2203 a(g212 V) tp2204 a(g6 V\u000a p2205 tp2206 a(g353 V, tp2207 a(g212 V( tp2208 a(g138 Vif p2209 tp2210 a(g6 V tp2211 a(g100 Vlambdap p2212 tp2213 a(g6 V\u000a p2214 tp2215 a(g353 V` tp2216 a(g212 V( tp2217 a(g100 VSETQ p2218 tp2219 a(g6 V tp2220 a(g100 VC-TYPEP-ALIST2 p2221 tp2222 a(g6 V\u000a p2223 tp2224 a(g212 V( tp2225 a(g100 VNCONC p2226 tp2227 a(g6 V tp2228 a(g100 VC-TYPEP-ALIST2 p2229 tp2230 a(g6 V tp2231 a(g212 V( tp2232 a(g100 VLIST p2233 tp2234 a(g6 V tp2235 a(g212 V( tp2236 a(g100 VCONS p2237 tp2238 a(g6 V tp2239 a(g258 V',symbol p2240 tp2241 a(g6 V tp2242 a(g258 V', p2243 tp2244 a(g212 V( tp2245 a(g84 Vcdr p2246 tp2247 a(g6 V tp2248 a(g100 Vfunname p2249 tp2250 a(g212 V) tp2251 a(g212 V) tp2252 a(g212 V) tp2253 a(g212 V) tp2254 a(g6 V\u000a p2255 tp2256 a(g212 V) tp2257 a(g6 V\u000a p2258 tp2259 a(g353 V` tp2260 a(g212 V( tp2261 a(g100 VSETQ p2262 tp2263 a(g6 V tp2264 a(g100 VC-TYPEP-ALIST1 p2265 tp2266 a(g6 V\u000a p2267 tp2268 a(g212 V( tp2269 a(g100 VNCONC p2270 tp2271 a(g6 V tp2272 a(g100 VC-TYPEP-ALIST1 p2273 tp2274 a(g6 V tp2275 a(g212 V( tp2276 a(g100 VLIST p2277 tp2278 a(g6 V tp2279 a(g212 V( tp2280 a(g100 VCONS p2281 tp2282 a(g6 V tp2283 a(g258 V',symbol p2284 tp2285 a(g6 V tp2286 a(g258 V',funname p2287 tp2288 a(g212 V) tp2289 a(g212 V) tp2290 a(g212 V) tp2291 a(g6 V\u000a p2292 tp2293 a(g212 V) tp2294 a(g6 V\u000a p2295 tp2296 a(g212 V) tp2297 a(g6 V\u000a p2298 tp2299 a(g258 V',symbol p2300 tp2301 a(g6 V\u000a p2302 tp2303 a(g212 V) tp2304 a(g6 V\u000a tp2305 a(g212 V) tp2306 a(g6 V tp2307 a(g212 V) tp2308 a(g6 V\u000a\u000a p2309 tp2310 a(g31 V; (def-compound-type symbol lambda-list (x) check-form typep-form c-typep-form) p2311 tp2312 a(g6 V\u000a tp2313 a(g31 V; defines a compound type. The lambda-list is of the form (&optional ...) p2314 tp2315 a(g6 V\u000a tp2316 a(g31 V; where the arguments come from the CDR of the type specifier. p2317 tp2318 a(g6 V\u000a tp2319 a(g31 V; For typep-form, x is an object. p2320 tp2321 a(g6 V\u000a tp2322 a(g31 V; For c-typep-form, x is a multiply evaluatable form (actually a gensym). p2323 tp2324 a(g6 V\u000a tp2325 a(g31 V; check-form is a form performing error checking, may call `error'. p2326 tp2327 a(g6 V\u000a tp2328 a(g31 V; typep-form should return a generalized boolean value. p2329 tp2330 a(g6 V\u000a tp2331 a(g31 V; c-typep-form should produce a form returning a generalized boolean value. p2332 tp2333 a(g6 V\u000a tp2334 a(g212 V( tp2335 a(g84 Vdefmacro p2336 tp2337 a(g6 V tp2338 a(g100 Vdef-compound-type p2339 tp2340 a(g6 V tp2341 a(g212 V( tp2342 a(g133 Vsymbol p2343 tp2344 a(g6 V tp2345 a(g100 Vlambdalist p2346 tp2347 a(g6 V tp2348 a(g212 V( tp2349 a(g100 Vvar p2350 tp2351 a(g212 V) tp2352 a(g6 V tp2353 a(g100 Vcheck-form p2354 tp2355 a(g6 V tp2356 a(g100 Vtypep-form p2357 tp2358 a(g6 V tp2359 a(g100 Vc-typep-form p2360 tp2361 a(g212 V) tp2362 a(g6 V\u000a p2363 tp2364 a(g353 V` tp2365 a(g212 V( tp2366 a(g100 VPROGN p2367 tp2368 a(g6 V\u000a p2369 tp2370 a(g212 V( tp2371 a(g100 VSETF p2372 tp2373 a(g6 V tp2374 a(g212 V( tp2375 a(g100 VGET p2376 tp2377 a(g6 V tp2378 a(g258 V',symbol p2379 tp2380 a(g6 V tp2381 a(g258 V'TYPE-LIST p2382 tp2383 a(g212 V) tp2384 a(g6 V\u000a p2385 tp2386 a(g212 V( tp2387 a(g100 VFUNCTION p2388 tp2389 a(g6 V tp2390 a(g353 V, tp2391 a(g212 V( tp2392 a(g100 Vconcat-pnames p2393 tp2394 a(g6 V tp2395 a(g236 V"TYPE-LIST-" p2396 tp2397 a(g6 V tp2398 a(g133 Vsymbol p2399 tp2400 a(g212 V) tp2401 a(g6 V\u000a p2402 tp2403 a(g212 V( tp2404 a(g100 VLAMBDA p2405 tp2406 a(g6 V tp2407 a(g212 V( tp2408 a(g353 V, tp2409 a(g100 Vvar p2410 tp2411 a(g6 V tp2412 a(g353 V,@ p2413 tp2414 a(g100 Vlambdalist p2415 tp2416 a(g212 V) tp2417 a(g6 V\u000a p2418 tp2419 a(g353 V,@ p2420 tp2421 a(g212 V( tp2422 a(g138 Vif p2423 tp2424 a(g6 V tp2425 a(g100 Vcheck-form p2426 tp2427 a(g6 V\u000a p2428 tp2429 a(g353 V` tp2430 a(g212 V( tp2431 a(g212 V( tp2432 a(g100 VMACROLET p2433 tp2434 a(g6 V tp2435 a(g212 V( tp2436 a(g212 V( tp2437 a(g100 VERROR p2438 tp2439 a(g6 V tp2440 a(g212 V( tp2441 a(g100 V&REST p2442 tp2443 a(g6 V tp2444 a(g100 VERROR-ARGS p2445 tp2446 a(g212 V) tp2447 a(g6 V\u000a p2448 tp2449 a(g212 V( tp2450 a(g100 VLIST* p2451 tp2452 a(g6 V tp2453 a(g258 V'ERROR-OF-TYPE p2454 tp2455 a(g6 V tp2456 a(g353 V' tp2457 a(g258 V'ERROR p2458 tp2459 a(g6 V tp2460 a(g100 VERROR-ARGS p2461 tp2462 a(g212 V) tp2463 a(g6 V\u000a p2464 tp2465 a(g212 V) tp2466 a(g212 V) tp2467 a(g6 V\u000a p2468 tp2469 a(g353 V, tp2470 a(g100 Vcheck-form p2471 tp2472 a(g6 V\u000a p2473 tp2474 a(g212 V) tp2475 a(g212 V) tp2476 a(g6 V\u000a p2477 tp2478 a(g212 V) tp2479 a(g6 V\u000a p2480 tp2481 a(g353 V, tp2482 a(g100 Vtypep-form p2483 tp2484 a(g6 V\u000a p2485 tp2486 a(g212 V) tp2487 a(g6 V p2488 tp2489 a(g212 V) tp2490 a(g6 V tp2491 a(g212 V) tp2492 a(g6 V\u000a p2493 tp2494 a(g212 V( tp2495 a(g100 VSETQ p2496 tp2497 a(g6 V tp2498 a(g100 VC-TYPEP-ALIST3 p2499 tp2500 a(g6 V\u000a p2501 tp2502 a(g212 V( tp2503 a(g100 VNCONC p2504 tp2505 a(g6 V tp2506 a(g100 VC-TYPEP-ALIST3 p2507 tp2508 a(g6 V\u000a p2509 tp2510 a(g212 V( tp2511 a(g100 VLIST p2512 tp2513 a(g6 V tp2514 a(g212 V( tp2515 a(g100 VCONS p2516 tp2517 a(g6 V tp2518 a(g258 V',symbol p2519 tp2520 a(g6 V\u000a p2521 tp2522 a(g48 V#' p2523 tp2524 a(g212 V( tp2525 a(g100 VLAMBDA p2526 tp2527 a(g6 V tp2528 a(g212 V( tp2529 a(g353 V, tp2530 a(g100 Vvar p2531 tp2532 a(g6 V tp2533 a(g353 V,@ p2534 tp2535 a(g100 Vlambdalist p2536 tp2537 a(g6 V tp2538 a(g100 V&REST p2539 tp2540 a(g6 V tp2541 a(g100 VILLEGAL-ARGS p2542 tp2543 a(g212 V) tp2544 a(g6 V\u000a p2545 tp2546 a(g212 V( tp2547 a(g100 VDECLARE p2548 tp2549 a(g6 V tp2550 a(g212 V( tp2551 a(g100 VIGNORE p2552 tp2553 a(g6 V tp2554 a(g100 VILLEGAL-ARGS p2555 tp2556 a(g212 V) tp2557 a(g212 V) tp2558 a(g6 V\u000a p2559 tp2560 a(g353 V,@ p2561 tp2562 a(g212 V( tp2563 a(g138 Vif p2564 tp2565 a(g6 V tp2566 a(g100 Vcheck-form p2567 tp2568 a(g6 V\u000a p2569 tp2570 a(g353 V` tp2571 a(g212 V( tp2572 a(g212 V( tp2573 a(g100 VMACROLET p2574 tp2575 a(g6 V tp2576 a(g212 V( tp2577 a(g212 V( tp2578 a(g100 VERROR p2579 tp2580 a(g6 V tp2581 a(g212 V( tp2582 a(g100 V&REST p2583 tp2584 a(g6 V tp2585 a(g100 VERROR-ARGS p2586 tp2587 a(g212 V) tp2588 a(g6 V\u000a p2589 tp2590 a(g212 V( tp2591 a(g100 VLIST p2592 tp2593 a(g6 V tp2594 a(g258 V'PROGN p2595 tp2596 a(g6 V\u000a p2597 tp2598 a(g212 V( tp2599 a(g100 VLIST* p2600 tp2601 a(g6 V tp2602 a(g258 V'C-WARN p2603 tp2604 a(g6 V tp2605 a(g100 VERROR-ARGS p2606 tp2607 a(g212 V) tp2608 a(g6 V\u000a p2609 tp2610 a(g353 V' tp2611 a(g212 V( tp2612 a(g100 VTHROW p2613 tp2614 a(g6 V tp2615 a(g258 V'C-TYPEP p2616 tp2617 a(g6 V tp2618 a(g60 VNIL p2619 tp2620 a(g212 V) tp2621 a(g6 V\u000a p2622 tp2623 a(g212 V) tp2624 a(g212 V) tp2625 a(g6 V tp2626 a(g212 V) tp2627 a(g6 V\u000a p2628 tp2629 a(g353 V, tp2630 a(g100 Vcheck-form p2631 tp2632 a(g6 V\u000a p2633 tp2634 a(g212 V) tp2635 a(g212 V) tp2636 a(g6 V\u000a p2637 tp2638 a(g212 V) tp2639 a(g6 V\u000a p2640 tp2641 a(g353 V, tp2642 a(g100 Vc-typep-form p2643 tp2644 a(g6 V\u000a p2645 tp2646 a(g212 V) tp2647 a(g6 V\u000a p2648 tp2649 a(g212 V) tp2650 a(g6 V p2651 tp2652 a(g212 V) tp2653 a(g6 V p2654 tp2655 a(g212 V) tp2656 a(g6 V p2657 tp2658 a(g212 V) tp2659 a(g6 V\u000a p2660 tp2661 a(g258 V',symbol p2662 tp2663 a(g6 V\u000a p2664 tp2665 a(g212 V) tp2666 a(g6 V\u000a tp2667 a(g212 V) tp2668 a(g6 V\u000a\u000a p2669 tp2670 a(g31 V; CLtL1 p. 43 p2671 tp2672 a(g6 V\u000a tp2673 a(g212 V( tp2674 a(g100 Vdef-atomic-type p2675 tp2676 a(g6 V tp2677 a(g100 VARRAY p2678 tp2679 a(g6 V tp2680 a(g84 Varrayp p2681 tp2682 a(g212 V) tp2683 a(g6 V\u000a tp2684 a(g212 V( tp2685 a(g100 Vdef-atomic-type p2686 tp2687 a(g6 V tp2688 a(g100 VATOM p2689 tp2690 a(g6 V tp2691 a(g84 Vatom p2692 tp2693 a(g212 V) tp2694 a(g6 V\u000a tp2695 a(g212 V( tp2696 a(g100 Vdef-atomic-type p2697 tp2698 a(g6 V tp2699 a(g100 VBASE-CHAR p2700 tp2701 a(g6 V\u000a p2702 tp2703 a(g353 V#+ p2704 tp2705 a(g100 VBASE-CHAR=CHARACTER p2706 tp2707 a(g6 V\u000a p2708 tp2709 a(g84 Vcharacterp p2710 tp2711 a(g6 V\u000a p2712 tp2713 a(g353 V#- p2714 tp2715 a(g100 VBASE-CHAR=CHARACTER p2716 tp2717 a(g6 V\u000a p2718 tp2719 a(g212 V( tp2720 a(g138 Vlambda p2721 tp2722 a(g6 V tp2723 a(g212 V( tp2724 a(g100 Vx tp2725 a(g212 V) tp2726 a(g6 V tp2727 a(g212 V( tp2728 a(g84 Vand p2729 tp2730 a(g6 V tp2731 a(g212 V( tp2732 a(g84 Vcharacterp p2733 tp2734 a(g6 V tp2735 a(g100 Vx tp2736 a(g212 V) tp2737 a(g6 V tp2738 a(g212 V( tp2739 a(g100 Vbase-char-p p2740 tp2741 a(g6 V tp2742 a(g100 Vx tp2743 a(g212 V) tp2744 a(g212 V) tp2745 a(g212 V) tp2746 a(g6 V\u000a tp2747 a(g212 V) tp2748 a(g6 V\u000a tp2749 a(g212 V( tp2750 a(g100 Vdef-atomic-type p2751 tp2752 a(g6 V tp2753 a(g100 VBASE-STRING p2754 tp2755 a(g6 V\u000a p2756 tp2757 a(g212 V( tp2758 a(g138 Vlambda p2759 tp2760 a(g6 V tp2761 a(g212 V( tp2762 a(g100 Vx tp2763 a(g212 V) tp2764 a(g6 V\u000a p2765 tp2766 a(g212 V( tp2767 a(g84 Vand p2768 tp2769 a(g6 V tp2770 a(g212 V( tp2771 a(g84 Vstringp p2772 tp2773 a(g6 V tp2774 a(g100 Vx tp2775 a(g212 V) tp2776 a(g6 V\u000a p2777 tp2778 a(g212 V( tp2779 a(g84 Veq p2780 tp2781 a(g6 V tp2782 a(g212 V( tp2783 a(g84 Varray-element-type p2784 tp2785 a(g6 V tp2786 a(g100 Vx tp2787 a(g212 V) tp2788 a(g6 V\u000a p2789 tp2790 a(g353 V#+ p2791 tp2792 a(g100 VBASE-CHAR=CHARACTER p2793 tp2794 a(g6 V tp2795 a(g258 V'CHARACTER p2796 tp2797 a(g6 V tp2798 a(g353 V#- p2799 tp2800 a(g100 VBASE-CHAR=CHARACTER p2801 tp2802 a(g6 V tp2803 a(g258 V'BASE-CHAR p2804 tp2805 a(g6 V\u000a tp2806 a(g212 V) tp2807 a(g6 V tp2808 a(g212 V) tp2809 a(g6 V tp2810 a(g212 V) tp2811 a(g6 V p2812 tp2813 a(g212 V) tp2814 a(g6 V\u000a tp2815 a(g212 V( tp2816 a(g100 Vdef-atomic-type p2817 tp2818 a(g6 V tp2819 a(g100 VBIGNUM p2820 tp2821 a(g6 V\u000a p2822 tp2823 a(g212 V( tp2824 a(g138 Vlambda p2825 tp2826 a(g6 V tp2827 a(g212 V( tp2828 a(g100 Vx tp2829 a(g212 V) tp2830 a(g6 V tp2831 a(g212 V( tp2832 a(g84 Vand p2833 tp2834 a(g6 V tp2835 a(g212 V( tp2836 a(g84 Vintegerp p2837 tp2838 a(g6 V tp2839 a(g100 Vx tp2840 a(g212 V) tp2841 a(g6 V tp2842 a(g212 V( tp2843 a(g84 Vnot p2844 tp2845 a(g6 V tp2846 a(g212 V( tp2847 a(g100 Vfixnump p2848 tp2849 a(g6 V tp2850 a(g100 Vx tp2851 a(g212 V) tp2852 a(g212 V) tp2853 a(g212 V) tp2854 a(g212 V) tp2855 a(g6 V\u000a tp2856 a(g212 V) tp2857 a(g6 V\u000a tp2858 a(g212 V( tp2859 a(g100 Vdef-atomic-type p2860 tp2861 a(g6 V tp2862 a(g100 VBIT p2863 tp2864 a(g6 V\u000a p2865 tp2866 a(g212 V( tp2867 a(g138 Vlambda p2868 tp2869 a(g6 V tp2870 a(g212 V( tp2871 a(g100 Vx tp2872 a(g212 V) tp2873 a(g6 V tp2874 a(g212 V( tp2875 a(g84 Vor p2876 tp2877 a(g6 V tp2878 a(g212 V( tp2879 a(g84 Veql p2880 tp2881 a(g6 V tp2882 a(g100 Vx tp2883 a(g6 V tp2884 a(g328 V0 tp2885 a(g212 V) tp2886 a(g6 V tp2887 a(g212 V( tp2888 a(g84 Veql p2889 tp2890 a(g6 V tp2891 a(g100 Vx tp2892 a(g6 V tp2893 a(g328 V1 tp2894 a(g212 V) tp2895 a(g212 V) tp2896 a(g212 V) tp2897 a(g6 V\u000a tp2898 a(g212 V) tp2899 a(g6 V\u000a tp2900 a(g212 V( tp2901 a(g100 Vdef-atomic-type p2902 tp2903 a(g6 V tp2904 a(g100 VBIT-VECTOR p2905 tp2906 a(g6 V tp2907 a(g84 Vbit-vector-p p2908 tp2909 a(g212 V) tp2910 a(g6 V\u000a tp2911 a(g212 V( tp2912 a(g100 Vdef-atomic-type p2913 tp2914 a(g6 V tp2915 a(g100 VBOOLEAN p2916 tp2917 a(g6 V\u000a p2918 tp2919 a(g212 V( tp2920 a(g138 Vlambda p2921 tp2922 a(g6 V tp2923 a(g212 V( tp2924 a(g100 Vx tp2925 a(g212 V) tp2926 a(g6 V tp2927 a(g212 V( tp2928 a(g84 Vor p2929 tp2930 a(g6 V tp2931 a(g212 V( tp2932 a(g84 Veq p2933 tp2934 a(g6 V tp2935 a(g100 Vx tp2936 a(g6 V tp2937 a(g258 V'nil p2938 tp2939 a(g212 V) tp2940 a(g6 V tp2941 a(g212 V( tp2942 a(g84 Veq p2943 tp2944 a(g6 V tp2945 a(g100 Vx tp2946 a(g6 V tp2947 a(g258 V't p2948 tp2949 a(g212 V) tp2950 a(g212 V) tp2951 a(g212 V) tp2952 a(g6 V\u000a tp2953 a(g212 V) tp2954 a(g6 V\u000a tp2955 a(g212 V( tp2956 a(g100 Vdef-atomic-type p2957 tp2958 a(g6 V tp2959 a(g100 VCHARACTER p2960 tp2961 a(g6 V tp2962 a(g84 Vcharacterp p2963 tp2964 a(g212 V) tp2965 a(g6 V\u000a tp2966 a(g212 V( tp2967 a(g100 Vdef-atomic-type p2968 tp2969 a(g6 V tp2970 a(g100 VCOMPILED-FUNCTION p2971 tp2972 a(g6 V tp2973 a(g84 Vcompiled-function-p p2974 tp2975 a(g212 V) tp2976 a(g6 V\u000a tp2977 a(g212 V( tp2978 a(g100 Vdef-atomic-type p2979 tp2980 a(g6 V tp2981 a(g100 VCOMPLEX p2982 tp2983 a(g6 V tp2984 a(g84 Vcomplexp p2985 tp2986 a(g212 V) tp2987 a(g6 V\u000a tp2988 a(g212 V( tp2989 a(g100 Vdef-atomic-type p2990 tp2991 a(g6 V tp2992 a(g100 VCONS p2993 tp2994 a(g6 V tp2995 a(g84 Vconsp p2996 tp2997 a(g212 V) tp2998 a(g6 V\u000a tp2999 a(g212 V( tp3000 a(g100 Vdef-atomic-type p3001 tp3002 a(g6 V tp3003 a(g100 VDOUBLE-FLOAT p3004 tp3005 a(g6 V tp3006 a(g100 Vdouble-float-p p3007 tp3008 a(g212 V) tp3009 a(g6 V\u000a tp3010 a(g212 V( tp3011 a(g100 Vdef-atomic-type p3012 tp3013 a(g6 V tp3014 a(g100 VENCODING p3015 tp3016 a(g6 V tp3017 a(g100 Vencodingp p3018 tp3019 a(g212 V) tp3020 a(g6 V\u000a tp3021 a(g212 V( tp3022 a(g100 Vdef-atomic-type p3023 tp3024 a(g6 V tp3025 a(g100 VEXTENDED-CHAR p3026 tp3027 a(g6 V\u000a p3028 tp3029 a(g353 V#+ p3030 tp3031 a(g100 VBASE-CHAR=CHARACTER p3032 tp3033 a(g6 V\u000a p3034 tp3035 a(g212 V( tp3036 a(g138 Vlambda p3037 tp3038 a(g6 V tp3039 a(g212 V( tp3040 a(g100 Vx tp3041 a(g212 V) tp3042 a(g6 V tp3043 a(g212 V( tp3044 a(g138 Vdeclare p3045 tp3046 a(g6 V tp3047 a(g212 V( tp3048 a(g138 Vignore p3049 tp3050 a(g6 V tp3051 a(g100 Vx tp3052 a(g212 V) tp3053 a(g212 V) tp3054 a(g6 V tp3055 a(g60 Vnil p3056 tp3057 a(g212 V) tp3058 a(g6 V\u000a p3059 tp3060 a(g353 V#- p3061 tp3062 a(g100 VBASE-CHAR=CHARACTER p3063 tp3064 a(g6 V\u000a p3065 tp3066 a(g212 V( tp3067 a(g138 Vlambda p3068 tp3069 a(g6 V tp3070 a(g212 V( tp3071 a(g100 Vx tp3072 a(g212 V) tp3073 a(g6 V tp3074 a(g212 V( tp3075 a(g84 Vand p3076 tp3077 a(g6 V tp3078 a(g212 V( tp3079 a(g84 Vcharacterp p3080 tp3081 a(g6 V tp3082 a(g100 Vx tp3083 a(g212 V) tp3084 a(g6 V tp3085 a(g212 V( tp3086 a(g84 Vnot p3087 tp3088 a(g6 V tp3089 a(g212 V( tp3090 a(g100 Vbase-char-p p3091 tp3092 a(g6 V tp3093 a(g100 Vx tp3094 a(g212 V) tp3095 a(g212 V) tp3096 a(g212 V) tp3097 a(g212 V) tp3098 a(g6 V\u000a tp3099 a(g212 V) tp3100 a(g6 V\u000a tp3101 a(g212 V( tp3102 a(g100 Vdef-atomic-type p3103 tp3104 a(g6 V tp3105 a(g100 VFIXNUM p3106 tp3107 a(g6 V tp3108 a(g100 Vfixnump p3109 tp3110 a(g212 V) tp3111 a(g6 V\u000a tp3112 a(g212 V( tp3113 a(g100 Vdef-atomic-type p3114 tp3115 a(g6 V tp3116 a(g100 VFLOAT p3117 tp3118 a(g6 V tp3119 a(g84 Vfloatp p3120 tp3121 a(g212 V) tp3122 a(g6 V\u000a tp3123 a(g212 V( tp3124 a(g100 Vdef-atomic-type p3125 tp3126 a(g6 V tp3127 a(g100 VFUNCTION p3128 tp3129 a(g6 V tp3130 a(g84 Vfunctionp p3131 tp3132 a(g212 V) tp3133 a(g6 V\u000a tp3134 a(g212 V( tp3135 a(g100 Vdef-atomic-type p3136 tp3137 a(g6 V tp3138 a(g100 VHASH-TABLE p3139 tp3140 a(g6 V tp3141 a(g84 Vhash-table-p p3142 tp3143 a(g212 V) tp3144 a(g6 V\u000a tp3145 a(g212 V( tp3146 a(g100 Vdef-atomic-type p3147 tp3148 a(g6 V tp3149 a(g100 VINTEGER p3150 tp3151 a(g6 V tp3152 a(g84 Vintegerp p3153 tp3154 a(g212 V) tp3155 a(g6 V\u000a tp3156 a(g212 V( tp3157 a(g100 Vdef-atomic-type p3158 tp3159 a(g6 V tp3160 a(g100 VKEYWORD p3161 tp3162 a(g6 V tp3163 a(g84 Vkeywordp p3164 tp3165 a(g212 V) tp3166 a(g6 V\u000a tp3167 a(g212 V( tp3168 a(g100 Vdef-atomic-type p3169 tp3170 a(g6 V tp3171 a(g100 VLIST p3172 tp3173 a(g6 V tp3174 a(g84 Vlistp p3175 tp3176 a(g212 V) tp3177 a(g6 V\u000a tp3178 a(g353 V#+ p3179 tp3180 a(g100 VLOGICAL-PATHNAMES p3181 tp3182 a(g6 V\u000a tp3183 a(g212 V( tp3184 a(g100 Vdef-atomic-type p3185 tp3186 a(g6 V tp3187 a(g100 VLOGICAL-PATHNAME p3188 tp3189 a(g6 V tp3190 a(g100 Vlogical-pathname-p p3191 tp3192 a(g212 V) tp3193 a(g6 V\u000a tp3194 a(g212 V( tp3195 a(g100 Vdef-atomic-type p3196 tp3197 a(g6 V tp3198 a(g100 VLONG-FLOAT p3199 tp3200 a(g6 V tp3201 a(g100 Vlong-float-p p3202 tp3203 a(g212 V) tp3204 a(g6 V\u000a tp3205 a(g212 V( tp3206 a(g100 Vdef-atomic-type p3207 tp3208 a(g6 V tp3209 a(g60 VNIL p3210 tp3211 a(g6 V\u000a p3212 tp3213 a(g212 V( tp3214 a(g138 Vlambda p3215 tp3216 a(g6 V tp3217 a(g212 V( tp3218 a(g100 Vx tp3219 a(g212 V) tp3220 a(g6 V tp3221 a(g212 V( tp3222 a(g138 Vdeclare p3223 tp3224 a(g6 V tp3225 a(g212 V( tp3226 a(g138 Vignore p3227 tp3228 a(g6 V tp3229 a(g100 Vx tp3230 a(g212 V) tp3231 a(g212 V) tp3232 a(g6 V tp3233 a(g60 Vnil p3234 tp3235 a(g212 V) tp3236 a(g6 V\u000a tp3237 a(g212 V) tp3238 a(g6 V\u000a tp3239 a(g212 V( tp3240 a(g100 Vdef-atomic-type p3241 tp3242 a(g6 V tp3243 a(g100 VNULL p3244 tp3245 a(g6 V tp3246 a(g84 Vnull p3247 tp3248 a(g212 V) tp3249 a(g6 V\u000a tp3250 a(g212 V( tp3251 a(g100 Vdef-atomic-type p3252 tp3253 a(g6 V tp3254 a(g100 VNUMBER p3255 tp3256 a(g6 V tp3257 a(g84 Vnumberp p3258 tp3259 a(g212 V) tp3260 a(g6 V\u000a tp3261 a(g212 V( tp3262 a(g100 Vdef-atomic-type p3263 tp3264 a(g6 V tp3265 a(g100 VPACKAGE p3266 tp3267 a(g6 V tp3268 a(g84 Vpackagep p3269 tp3270 a(g212 V) tp3271 a(g6 V\u000a tp3272 a(g212 V( tp3273 a(g100 Vdef-atomic-type p3274 tp3275 a(g6 V tp3276 a(g100 VPATHNAME p3277 tp3278 a(g6 V tp3279 a(g84 Vpathnamep p3280 tp3281 a(g212 V) tp3282 a(g6 V\u000a tp3283 a(g212 V( tp3284 a(g100 Vdef-atomic-type p3285 tp3286 a(g6 V tp3287 a(g100 VRANDOM-STATE p3288 tp3289 a(g6 V tp3290 a(g84 Vrandom-state-p p3291 tp3292 a(g212 V) tp3293 a(g6 V\u000a tp3294 a(g212 V( tp3295 a(g100 Vdef-atomic-type p3296 tp3297 a(g6 V tp3298 a(g100 VRATIO p3299 tp3300 a(g6 V\u000a p3301 tp3302 a(g212 V( tp3303 a(g138 Vlambda p3304 tp3305 a(g6 V tp3306 a(g212 V( tp3307 a(g100 Vx tp3308 a(g212 V) tp3309 a(g6 V tp3310 a(g212 V( tp3311 a(g84 Vand p3312 tp3313 a(g6 V tp3314 a(g212 V( tp3315 a(g84 Vrationalp p3316 tp3317 a(g6 V tp3318 a(g100 Vx tp3319 a(g212 V) tp3320 a(g6 V tp3321 a(g212 V( tp3322 a(g84 Vnot p3323 tp3324 a(g6 V tp3325 a(g212 V( tp3326 a(g84 Vintegerp p3327 tp3328 a(g6 V tp3329 a(g100 Vx tp3330 a(g212 V) tp3331 a(g212 V) tp3332 a(g212 V) tp3333 a(g212 V) tp3334 a(g6 V\u000a tp3335 a(g212 V) tp3336 a(g6 V\u000a tp3337 a(g212 V( tp3338 a(g100 Vdef-atomic-type p3339 tp3340 a(g6 V tp3341 a(g100 VRATIONAL p3342 tp3343 a(g6 V tp3344 a(g84 Vrationalp p3345 tp3346 a(g212 V) tp3347 a(g6 V\u000a tp3348 a(g212 V( tp3349 a(g100 Vdef-atomic-type p3350 tp3351 a(g6 V tp3352 a(g100 VREADTABLE p3353 tp3354 a(g6 V tp3355 a(g84 Vreadtablep p3356 tp3357 a(g212 V) tp3358 a(g6 V\u000a tp3359 a(g212 V( tp3360 a(g100 Vdef-atomic-type p3361 tp3362 a(g6 V tp3363 a(g100 VREAL p3364 tp3365 a(g6 V tp3366 a(g84 Vrealp p3367 tp3368 a(g212 V) tp3369 a(g6 V\u000a tp3370 a(g212 V( tp3371 a(g100 Vdef-atomic-type p3372 tp3373 a(g6 V tp3374 a(g100 VSEQUENCE p3375 tp3376 a(g6 V tp3377 a(g100 Vsequencep p3378 tp3379 a(g212 V) tp3380 a(g6 V\u000a tp3381 a(g212 V( tp3382 a(g100 Vdef-atomic-type p3383 tp3384 a(g6 V tp3385 a(g100 VSHORT-FLOAT p3386 tp3387 a(g6 V tp3388 a(g100 Vshort-float-p p3389 tp3390 a(g212 V) tp3391 a(g6 V\u000a tp3392 a(g212 V( tp3393 a(g100 Vdef-atomic-type p3394 tp3395 a(g6 V tp3396 a(g100 VSIMPLE-ARRAY p3397 tp3398 a(g6 V tp3399 a(g100 Vsimple-array-p p3400 tp3401 a(g212 V) tp3402 a(g6 V\u000a tp3403 a(g212 V( tp3404 a(g100 Vdef-atomic-type p3405 tp3406 a(g6 V tp3407 a(g100 VSIMPLE-BASE-STRING p3408 tp3409 a(g6 V\u000a p3410 tp3411 a(g212 V( tp3412 a(g138 Vlambda p3413 tp3414 a(g6 V tp3415 a(g212 V( tp3416 a(g100 Vx tp3417 a(g212 V) tp3418 a(g6 V\u000a p3419 tp3420 a(g212 V( tp3421 a(g84 Vand p3422 tp3423 a(g6 V tp3424 a(g212 V( tp3425 a(g84 Vsimple-string-p p3426 tp3427 a(g6 V tp3428 a(g100 Vx tp3429 a(g212 V) tp3430 a(g6 V\u000a p3431 tp3432 a(g212 V( tp3433 a(g84 Veq p3434 tp3435 a(g6 V tp3436 a(g212 V( tp3437 a(g84 Varray-element-type p3438 tp3439 a(g6 V tp3440 a(g100 Vx tp3441 a(g212 V) tp3442 a(g6 V\u000a p3443 tp3444 a(g353 V#+ p3445 tp3446 a(g100 VBASE-CHAR=CHARACTER p3447 tp3448 a(g6 V tp3449 a(g258 V'CHARACTER p3450 tp3451 a(g6 V tp3452 a(g353 V#- p3453 tp3454 a(g100 VBASE-CHAR=CHARACTER p3455 tp3456 a(g6 V tp3457 a(g258 V'BASE-CHAR p3458 tp3459 a(g6 V\u000a tp3460 a(g212 V) tp3461 a(g6 V tp3462 a(g212 V) tp3463 a(g6 V tp3464 a(g212 V) tp3465 a(g6 V p3466 tp3467 a(g212 V) tp3468 a(g6 V\u000a tp3469 a(g212 V( tp3470 a(g100 Vdef-atomic-type p3471 tp3472 a(g6 V tp3473 a(g100 VSIMPLE-BIT-VECTOR p3474 tp3475 a(g6 V tp3476 a(g84 Vsimple-bit-vector-p p3477 tp3478 a(g212 V) tp3479 a(g6 V\u000a tp3480 a(g212 V( tp3481 a(g100 Vdef-atomic-type p3482 tp3483 a(g6 V tp3484 a(g100 VSIMPLE-STRING p3485 tp3486 a(g6 V tp3487 a(g84 Vsimple-string-p p3488 tp3489 a(g212 V) tp3490 a(g6 V\u000a tp3491 a(g212 V( tp3492 a(g100 Vdef-atomic-type p3493 tp3494 a(g6 V tp3495 a(g100 VSIMPLE-VECTOR p3496 tp3497 a(g6 V tp3498 a(g84 Vsimple-vector-p p3499 tp3500 a(g212 V) tp3501 a(g6 V\u000a tp3502 a(g212 V( tp3503 a(g100 Vdef-atomic-type p3504 tp3505 a(g6 V tp3506 a(g100 VSINGLE-FLOAT p3507 tp3508 a(g6 V tp3509 a(g100 Vsingle-float-p p3510 tp3511 a(g212 V) tp3512 a(g6 V\u000a tp3513 a(g212 V( tp3514 a(g84 Vdefun p3515 tp3516 a(g6 V tp3517 a(g100 V%standard-char-p p3518 tp3519 a(g6 V tp3520 a(g212 V( tp3521 a(g100 Vx tp3522 a(g212 V) tp3523 a(g6 V tp3524 a(g212 V( tp3525 a(g84 Vand p3526 tp3527 a(g6 V tp3528 a(g212 V( tp3529 a(g84 Vcharacterp p3530 tp3531 a(g6 V tp3532 a(g100 Vx tp3533 a(g212 V) tp3534 a(g6 V tp3535 a(g212 V( tp3536 a(g84 Vstandard-char-p p3537 tp3538 a(g6 V tp3539 a(g100 Vx tp3540 a(g212 V) tp3541 a(g212 V) tp3542 a(g212 V) tp3543 a(g6 V tp3544 a(g31 V; ABI p3545 tp3546 a(g6 V\u000a tp3547 a(g212 V( tp3548 a(g100 Vdef-atomic-type p3549 tp3550 a(g6 V tp3551 a(g100 VSTANDARD-CHAR p3552 tp3553 a(g6 V tp3554 a(g100 V%standard-char-p p3555 tp3556 a(g212 V) tp3557 a(g6 V\u000a tp3558 a(g212 V( tp3559 a(g100 Vdef-atomic-type p3560 tp3561 a(g6 V tp3562 a(g100 VCLOS:STANDARD-OBJECT p3563 tp3564 a(g6 V tp3565 a(g100 Vclos::std-instance-p p3566 tp3567 a(g212 V) tp3568 a(g6 V\u000a tp3569 a(g212 V( tp3570 a(g100 Vdef-atomic-type p3571 tp3572 a(g6 V tp3573 a(g100 VSTREAM p3574 tp3575 a(g6 V tp3576 a(g84 Vstreamp p3577 tp3578 a(g212 V) tp3579 a(g6 V\u000a tp3580 a(g212 V( tp3581 a(g100 Vdef-atomic-type p3582 tp3583 a(g6 V tp3584 a(g100 VFILE-STREAM p3585 tp3586 a(g6 V tp3587 a(g100 Vfile-stream-p p3588 tp3589 a(g212 V) tp3590 a(g6 V\u000a tp3591 a(g212 V( tp3592 a(g100 Vdef-atomic-type p3593 tp3594 a(g6 V tp3595 a(g100 VSYNONYM-STREAM p3596 tp3597 a(g6 V tp3598 a(g100 Vsynonym-stream-p p3599 tp3600 a(g212 V) tp3601 a(g6 V\u000a tp3602 a(g212 V( tp3603 a(g100 Vdef-atomic-type p3604 tp3605 a(g6 V tp3606 a(g100 VBROADCAST-STREAM p3607 tp3608 a(g6 V tp3609 a(g100 Vbroadcast-stream-p p3610 tp3611 a(g212 V) tp3612 a(g6 V\u000a tp3613 a(g212 V( tp3614 a(g100 Vdef-atomic-type p3615 tp3616 a(g6 V tp3617 a(g100 VCONCATENATED-STREAM p3618 tp3619 a(g6 V tp3620 a(g100 Vconcatenated-stream-p p3621 tp3622 a(g212 V) tp3623 a(g6 V\u000a tp3624 a(g212 V( tp3625 a(g100 Vdef-atomic-type p3626 tp3627 a(g6 V tp3628 a(g100 VTWO-WAY-STREAM p3629 tp3630 a(g6 V tp3631 a(g100 Vtwo-way-stream-p p3632 tp3633 a(g212 V) tp3634 a(g6 V\u000a tp3635 a(g212 V( tp3636 a(g100 Vdef-atomic-type p3637 tp3638 a(g6 V tp3639 a(g100 VECHO-STREAM p3640 tp3641 a(g6 V tp3642 a(g100 Vecho-stream-p p3643 tp3644 a(g212 V) tp3645 a(g6 V\u000a tp3646 a(g212 V( tp3647 a(g100 Vdef-atomic-type p3648 tp3649 a(g6 V tp3650 a(g100 VSTRING-STREAM p3651 tp3652 a(g6 V tp3653 a(g100 Vstring-stream-p p3654 tp3655 a(g212 V) tp3656 a(g6 V\u000a tp3657 a(g212 V( tp3658 a(g100 Vdef-atomic-type p3659 tp3660 a(g6 V tp3661 a(g100 VSTRING p3662 tp3663 a(g6 V tp3664 a(g84 Vstringp p3665 tp3666 a(g212 V) tp3667 a(g6 V\u000a tp3668 a(g212 V( tp3669 a(g100 Vdef-atomic-type p3670 tp3671 a(g6 V tp3672 a(g100 VSTRING-CHAR p3673 tp3674 a(g6 V tp3675 a(g84 Vcharacterp p3676 tp3677 a(g212 V) tp3678 a(g6 V\u000a tp3679 a(g212 V( tp3680 a(g100 Vdef-atomic-type p3681 tp3682 a(g6 V tp3683 a(g100 VCLOS:STRUCTURE-OBJECT p3684 tp3685 a(g6 V tp3686 a(g100 Vclos::structure-object-p p3687 tp3688 a(g212 V) tp3689 a(g6 V\u000a tp3690 a(g212 V( tp3691 a(g100 Vdef-atomic-type p3692 tp3693 a(g6 V tp3694 a(g100 VSYMBOL p3695 tp3696 a(g6 V tp3697 a(g84 Vsymbolp p3698 tp3699 a(g212 V) tp3700 a(g6 V\u000a tp3701 a(g212 V( tp3702 a(g100 Vdef-atomic-type p3703 tp3704 a(g6 V tp3705 a(g60 VT tp3706 a(g6 V tp3707 a(g212 V( tp3708 a(g138 Vlambda p3709 tp3710 a(g6 V tp3711 a(g212 V( tp3712 a(g100 Vx tp3713 a(g212 V) tp3714 a(g6 V tp3715 a(g212 V( tp3716 a(g138 Vdeclare p3717 tp3718 a(g6 V tp3719 a(g212 V( tp3720 a(g138 Vignore p3721 tp3722 a(g6 V tp3723 a(g100 Vx tp3724 a(g212 V) tp3725 a(g212 V) tp3726 a(g6 V tp3727 a(g60 Vt tp3728 a(g212 V) tp3729 a(g212 V) tp3730 a(g6 V\u000a tp3731 a(g31 V;; foreign1.lisp is loaded after this file, p3732 tp3733 a(g6 V\u000a tp3734 a(g31 V;; so these symbols are not external yet p3735 tp3736 a(g6 V\u000a tp3737 a(g353 V#+ p3738 tp3739 a(g100 Vffi p3740 tp3741 a(g6 V\u000a tp3742 a(g212 V( tp3743 a(g100 Vdef-atomic-type p3744 tp3745 a(g6 V tp3746 a(g100 Vffi::foreign-function p3747 tp3748 a(g6 V\u000a p3749 tp3750 a(g212 V( tp3751 a(g138 Vlambda p3752 tp3753 a(g6 V tp3754 a(g212 V( tp3755 a(g100 Vx tp3756 a(g212 V) tp3757 a(g6 V tp3758 a(g212 V( tp3759 a(g84 Veq p3760 tp3761 a(g6 V tp3762 a(g258 V'ffi::foreign-function p3763 tp3764 a(g6 V tp3765 a(g212 V( tp3766 a(g84 Vtype-of p3767 tp3768 a(g6 V tp3769 a(g100 Vx tp3770 a(g212 V) tp3771 a(g212 V) tp3772 a(g212 V) tp3773 a(g212 V) tp3774 a(g6 V\u000a tp3775 a(g353 V#+ p3776 tp3777 a(g100 Vffi p3778 tp3779 a(g6 V\u000a tp3780 a(g212 V( tp3781 a(g100 Vdef-atomic-type p3782 tp3783 a(g6 V tp3784 a(g100 Vffi::foreign-variable p3785 tp3786 a(g6 V\u000a p3787 tp3788 a(g212 V( tp3789 a(g138 Vlambda p3790 tp3791 a(g6 V tp3792 a(g212 V( tp3793 a(g100 Vx tp3794 a(g212 V) tp3795 a(g6 V tp3796 a(g212 V( tp3797 a(g84 Veq p3798 tp3799 a(g6 V tp3800 a(g258 V'ffi::foreign-variable p3801 tp3802 a(g6 V tp3803 a(g212 V( tp3804 a(g84 Vtype-of p3805 tp3806 a(g6 V tp3807 a(g100 Vx tp3808 a(g212 V) tp3809 a(g212 V) tp3810 a(g212 V) tp3811 a(g212 V) tp3812 a(g6 V\u000a tp3813 a(g353 V#+ p3814 tp3815 a(g100 Vffi p3816 tp3817 a(g6 V\u000a tp3818 a(g212 V( tp3819 a(g100 Vdef-atomic-type p3820 tp3821 a(g6 V tp3822 a(g100 Vffi::foreign-address p3823 tp3824 a(g6 V\u000a p3825 tp3826 a(g212 V( tp3827 a(g138 Vlambda p3828 tp3829 a(g6 V tp3830 a(g212 V( tp3831 a(g100 Vx tp3832 a(g212 V) tp3833 a(g6 V tp3834 a(g212 V( tp3835 a(g84 Veq p3836 tp3837 a(g6 V tp3838 a(g258 V'ffi::foreign-address p3839 tp3840 a(g6 V tp3841 a(g212 V( tp3842 a(g84 Vtype-of p3843 tp3844 a(g6 V tp3845 a(g100 Vx tp3846 a(g212 V) tp3847 a(g212 V) tp3848 a(g212 V) tp3849 a(g212 V) tp3850 a(g6 V\u000a tp3851 a(g31 V;; see lispbibl.d (#define FOREIGN) and predtype.d (TYPE-OF): p3852 tp3853 a(g6 V\u000a tp3854 a(g353 V#+ p3855 tp3856 a(g212 V( tp3857 a(g84 Vor p3858 tp3859 a(g6 V tp3860 a(g100 Vunix p3861 tp3862 a(g6 V tp3863 a(g100 Vffi p3864 tp3865 a(g6 V tp3866 a(g100 Vaffi p3867 tp3868 a(g6 V tp3869 a(g100 Vwin32 p3870 tp3871 a(g212 V) tp3872 a(g6 V\u000a tp3873 a(g212 V( tp3874 a(g100 Vdef-atomic-type p3875 tp3876 a(g6 V tp3877 a(g100 Vforeign-pointer p3878 tp3879 a(g6 V\u000a p3880 tp3881 a(g212 V( tp3882 a(g138 Vlambda p3883 tp3884 a(g6 V tp3885 a(g212 V( tp3886 a(g100 Vx tp3887 a(g212 V) tp3888 a(g6 V tp3889 a(g212 V( tp3890 a(g84 Veq p3891 tp3892 a(g6 V tp3893 a(g258 V'foreign-pointer p3894 tp3895 a(g6 V tp3896 a(g212 V( tp3897 a(g84 Vtype-of p3898 tp3899 a(g6 V tp3900 a(g100 Vx tp3901 a(g212 V) tp3902 a(g212 V) tp3903 a(g212 V) tp3904 a(g212 V) tp3905 a(g6 V\u000a tp3906 a(g212 V( tp3907 a(g100 Vdef-atomic-type p3908 tp3909 a(g6 V tp3910 a(g100 VVECTOR p3911 tp3912 a(g6 V tp3913 a(g84 Vvectorp p3914 tp3915 a(g212 V) tp3916 a(g6 V\u000a tp3917 a(g212 V( tp3918 a(g100 Vdef-atomic-type p3919 tp3920 a(g6 V tp3921 a(g100 VPLIST p3922 tp3923 a(g6 V\u000a p3924 tp3925 a(g212 V( tp3926 a(g138 Vlambda p3927 tp3928 a(g6 V tp3929 a(g212 V( tp3930 a(g100 Vx tp3931 a(g212 V) tp3932 a(g6 V tp3933 a(g212 V( tp3934 a(g84 Vmultiple-value-bind p3935 tp3936 a(g6 V tp3937 a(g212 V( tp3938 a(g84 Vlength p3939 tp3940 a(g6 V tp3941 a(g100 Vtail p3942 tp3943 a(g212 V) tp3944 a(g6 V tp3945 a(g212 V( tp3946 a(g100 Vlist-length-dotted p3947 tp3948 a(g6 V tp3949 a(g100 Vx tp3950 a(g212 V) tp3951 a(g6 V\u000a p3952 tp3953 a(g212 V( tp3954 a(g84 Vand p3955 tp3956 a(g6 V tp3957 a(g212 V( tp3958 a(g84 Vnull p3959 tp3960 a(g6 V tp3961 a(g100 Vtail p3962 tp3963 a(g212 V) tp3964 a(g6 V tp3965 a(g212 V( tp3966 a(g84 Vevenp p3967 tp3968 a(g6 V tp3969 a(g84 Vlength p3970 tp3971 a(g212 V) tp3972 a(g212 V) tp3973 a(g212 V) tp3974 a(g212 V) tp3975 a(g212 V) tp3976 a(g6 V\u000a\u000a p3977 tp3978 a(g212 V( tp3979 a(g84 Vdefmacro p3980 tp3981 a(g6 V tp3982 a(g100 Vensure-dim p3983 tp3984 a(g6 V tp3985 a(g212 V( tp3986 a(g138 Vtype p3987 tp3988 a(g6 V tp3989 a(g100 Vdim p3990 tp3991 a(g212 V) tp3992 a(g6 V\u000a p3993 tp3994 a(g31 V;; make sure DIM is a valid dimension p3995 tp3996 a(g6 V\u000a p3997 tp3998 a(g353 V` tp3999 a(g212 V( tp4000 a(g84 Vunless p4001 tp4002 a(g6 V tp4003 a(g212 V( tp4004 a(g84 Vor p4005 tp4006 a(g6 V tp4007 a(g212 V( tp4008 a(g84 Veq p4009 tp4010 a(g6 V tp4011 a(g353 V, tp4012 a(g100 Vdim p4013 tp4014 a(g6 V tp4015 a(g258 V'* p4016 tp4017 a(g212 V) tp4018 a(g6 V tp4019 a(g212 V( tp4020 a(g84 Vtypep p4021 tp4022 a(g6 V tp4023 a(g353 V, tp4024 a(g100 Vdim p4025 tp4026 a(g6 V tp4027 a(g353 V` tp4028 a(g212 V( tp4029 a(g100 VINTEGER p4030 tp4031 a(g6 V tp4032 a(g328 V0 tp4033 a(g6 V tp4034 a(g212 V( tp4035 a(g353 V, tp4036 a(g100 VARRAY-DIMENSION-LIMIT p4037 tp4038 a(g212 V) tp4039 a(g212 V) tp4040 a(g212 V) tp4041 a(g212 V) tp4042 a(g6 V\u000a p4043 tp4044 a(g212 V( tp4045 a(g84 Verror p4046 tp4047 a(g6 V tp4048 a(g212 V( tp4049 a(g100 VTEXT p4050 tp4051 a(g6 V tp4052 a(g236 V"~S: dimension ~S is invalid" p4053 tp4054 a(g212 V) tp4055 a(g6 V tp4056 a(g258 V',type p4057 tp4058 a(g6 V tp4059 a(g353 V, tp4060 a(g100 Vdim p4061 tp4062 a(g212 V) tp4063 a(g212 V) tp4064 a(g212 V) tp4065 a(g6 V\u000a\u000a p4066 tp4067 a(g212 V( tp4068 a(g84 Vdefmacro p4069 tp4070 a(g6 V tp4071 a(g100 Vensure-rank p4072 tp4073 a(g6 V tp4074 a(g212 V( tp4075 a(g138 Vtype p4076 tp4077 a(g6 V tp4078 a(g100 Vrank p4079 tp4080 a(g212 V) tp4081 a(g6 V\u000a p4082 tp4083 a(g31 V;; make sure RANK is a valid rank p4084 tp4085 a(g6 V\u000a p4086 tp4087 a(g353 V` tp4088 a(g212 V( tp4089 a(g84 Vunless p4090 tp4091 a(g6 V tp4092 a(g212 V( tp4093 a(g84 Vtypep p4094 tp4095 a(g6 V tp4096 a(g353 V, tp4097 a(g100 Vrank p4098 tp4099 a(g6 V tp4100 a(g353 V` tp4101 a(g212 V( tp4102 a(g100 VINTEGER p4103 tp4104 a(g6 V tp4105 a(g328 V0 tp4106 a(g6 V tp4107 a(g212 V( tp4108 a(g353 V, tp4109 a(g100 VARRAY-RANK-LIMIT p4110 tp4111 a(g212 V) tp4112 a(g212 V) tp4113 a(g212 V) tp4114 a(g6 V\u000a p4115 tp4116 a(g212 V( tp4117 a(g84 Verror p4118 tp4119 a(g6 V tp4120 a(g212 V( tp4121 a(g100 VTEXT p4122 tp4123 a(g6 V tp4124 a(g236 V"~S: rank ~S is invalid" p4125 tp4126 a(g212 V) tp4127 a(g6 V tp4128 a(g258 V',type p4129 tp4130 a(g6 V tp4131 a(g353 V, tp4132 a(g100 Vrank p4133 tp4134 a(g212 V) tp4135 a(g212 V) tp4136 a(g212 V) tp4137 a(g6 V\u000a\u000a p4138 tp4139 a(g31 V; CLtL1 p. 46-50 p4140 tp4141 a(g6 V\u000a tp4142 a(g212 V( tp4143 a(g84 Vdefun p4144 tp4145 a(g6 V tp4146 a(g100 Vc-typep-array p4147 tp4148 a(g6 V tp4149 a(g212 V( tp4150 a(g100 Vtester p4151 tp4152 a(g6 V tp4153 a(g100 Vel-type p4154 tp4155 a(g6 V tp4156 a(g100 Vdims p4157 tp4158 a(g6 V tp4159 a(g100 Vx tp4160 a(g212 V) tp4161 a(g6 V\u000a p4162 tp4163 a(g353 V` tp4164 a(g212 V( tp4165 a(g100 VAND p4166 tp4167 a(g6 V tp4168 a(g212 V( tp4169 a(g353 V, tp4170 a(g100 Vtester p4171 tp4172 a(g6 V tp4173 a(g353 V, tp4174 a(g100 Vx tp4175 a(g212 V) tp4176 a(g6 V\u000a p4177 tp4178 a(g353 V,@ p4179 tp4180 a(g212 V( tp4181 a(g138 Vif p4182 tp4183 a(g6 V tp4184 a(g212 V( tp4185 a(g84 Veq p4186 tp4187 a(g6 V tp4188 a(g100 Vel-type p4189 tp4190 a(g6 V tp4191 a(g258 V'* p4192 tp4193 a(g212 V) tp4194 a(g6 V\u000a p4195 tp4196 a(g353 V' tp4197 a(g212 V( tp4198 a(g212 V) tp4199 a(g6 V\u000a p4200 tp4201 a(g353 V` tp4202 a(g212 V( tp4203 a(g212 V( tp4204 a(g100 VEQUAL p4205 tp4206 a(g6 V tp4207 a(g212 V( tp4208 a(g100 VARRAY-ELEMENT-TYPE p4209 tp4210 a(g6 V tp4211 a(g353 V, tp4212 a(g100 Vx tp4213 a(g212 V) tp4214 a(g6 V tp4215 a(g258 V', p4216 tp4217 a(g212 V( tp4218 a(g84 Vupgraded-array-element-type p4219 tp4220 a(g6 V tp4221 a(g100 Vel-type p4222 tp4223 a(g212 V) tp4224 a(g212 V) tp4225 a(g212 V) tp4226 a(g6 V\u000a p4227 tp4228 a(g212 V) tp4229 a(g6 V\u000a p4230 tp4231 a(g353 V,@ p4232 tp4233 a(g212 V( tp4234 a(g138 Vif p4235 tp4236 a(g6 V tp4237 a(g212 V( tp4238 a(g84 Veq p4239 tp4240 a(g6 V tp4241 a(g100 Vdims p4242 tp4243 a(g6 V tp4244 a(g258 V'* p4245 tp4246 a(g212 V) tp4247 a(g6 V\u000a p4248 tp4249 a(g353 V' tp4250 a(g212 V( tp4251 a(g212 V) tp4252 a(g6 V\u000a p4253 tp4254 a(g212 V( tp4255 a(g138 Vif p4256 tp4257 a(g6 V tp4258 a(g212 V( tp4259 a(g84 Vnumberp p4260 tp4261 a(g6 V tp4262 a(g100 Vdims p4263 tp4264 a(g212 V) tp4265 a(g6 V\u000a p4266 tp4267 a(g353 V` tp4268 a(g212 V( tp4269 a(g212 V( tp4270 a(g100 VEQL p4271 tp4272 a(g6 V tp4273 a(g353 V, tp4274 a(g100 Vdims p4275 tp4276 a(g6 V tp4277 a(g212 V( tp4278 a(g100 VARRAY-RANK p4279 tp4280 a(g6 V tp4281 a(g353 V, tp4282 a(g100 Vx tp4283 a(g212 V) tp4284 a(g212 V) tp4285 a(g212 V) tp4286 a(g6 V\u000a p4287 tp4288 a(g353 V` tp4289 a(g212 V( tp4290 a(g212 V( tp4291 a(g100 VEQL p4292 tp4293 a(g6 V tp4294 a(g353 V, tp4295 a(g212 V( tp4296 a(g84 Vlength p4297 tp4298 a(g6 V tp4299 a(g100 Vdims p4300 tp4301 a(g212 V) tp4302 a(g6 V tp4303 a(g212 V( tp4304 a(g100 VARRAY-RANK p4305 tp4306 a(g6 V tp4307 a(g353 V, tp4308 a(g100 Vx tp4309 a(g212 V) tp4310 a(g212 V) tp4311 a(g6 V\u000a p4312 tp4313 a(g353 V,@ p4314 tp4315 a(g212 V( tp4316 a(g138 Vlet p4317 tp4318 a(g6 V tp4319 a(g212 V( tp4320 a(g212 V( tp4321 a(g100 Vi tp4322 a(g6 V tp4323 a(g328 V0 tp4324 a(g212 V) tp4325 a(g212 V) tp4326 a(g6 V\u000a p4327 tp4328 a(g212 V( tp4329 a(g100 Vmapcap p4330 tp4331 a(g6 V tp4332 a(g48 V#' p4333 tp4334 a(g212 V( tp4335 a(g138 Vlambda p4336 tp4337 a(g6 V tp4338 a(g212 V( tp4339 a(g100 Vdim p4340 tp4341 a(g212 V) tp4342 a(g6 V\u000a p4343 tp4344 a(g212 V( tp4345 a(g84 Vprog1 p4346 tp4347 a(g6 V\u000a p4348 tp4349 a(g212 V( tp4350 a(g138 Vif p4351 tp4352 a(g6 V tp4353 a(g212 V( tp4354 a(g84 Veq p4355 tp4356 a(g6 V tp4357 a(g100 Vdim p4358 tp4359 a(g6 V tp4360 a(g258 V'* p4361 tp4362 a(g212 V) tp4363 a(g6 V\u000a p4364 tp4365 a(g353 V' tp4366 a(g212 V( tp4367 a(g212 V) tp4368 a(g6 V\u000a p4369 tp4370 a(g353 V` tp4371 a(g212 V( tp4372 a(g212 V( tp4373 a(g100 VEQL p4374 tp4375 a(g6 V tp4376 a(g258 V',dim p4377 tp4378 a(g6 V tp4379 a(g212 V( tp4380 a(g100 VARRAY-DIMENSION p4381 tp4382 a(g6 V tp4383 a(g353 V, tp4384 a(g100 Vx tp4385 a(g6 V tp4386 a(g353 V, tp4387 a(g100 Vi tp4388 a(g212 V) tp4389 a(g212 V) tp4390 a(g212 V) tp4391 a(g6 V\u000a p4392 tp4393 a(g212 V) tp4394 a(g6 V\u000a p4395 tp4396 a(g212 V( tp4397 a(g84 Vincf p4398 tp4399 a(g6 V tp4400 a(g100 Vi tp4401 a(g212 V) tp4402 a(g6 V\u000a p4403 tp4404 a(g212 V) tp4405 a(g6 V tp4406 a(g212 V) tp4407 a(g6 V\u000a p4408 tp4409 a(g100 Vdims p4410 tp4411 a(g6 V\u000a p4412 tp4413 a(g212 V) tp4414 a(g6 V tp4415 a(g212 V) tp4416 a(g6 V\u000a p4417 tp4418 a(g212 V) tp4419 a(g6 V\u000a p4420 tp4421 a(g212 V) tp4422 a(g6 V tp4423 a(g212 V) tp4424 a(g6 V\u000a p4425 tp4426 a(g212 V) tp4427 a(g6 V\u000a tp4428 a(g212 V) tp4429 a(g6 V\u000a tp4430 a(g212 V( tp4431 a(g84 Vdefun p4432 tp4433 a(g6 V tp4434 a(g100 Vc-typep-vector p4435 tp4436 a(g6 V tp4437 a(g212 V( tp4438 a(g100 Vtester p4439 tp4440 a(g6 V tp4441 a(g100 Vsize p4442 tp4443 a(g6 V tp4444 a(g100 Vx tp4445 a(g212 V) tp4446 a(g6 V\u000a p4447 tp4448 a(g353 V` tp4449 a(g212 V( tp4450 a(g100 VAND p4451 tp4452 a(g6 V tp4453 a(g212 V( tp4454 a(g353 V, tp4455 a(g100 Vtester p4456 tp4457 a(g6 V tp4458 a(g353 V, tp4459 a(g100 Vx tp4460 a(g212 V) tp4461 a(g6 V\u000a p4462 tp4463 a(g353 V,@ p4464 tp4465 a(g212 V( tp4466 a(g138 Vif p4467 tp4468 a(g6 V tp4469 a(g212 V( tp4470 a(g84 Veq p4471 tp4472 a(g6 V tp4473 a(g100 Vsize p4474 tp4475 a(g6 V tp4476 a(g258 V'* p4477 tp4478 a(g212 V) tp4479 a(g6 V\u000a p4480 tp4481 a(g353 V' tp4482 a(g212 V( tp4483 a(g212 V) tp4484 a(g6 V\u000a p4485 tp4486 a(g353 V` tp4487 a(g212 V( tp4488 a(g212 V( tp4489 a(g100 VEQL p4490 tp4491 a(g6 V tp4492 a(g258 V',size p4493 tp4494 a(g6 V tp4495 a(g212 V( tp4496 a(g100 VARRAY-DIMENSION p4497 tp4498 a(g6 V tp4499 a(g353 V, tp4500 a(g100 Vx tp4501 a(g6 V tp4502 a(g328 V0 tp4503 a(g212 V) tp4504 a(g212 V) tp4505 a(g212 V) tp4506 a(g6 V\u000a p4507 tp4508 a(g212 V) tp4509 a(g6 V\u000a p4510 tp4511 a(g212 V) tp4512 a(g6 V\u000a tp4513 a(g212 V) tp4514 a(g6 V\u000a tp4515 a(g212 V( tp4516 a(g84 Vdefun p4517 tp4518 a(g6 V tp4519 a(g100 Vtypep-number-test p4520 tp4521 a(g6 V tp4522 a(g212 V( tp4523 a(g100 Vx tp4524 a(g6 V tp4525 a(g100 Vlow p4526 tp4527 a(g6 V tp4528 a(g100 Vhigh p4529 tp4530 a(g6 V tp4531 a(g100 Vtest p4532 tp4533 a(g6 V tp4534 a(g138 Vtype p4535 tp4536 a(g212 V) tp4537 a(g6 V\u000a p4538 tp4539 a(g212 V( tp4540 a(g84 Vand p4541 tp4542 a(g6 V tp4543 a(g212 V( tp4544 a(g84 Vfuncall p4545 tp4546 a(g6 V tp4547 a(g100 Vtest p4548 tp4549 a(g6 V tp4550 a(g100 Vx tp4551 a(g212 V) tp4552 a(g6 V\u000a p4553 tp4554 a(g212 V( tp4555 a(g84 Vcond p4556 tp4557 a(g6 V tp4558 a(g212 V( tp4559 a(g212 V( tp4560 a(g84 Veq p4561 tp4562 a(g6 V tp4563 a(g100 Vlow p4564 tp4565 a(g6 V tp4566 a(g258 V'* p4567 tp4568 a(g212 V) tp4569 a(g212 V) tp4570 a(g6 V\u000a p4571 tp4572 a(g212 V( tp4573 a(g212 V( tp4574 a(g84 Vfuncall p4575 tp4576 a(g6 V tp4577 a(g100 Vtest p4578 tp4579 a(g6 V tp4580 a(g100 Vlow p4581 tp4582 a(g212 V) tp4583 a(g6 V tp4584 a(g212 V( tp4585 a(g84 V<= p4586 tp4587 a(g6 V tp4588 a(g100 Vlow p4589 tp4590 a(g6 V tp4591 a(g100 Vx tp4592 a(g212 V) tp4593 a(g212 V) tp4594 a(g6 V\u000a p4595 tp4596 a(g212 V( tp4597 a(g212 V( tp4598 a(g84 Vand p4599 tp4600 a(g6 V tp4601 a(g212 V( tp4602 a(g84 Vconsp p4603 tp4604 a(g6 V tp4605 a(g100 Vlow p4606 tp4607 a(g212 V) tp4608 a(g6 V tp4609 a(g212 V( tp4610 a(g84 Vnull p4611 tp4612 a(g6 V tp4613 a(g212 V( tp4614 a(g84 Vrest p4615 tp4616 a(g6 V tp4617 a(g100 Vlow p4618 tp4619 a(g212 V) tp4620 a(g212 V) tp4621 a(g6 V tp4622 a(g212 V( tp4623 a(g84 Vfuncall p4624 tp4625 a(g6 V tp4626 a(g100 Vtest p4627 tp4628 a(g6 V tp4629 a(g212 V( tp4630 a(g84 Vfirst p4631 tp4632 a(g6 V tp4633 a(g100 Vlow p4634 tp4635 a(g212 V) tp4636 a(g212 V) tp4637 a(g212 V) tp4638 a(g6 V\u000a p4639 tp4640 a(g212 V( tp4641 a(g84 V< tp4642 a(g6 V tp4643 a(g212 V( tp4644 a(g84 Vfirst p4645 tp4646 a(g6 V tp4647 a(g100 Vlow p4648 tp4649 a(g212 V) tp4650 a(g6 V tp4651 a(g100 Vx tp4652 a(g212 V) tp4653 a(g6 V\u000a p4654 tp4655 a(g212 V) tp4656 a(g6 V\u000a p4657 tp4658 a(g212 V( tp4659 a(g60 Vt tp4660 a(g6 V tp4661 a(g212 V( tp4662 a(g100 Verror-of-type p4663 tp4664 a(g6 V tp4665 a(g258 V'error p4666 tp4667 a(g6 V\u000a p4668 tp4669 a(g353 V#1= p4670 tp4671 a(g212 V( tp4672 a(g100 VTEXT p4673 tp4674 a(g6 V tp4675 a(g236 V"~S: argument to ~S must be *, ~S or a list of ~S: ~S" p4676 tp4677 a(g212 V) tp4678 a(g6 V\u000a p4679 tp4680 a(g258 V'typep p4681 tp4682 a(g6 V tp4683 a(g138 Vtype p4684 tp4685 a(g6 V tp4686 a(g138 Vtype p4687 tp4688 a(g6 V tp4689 a(g138 Vtype p4690 tp4691 a(g6 V tp4692 a(g100 Vlow p4693 tp4694 a(g6 V\u000a p4695 tp4696 a(g212 V) tp4697 a(g6 V p4698 tp4699 a(g212 V) tp4700 a(g6 V p4701 tp4702 a(g212 V) tp4703 a(g6 V\u000a p4704 tp4705 a(g212 V( tp4706 a(g84 Vcond p4707 tp4708 a(g6 V tp4709 a(g212 V( tp4710 a(g212 V( tp4711 a(g84 Veq p4712 tp4713 a(g6 V tp4714 a(g100 Vhigh p4715 tp4716 a(g6 V tp4717 a(g258 V'* p4718 tp4719 a(g212 V) tp4720 a(g212 V) tp4721 a(g6 V\u000a p4722 tp4723 a(g212 V( tp4724 a(g212 V( tp4725 a(g84 Vfuncall p4726 tp4727 a(g6 V tp4728 a(g100 Vtest p4729 tp4730 a(g6 V tp4731 a(g100 Vhigh p4732 tp4733 a(g212 V) tp4734 a(g6 V tp4735 a(g212 V( tp4736 a(g84 V>= p4737 tp4738 a(g6 V tp4739 a(g100 Vhigh p4740 tp4741 a(g6 V tp4742 a(g100 Vx tp4743 a(g212 V) tp4744 a(g212 V) tp4745 a(g6 V\u000a p4746 tp4747 a(g212 V( tp4748 a(g212 V( tp4749 a(g84 Vand p4750 tp4751 a(g6 V tp4752 a(g212 V( tp4753 a(g84 Vconsp p4754 tp4755 a(g6 V tp4756 a(g100 Vhigh p4757 tp4758 a(g212 V) tp4759 a(g6 V tp4760 a(g212 V( tp4761 a(g84 Vnull p4762 tp4763 a(g6 V tp4764 a(g212 V( tp4765 a(g84 Vrest p4766 tp4767 a(g6 V tp4768 a(g100 Vhigh p4769 tp4770 a(g212 V) tp4771 a(g212 V) tp4772 a(g6 V tp4773 a(g212 V( tp4774 a(g84 Vfuncall p4775 tp4776 a(g6 V tp4777 a(g100 Vtest p4778 tp4779 a(g6 V tp4780 a(g212 V( tp4781 a(g84 Vfirst p4782 tp4783 a(g6 V tp4784 a(g100 Vhigh p4785 tp4786 a(g212 V) tp4787 a(g212 V) tp4788 a(g212 V) tp4789 a(g6 V\u000a p4790 tp4791 a(g212 V( tp4792 a(g84 V> tp4793 a(g6 V tp4794 a(g212 V( tp4795 a(g84 Vfirst p4796 tp4797 a(g6 V tp4798 a(g100 Vhigh p4799 tp4800 a(g212 V) tp4801 a(g6 V tp4802 a(g100 Vx tp4803 a(g212 V) tp4804 a(g6 V\u000a p4805 tp4806 a(g212 V) tp4807 a(g6 V\u000a p4808 tp4809 a(g212 V( tp4810 a(g60 Vt tp4811 a(g6 V tp4812 a(g212 V( tp4813 a(g100 Verror-of-type p4814 tp4815 a(g6 V tp4816 a(g258 V'error p4817 tp4818 a(g6 V\u000a p4819 tp4820 a(g353 V#1# p4821 tp4822 a(g6 V tp4823 a(g258 V'typep p4824 tp4825 a(g6 V tp4826 a(g138 Vtype p4827 tp4828 a(g6 V tp4829 a(g138 Vtype p4830 tp4831 a(g6 V tp4832 a(g138 Vtype p4833 tp4834 a(g6 V tp4835 a(g100 Vhigh p4836 tp4837 a(g6 V\u000a tp4838 a(g212 V) tp4839 a(g6 V tp4840 a(g212 V) tp4841 a(g6 V p4842 tp4843 a(g212 V) tp4844 a(g6 V p4845 tp4846 a(g212 V) tp4847 a(g6 V p4848 tp4849 a(g212 V) tp4850 a(g6 V\u000a tp4851 a(g212 V( tp4852 a(g84 Vdefun p4853 tp4854 a(g6 V tp4855 a(g100 Vc-typep-number p4856 tp4857 a(g6 V tp4858 a(g212 V( tp4859 a(g100 Vcaller p4860 tp4861 a(g6 V tp4862 a(g100 Vtester p4863 tp4864 a(g6 V tp4865 a(g100 Vlow p4866 tp4867 a(g6 V tp4868 a(g100 Vhigh p4869 tp4870 a(g6 V tp4871 a(g100 Vx tp4872 a(g212 V) tp4873 a(g6 V\u000a p4874 tp4875 a(g353 V` tp4876 a(g212 V( tp4877 a(g100 VAND p4878 tp4879 a(g6 V tp4880 a(g212 V( tp4881 a(g353 V, tp4882 a(g100 Vtester p4883 tp4884 a(g6 V tp4885 a(g353 V, tp4886 a(g100 Vx tp4887 a(g212 V) tp4888 a(g6 V\u000a p4889 tp4890 a(g353 V,@ p4891 tp4892 a(g212 V( tp4893 a(g84 Vcond p4894 tp4895 a(g6 V tp4896 a(g212 V( tp4897 a(g212 V( tp4898 a(g84 Veq p4899 tp4900 a(g6 V tp4901 a(g100 Vlow p4902 tp4903 a(g6 V tp4904 a(g258 V'* p4905 tp4906 a(g212 V) tp4907 a(g6 V tp4908 a(g353 V' tp4909 a(g212 V( tp4910 a(g212 V) tp4911 a(g212 V) tp4912 a(g6 V\u000a p4913 tp4914 a(g212 V( tp4915 a(g212 V( tp4916 a(g84 Vfuncall p4917 tp4918 a(g6 V tp4919 a(g100 Vtester p4920 tp4921 a(g6 V tp4922 a(g100 Vlow p4923 tp4924 a(g212 V) tp4925 a(g6 V tp4926 a(g353 V` tp4927 a(g212 V( tp4928 a(g212 V( tp4929 a(g84 V<= p4930 tp4931 a(g6 V tp4932 a(g353 V, tp4933 a(g100 Vlow p4934 tp4935 a(g6 V tp4936 a(g353 V, tp4937 a(g100 Vx tp4938 a(g212 V) tp4939 a(g212 V) tp4940 a(g212 V) tp4941 a(g6 V\u000a p4942 tp4943 a(g212 V( tp4944 a(g212 V( tp4945 a(g84 Vand p4946 tp4947 a(g6 V tp4948 a(g212 V( tp4949 a(g84 Vconsp p4950 tp4951 a(g6 V tp4952 a(g100 Vlow p4953 tp4954 a(g212 V) tp4955 a(g6 V tp4956 a(g212 V( tp4957 a(g84 Vnull p4958 tp4959 a(g6 V tp4960 a(g212 V( tp4961 a(g84 Vrest p4962 tp4963 a(g6 V tp4964 a(g100 Vlow p4965 tp4966 a(g212 V) tp4967 a(g212 V) tp4968 a(g6 V tp4969 a(g212 V( tp4970 a(g84 Vfuncall p4971 tp4972 a(g6 V tp4973 a(g100 Vtester p4974 tp4975 a(g6 V tp4976 a(g212 V( tp4977 a(g84 Vfirst p4978 tp4979 a(g6 V tp4980 a(g100 Vlow p4981 tp4982 a(g212 V) tp4983 a(g212 V) tp4984 a(g212 V) tp4985 a(g6 V\u000a p4986 tp4987 a(g353 V` tp4988 a(g212 V( tp4989 a(g212 V( tp4990 a(g84 V< tp4991 a(g6 V tp4992 a(g353 V, tp4993 a(g212 V( tp4994 a(g84 Vfirst p4995 tp4996 a(g6 V tp4997 a(g100 Vlow p4998 tp4999 a(g212 V) tp5000 a(g6 V tp5001 a(g353 V, tp5002 a(g100 Vx tp5003 a(g212 V) tp5004 a(g212 V) tp5005 a(g6 V\u000a p5006 tp5007 a(g212 V) tp5008 a(g6 V\u000a p5009 tp5010 a(g212 V( tp5011 a(g60 Vt tp5012 a(g6 V tp5013 a(g212 V( tp5014 a(g100 Vc-warn p5015 tp5016 a(g6 V tp5017 a(g353 V#1= p5018 tp5019 a(g212 V( tp5020 a(g100 VTEXT p5021 tp5022 a(g6 V tp5023 a(g236 V"~S: argument to ~S must be *, ~S or a list of ~S: ~S" p5024 tp5025 a(g212 V) tp5026 a(g6 V\u000a p5027 tp5028 a(g258 V'typep p5029 tp5030 a(g6 V tp5031 a(g100 Vcaller p5032 tp5033 a(g6 V tp5034 a(g100 Vcaller p5035 tp5036 a(g6 V tp5037 a(g100 Vcaller p5038 tp5039 a(g6 V tp5040 a(g100 Vlow p5041 tp5042 a(g6 V\u000a p5043 tp5044 a(g212 V) tp5045 a(g6 V\u000a p5046 tp5047 a(g212 V( tp5048 a(g138 Vthrow p5049 tp5050 a(g6 V tp5051 a(g258 V'c-TYPEP p5052 tp5053 a(g6 V tp5054 a(g60 Vnil p5055 tp5056 a(g212 V) tp5057 a(g6 V\u000a p5058 tp5059 a(g212 V) tp5060 a(g6 V p5061 tp5062 a(g212 V) tp5063 a(g6 V\u000a p5064 tp5065 a(g353 V,@ p5066 tp5067 a(g212 V( tp5068 a(g84 Vcond p5069 tp5070 a(g6 V tp5071 a(g212 V( tp5072 a(g212 V( tp5073 a(g84 Veq p5074 tp5075 a(g6 V tp5076 a(g100 Vhigh p5077 tp5078 a(g6 V tp5079 a(g258 V'* p5080 tp5081 a(g212 V) tp5082 a(g6 V tp5083 a(g353 V' tp5084 a(g212 V( tp5085 a(g212 V) tp5086 a(g212 V) tp5087 a(g6 V\u000a p5088 tp5089 a(g212 V( tp5090 a(g212 V( tp5091 a(g84 Vfuncall p5092 tp5093 a(g6 V tp5094 a(g100 Vtester p5095 tp5096 a(g6 V tp5097 a(g100 Vhigh p5098 tp5099 a(g212 V) tp5100 a(g6 V tp5101 a(g353 V` tp5102 a(g212 V( tp5103 a(g212 V( tp5104 a(g84 V>= p5105 tp5106 a(g6 V tp5107 a(g353 V, tp5108 a(g100 Vhigh p5109 tp5110 a(g6 V tp5111 a(g353 V, tp5112 a(g100 Vx tp5113 a(g212 V) tp5114 a(g212 V) tp5115 a(g212 V) tp5116 a(g6 V\u000a p5117 tp5118 a(g212 V( tp5119 a(g212 V( tp5120 a(g84 Vand p5121 tp5122 a(g6 V tp5123 a(g212 V( tp5124 a(g84 Vconsp p5125 tp5126 a(g6 V tp5127 a(g100 Vhigh p5128 tp5129 a(g212 V) tp5130 a(g6 V tp5131 a(g212 V( tp5132 a(g84 Vnull p5133 tp5134 a(g6 V tp5135 a(g212 V( tp5136 a(g84 Vrest p5137 tp5138 a(g6 V tp5139 a(g100 Vhigh p5140 tp5141 a(g212 V) tp5142 a(g212 V) tp5143 a(g6 V tp5144 a(g212 V( tp5145 a(g84 Vfuncall p5146 tp5147 a(g6 V tp5148 a(g100 Vtester p5149 tp5150 a(g6 V tp5151 a(g212 V( tp5152 a(g84 Vfirst p5153 tp5154 a(g6 V tp5155 a(g100 Vhigh p5156 tp5157 a(g212 V) tp5158 a(g212 V) tp5159 a(g212 V) tp5160 a(g6 V\u000a p5161 tp5162 a(g353 V` tp5163 a(g212 V( tp5164 a(g212 V( tp5165 a(g84 V> tp5166 a(g6 V tp5167 a(g353 V, tp5168 a(g212 V( tp5169 a(g84 Vfirst p5170 tp5171 a(g6 V tp5172 a(g100 Vhigh p5173 tp5174 a(g212 V) tp5175 a(g6 V tp5176 a(g353 V, tp5177 a(g100 Vx tp5178 a(g212 V) tp5179 a(g212 V) tp5180 a(g6 V\u000a p5181 tp5182 a(g212 V) tp5183 a(g6 V\u000a p5184 tp5185 a(g212 V( tp5186 a(g60 Vt tp5187 a(g6 V tp5188 a(g212 V( tp5189 a(g100 Vc-warn p5190 tp5191 a(g6 V tp5192 a(g353 V#1# p5193 tp5194 a(g6 V tp5195 a(g258 V'typep p5196 tp5197 a(g6 V tp5198 a(g100 Vcaller p5199 tp5200 a(g6 V tp5201 a(g100 Vcaller p5202 tp5203 a(g6 V tp5204 a(g100 Vcaller p5205 tp5206 a(g6 V tp5207 a(g100 Vhigh p5208 tp5209 a(g212 V) tp5210 a(g6 V\u000a p5211 tp5212 a(g212 V( tp5213 a(g138 Vthrow p5214 tp5215 a(g6 V tp5216 a(g258 V'c-TYPEP p5217 tp5218 a(g6 V tp5219 a(g60 Vnil p5220 tp5221 a(g212 V) tp5222 a(g6 V\u000a p5223 tp5224 a(g212 V) tp5225 a(g6 V p5226 tp5227 a(g212 V) tp5228 a(g6 V\u000a p5229 tp5230 a(g212 V) tp5231 a(g6 V\u000a tp5232 a(g212 V) tp5233 a(g6 V\u000a tp5234 a(g212 V( tp5235 a(g100 Vdef-compound-type p5236 tp5237 a(g6 V tp5238 a(g100 VARRAY p5239 tp5240 a(g6 V tp5241 a(g212 V( tp5242 a(g138 V&optional p5243 tp5244 a(g6 V tp5245 a(g212 V( tp5246 a(g100 Vel-type p5247 tp5248 a(g6 V tp5249 a(g258 V'* p5250 tp5251 a(g212 V) tp5252 a(g6 V tp5253 a(g212 V( tp5254 a(g100 Vdims p5255 tp5256 a(g6 V tp5257 a(g258 V'* p5258 tp5259 a(g212 V) tp5260 a(g212 V) tp5261 a(g6 V tp5262 a(g212 V( tp5263 a(g100 Vx tp5264 a(g212 V) tp5265 a(g6 V\u000a p5266 tp5267 a(g212 V( tp5268 a(g84 Vunless p5269 tp5270 a(g6 V tp5271 a(g212 V( tp5272 a(g84 Veq p5273 tp5274 a(g6 V tp5275 a(g100 Vdims p5276 tp5277 a(g6 V tp5278 a(g258 V'* p5279 tp5280 a(g212 V) tp5281 a(g6 V\u000a p5282 tp5283 a(g212 V( tp5284 a(g138 Vif p5285 tp5286 a(g6 V tp5287 a(g212 V( tp5288 a(g84 Vnumberp p5289 tp5290 a(g6 V tp5291 a(g100 Vdims p5292 tp5293 a(g212 V) tp5294 a(g6 V\u000a p5295 tp5296 a(g212 V( tp5297 a(g100 Vensure-rank p5298 tp5299 a(g6 V tp5300 a(g100 VARRAY p5301 tp5302 a(g6 V tp5303 a(g100 Vdims p5304 tp5305 a(g212 V) tp5306 a(g6 V\u000a p5307 tp5308 a(g212 V( tp5309 a(g84 Vdolist p5310 tp5311 a(g6 V tp5312 a(g212 V( tp5313 a(g100 Vdim p5314 tp5315 a(g6 V tp5316 a(g100 Vdims p5317 tp5318 a(g212 V) tp5319 a(g6 V tp5320 a(g212 V( tp5321 a(g100 Vensure-dim p5322 tp5323 a(g6 V tp5324 a(g100 VARRAY p5325 tp5326 a(g6 V tp5327 a(g100 Vdim p5328 tp5329 a(g212 V) tp5330 a(g212 V) tp5331 a(g212 V) tp5332 a(g212 V) tp5333 a(g6 V\u000a p5334 tp5335 a(g212 V( tp5336 a(g84 Vand p5337 tp5338 a(g6 V tp5339 a(g212 V( tp5340 a(g84 Varrayp p5341 tp5342 a(g6 V tp5343 a(g100 Vx tp5344 a(g212 V) tp5345 a(g6 V\u000a p5346 tp5347 a(g212 V( tp5348 a(g84 Vor p5349 tp5350 a(g6 V tp5351 a(g212 V( tp5352 a(g84 Veq p5353 tp5354 a(g6 V tp5355 a(g100 Vel-type p5356 tp5357 a(g6 V tp5358 a(g258 V'* p5359 tp5360 a(g212 V) tp5361 a(g6 V\u000a p5362 tp5363 a(g212 V( tp5364 a(g84 Vequal p5365 tp5366 a(g6 V tp5367 a(g212 V( tp5368 a(g84 Varray-element-type p5369 tp5370 a(g6 V tp5371 a(g100 Vx tp5372 a(g212 V) tp5373 a(g6 V tp5374 a(g212 V( tp5375 a(g84 Vupgraded-array-element-type p5376 tp5377 a(g6 V tp5378 a(g100 Vel-type p5379 tp5380 a(g212 V) tp5381 a(g212 V) tp5382 a(g6 V\u000a p5383 tp5384 a(g212 V) tp5385 a(g6 V\u000a p5386 tp5387 a(g212 V( tp5388 a(g84 Vor p5389 tp5390 a(g6 V tp5391 a(g212 V( tp5392 a(g84 Veq p5393 tp5394 a(g6 V tp5395 a(g100 Vdims p5396 tp5397 a(g6 V tp5398 a(g258 V'* p5399 tp5400 a(g212 V) tp5401 a(g6 V\u000a p5402 tp5403 a(g212 V( tp5404 a(g138 Vif p5405 tp5406 a(g6 V tp5407 a(g212 V( tp5408 a(g84 Vnumberp p5409 tp5410 a(g6 V tp5411 a(g100 Vdims p5412 tp5413 a(g212 V) tp5414 a(g6 V\u000a p5415 tp5416 a(g212 V( tp5417 a(g84 Veql p5418 tp5419 a(g6 V tp5420 a(g100 Vdims p5421 tp5422 a(g6 V tp5423 a(g212 V( tp5424 a(g84 Varray-rank p5425 tp5426 a(g6 V tp5427 a(g100 Vx tp5428 a(g212 V) tp5429 a(g212 V) tp5430 a(g6 V\u000a p5431 tp5432 a(g212 V( tp5433 a(g84 Vand p5434 tp5435 a(g6 V tp5436 a(g212 V( tp5437 a(g84 Veql p5438 tp5439 a(g6 V tp5440 a(g212 V( tp5441 a(g84 Vlength p5442 tp5443 a(g6 V tp5444 a(g100 Vdims p5445 tp5446 a(g212 V) tp5447 a(g6 V tp5448 a(g212 V( tp5449 a(g84 Varray-rank p5450 tp5451 a(g6 V tp5452 a(g100 Vx tp5453 a(g212 V) tp5454 a(g212 V) tp5455 a(g6 V\u000a p5456 tp5457 a(g212 V( tp5458 a(g84 Vevery p5459 tp5460 a(g6 V tp5461 a(g48 V#' p5462 tp5463 a(g212 V( tp5464 a(g138 Vlambda p5465 tp5466 a(g6 V tp5467 a(g212 V( tp5468 a(g100 Va tp5469 a(g6 V tp5470 a(g100 Vb tp5471 a(g212 V) tp5472 a(g6 V tp5473 a(g212 V( tp5474 a(g84 Vor p5475 tp5476 a(g6 V tp5477 a(g212 V( tp5478 a(g84 Veq p5479 tp5480 a(g6 V tp5481 a(g100 Va tp5482 a(g6 V tp5483 a(g258 V'* p5484 tp5485 a(g212 V) tp5486 a(g6 V tp5487 a(g212 V( tp5488 a(g84 Veql p5489 tp5490 a(g6 V tp5491 a(g100 Va tp5492 a(g6 V tp5493 a(g100 Vb tp5494 a(g212 V) tp5495 a(g212 V) tp5496 a(g212 V) tp5497 a(g6 V\u000a p5498 tp5499 a(g100 Vdims p5500 tp5501 a(g6 V tp5502 a(g212 V( tp5503 a(g84 Varray-dimensions p5504 tp5505 a(g6 V tp5506 a(g100 Vx tp5507 a(g212 V) tp5508 a(g6 V\u000a p5509 tp5510 a(g212 V) tp5511 a(g6 V p5512 tp5513 a(g212 V) tp5514 a(g6 V p5515 tp5516 a(g212 V) tp5517 a(g6 V tp5518 a(g212 V) tp5519 a(g6 V p5520 tp5521 a(g212 V) tp5522 a(g6 V\u000a p5523 tp5524 a(g212 V( tp5525 a(g100 Vc-typep-array p5526 tp5527 a(g6 V tp5528 a(g258 V'ARRAYP p5529 tp5530 a(g6 V tp5531 a(g100 Vel-type p5532 tp5533 a(g6 V tp5534 a(g100 Vdims p5535 tp5536 a(g6 V tp5537 a(g100 Vx tp5538 a(g212 V) tp5539 a(g6 V\u000a tp5540 a(g212 V) tp5541 a(g6 V\u000a tp5542 a(g212 V( tp5543 a(g100 Vdef-compound-type p5544 tp5545 a(g6 V tp5546 a(g100 VSIMPLE-ARRAY p5547 tp5548 a(g6 V tp5549 a(g212 V( tp5550 a(g138 V&optional p5551 tp5552 a(g6 V tp5553 a(g212 V( tp5554 a(g100 Vel-type p5555 tp5556 a(g6 V tp5557 a(g258 V'* p5558 tp5559 a(g212 V) tp5560 a(g6 V tp5561 a(g212 V( tp5562 a(g100 Vdims p5563 tp5564 a(g6 V tp5565 a(g258 V'* p5566 tp5567 a(g212 V) tp5568 a(g212 V) tp5569 a(g6 V tp5570 a(g212 V( tp5571 a(g100 Vx tp5572 a(g212 V) tp5573 a(g6 V\u000a p5574 tp5575 a(g212 V( tp5576 a(g84 Vunless p5577 tp5578 a(g6 V tp5579 a(g212 V( tp5580 a(g84 Veq p5581 tp5582 a(g6 V tp5583 a(g100 Vdims p5584 tp5585 a(g6 V tp5586 a(g258 V'* p5587 tp5588 a(g212 V) tp5589 a(g6 V\u000a p5590 tp5591 a(g212 V( tp5592 a(g138 Vif p5593 tp5594 a(g6 V tp5595 a(g212 V( tp5596 a(g84 Vnumberp p5597 tp5598 a(g6 V tp5599 a(g100 Vdims p5600 tp5601 a(g212 V) tp5602 a(g6 V\u000a p5603 tp5604 a(g212 V( tp5605 a(g100 Vensure-rank p5606 tp5607 a(g6 V tp5608 a(g100 VSIMPLE-ARRAY p5609 tp5610 a(g6 V tp5611 a(g100 Vdims p5612 tp5613 a(g212 V) tp5614 a(g6 V\u000a p5615 tp5616 a(g212 V( tp5617 a(g84 Vdolist p5618 tp5619 a(g6 V tp5620 a(g212 V( tp5621 a(g100 Vdim p5622 tp5623 a(g6 V tp5624 a(g100 Vdims p5625 tp5626 a(g212 V) tp5627 a(g6 V tp5628 a(g212 V( tp5629 a(g100 Vensure-dim p5630 tp5631 a(g6 V tp5632 a(g100 VSIMPLE-ARRAY p5633 tp5634 a(g6 V tp5635 a(g100 Vdim p5636 tp5637 a(g212 V) tp5638 a(g212 V) tp5639 a(g212 V) tp5640 a(g212 V) tp5641 a(g6 V\u000a p5642 tp5643 a(g212 V( tp5644 a(g84 Vand p5645 tp5646 a(g6 V tp5647 a(g212 V( tp5648 a(g100 Vsimple-array-p p5649 tp5650 a(g6 V tp5651 a(g100 Vx tp5652 a(g212 V) tp5653 a(g6 V\u000a p5654 tp5655 a(g212 V( tp5656 a(g84 Vor p5657 tp5658 a(g6 V tp5659 a(g212 V( tp5660 a(g84 Veq p5661 tp5662 a(g6 V tp5663 a(g100 Vel-type p5664 tp5665 a(g6 V tp5666 a(g258 V'* p5667 tp5668 a(g212 V) tp5669 a(g6 V\u000a p5670 tp5671 a(g212 V( tp5672 a(g84 Vequal p5673 tp5674 a(g6 V tp5675 a(g212 V( tp5676 a(g84 Varray-element-type p5677 tp5678 a(g6 V tp5679 a(g100 Vx tp5680 a(g212 V) tp5681 a(g6 V tp5682 a(g212 V( tp5683 a(g84 Vupgraded-array-element-type p5684 tp5685 a(g6 V tp5686 a(g100 Vel-type p5687 tp5688 a(g212 V) tp5689 a(g212 V) tp5690 a(g6 V\u000a p5691 tp5692 a(g212 V) tp5693 a(g6 V\u000a p5694 tp5695 a(g212 V( tp5696 a(g84 Vor p5697 tp5698 a(g6 V tp5699 a(g212 V( tp5700 a(g84 Veq p5701 tp5702 a(g6 V tp5703 a(g100 Vdims p5704 tp5705 a(g6 V tp5706 a(g258 V'* p5707 tp5708 a(g212 V) tp5709 a(g6 V\u000a p5710 tp5711 a(g212 V( tp5712 a(g138 Vif p5713 tp5714 a(g6 V tp5715 a(g212 V( tp5716 a(g84 Vnumberp p5717 tp5718 a(g6 V tp5719 a(g100 Vdims p5720 tp5721 a(g212 V) tp5722 a(g6 V\u000a p5723 tp5724 a(g212 V( tp5725 a(g84 Veql p5726 tp5727 a(g6 V tp5728 a(g100 Vdims p5729 tp5730 a(g6 V tp5731 a(g212 V( tp5732 a(g84 Varray-rank p5733 tp5734 a(g6 V tp5735 a(g100 Vx tp5736 a(g212 V) tp5737 a(g212 V) tp5738 a(g6 V\u000a p5739 tp5740 a(g212 V( tp5741 a(g84 Vand p5742 tp5743 a(g6 V tp5744 a(g212 V( tp5745 a(g84 Veql p5746 tp5747 a(g6 V tp5748 a(g212 V( tp5749 a(g84 Vlength p5750 tp5751 a(g6 V tp5752 a(g100 Vdims p5753 tp5754 a(g212 V) tp5755 a(g6 V tp5756 a(g212 V( tp5757 a(g84 Varray-rank p5758 tp5759 a(g6 V tp5760 a(g100 Vx tp5761 a(g212 V) tp5762 a(g212 V) tp5763 a(g6 V\u000a p5764 tp5765 a(g212 V( tp5766 a(g84 Vevery p5767 tp5768 a(g6 V tp5769 a(g48 V#' p5770 tp5771 a(g212 V( tp5772 a(g138 Vlambda p5773 tp5774 a(g6 V tp5775 a(g212 V( tp5776 a(g100 Va tp5777 a(g6 V tp5778 a(g100 Vb tp5779 a(g212 V) tp5780 a(g6 V tp5781 a(g212 V( tp5782 a(g84 Vor p5783 tp5784 a(g6 V tp5785 a(g212 V( tp5786 a(g84 Veq p5787 tp5788 a(g6 V tp5789 a(g100 Va tp5790 a(g6 V tp5791 a(g258 V'* p5792 tp5793 a(g212 V) tp5794 a(g6 V tp5795 a(g212 V( tp5796 a(g84 Veql p5797 tp5798 a(g6 V tp5799 a(g100 Va tp5800 a(g6 V tp5801 a(g100 Vb tp5802 a(g212 V) tp5803 a(g212 V) tp5804 a(g212 V) tp5805 a(g6 V\u000a p5806 tp5807 a(g100 Vdims p5808 tp5809 a(g6 V tp5810 a(g212 V( tp5811 a(g84 Varray-dimensions p5812 tp5813 a(g6 V tp5814 a(g100 Vx tp5815 a(g212 V) tp5816 a(g6 V\u000a p5817 tp5818 a(g212 V) tp5819 a(g6 V p5820 tp5821 a(g212 V) tp5822 a(g6 V p5823 tp5824 a(g212 V) tp5825 a(g6 V tp5826 a(g212 V) tp5827 a(g6 V p5828 tp5829 a(g212 V) tp5830 a(g6 V\u000a p5831 tp5832 a(g212 V( tp5833 a(g100 Vc-typep-array p5834 tp5835 a(g6 V tp5836 a(g258 V'SIMPLE-ARRAY-P p5837 tp5838 a(g6 V tp5839 a(g100 Vel-type p5840 tp5841 a(g6 V tp5842 a(g100 Vdims p5843 tp5844 a(g6 V tp5845 a(g100 Vx tp5846 a(g212 V) tp5847 a(g6 V\u000a tp5848 a(g212 V) tp5849 a(g6 V\u000a tp5850 a(g212 V( tp5851 a(g100 Vdef-compound-type p5852 tp5853 a(g6 V tp5854 a(g100 VVECTOR p5855 tp5856 a(g6 V tp5857 a(g212 V( tp5858 a(g138 V&optional p5859 tp5860 a(g6 V tp5861 a(g212 V( tp5862 a(g100 Vel-type p5863 tp5864 a(g6 V tp5865 a(g258 V'* p5866 tp5867 a(g212 V) tp5868 a(g6 V tp5869 a(g212 V( tp5870 a(g100 Vsize p5871 tp5872 a(g6 V tp5873 a(g258 V'* p5874 tp5875 a(g212 V) tp5876 a(g212 V) tp5877 a(g6 V tp5878 a(g212 V( tp5879 a(g100 Vx tp5880 a(g212 V) tp5881 a(g6 V\u000a p5882 tp5883 a(g212 V( tp5884 a(g100 Vensure-dim p5885 tp5886 a(g6 V tp5887 a(g100 VVECTOR p5888 tp5889 a(g6 V tp5890 a(g100 Vsize p5891 tp5892 a(g212 V) tp5893 a(g6 V\u000a p5894 tp5895 a(g212 V( tp5896 a(g84 Vand p5897 tp5898 a(g6 V tp5899 a(g212 V( tp5900 a(g84 Vvectorp p5901 tp5902 a(g6 V tp5903 a(g100 Vx tp5904 a(g212 V) tp5905 a(g6 V\u000a p5906 tp5907 a(g212 V( tp5908 a(g84 Vor p5909 tp5910 a(g6 V tp5911 a(g212 V( tp5912 a(g84 Veq p5913 tp5914 a(g6 V tp5915 a(g100 Vel-type p5916 tp5917 a(g6 V tp5918 a(g258 V'* p5919 tp5920 a(g212 V) tp5921 a(g6 V\u000a p5922 tp5923 a(g212 V( tp5924 a(g84 Vequal p5925 tp5926 a(g6 V tp5927 a(g212 V( tp5928 a(g84 Varray-element-type p5929 tp5930 a(g6 V tp5931 a(g100 Vx tp5932 a(g212 V) tp5933 a(g6 V tp5934 a(g212 V( tp5935 a(g84 Vupgraded-array-element-type p5936 tp5937 a(g6 V tp5938 a(g100 Vel-type p5939 tp5940 a(g212 V) tp5941 a(g212 V) tp5942 a(g6 V\u000a p5943 tp5944 a(g212 V) tp5945 a(g6 V\u000a p5946 tp5947 a(g212 V( tp5948 a(g84 Vor p5949 tp5950 a(g6 V tp5951 a(g212 V( tp5952 a(g84 Veq p5953 tp5954 a(g6 V tp5955 a(g100 Vsize p5956 tp5957 a(g6 V tp5958 a(g258 V'* p5959 tp5960 a(g212 V) tp5961 a(g6 V tp5962 a(g212 V( tp5963 a(g84 Veql p5964 tp5965 a(g6 V tp5966 a(g212 V( tp5967 a(g84 Varray-dimension p5968 tp5969 a(g6 V tp5970 a(g100 Vx tp5971 a(g6 V tp5972 a(g328 V0 tp5973 a(g212 V) tp5974 a(g6 V tp5975 a(g100 Vsize p5976 tp5977 a(g212 V) tp5978 a(g212 V) tp5979 a(g6 V\u000a p5980 tp5981 a(g212 V) tp5982 a(g6 V\u000a p5983 tp5984 a(g353 V` tp5985 a(g212 V( tp5986 a(g100 VAND p5987 tp5988 a(g6 V tp5989 a(g212 V( tp5990 a(g100 VVECTORP p5991 tp5992 a(g6 V tp5993 a(g353 V, tp5994 a(g100 Vx tp5995 a(g212 V) tp5996 a(g6 V\u000a p5997 tp5998 a(g353 V,@ p5999 tp6000 a(g212 V( tp6001 a(g138 Vif p6002 tp6003 a(g6 V tp6004 a(g212 V( tp6005 a(g84 Veq p6006 tp6007 a(g6 V tp6008 a(g100 Vel-type p6009 tp6010 a(g6 V tp6011 a(g258 V'* p6012 tp6013 a(g212 V) tp6014 a(g6 V\u000a p6015 tp6016 a(g353 V' tp6017 a(g212 V( tp6018 a(g212 V) tp6019 a(g6 V\u000a p6020 tp6021 a(g353 V` tp6022 a(g212 V( tp6023 a(g212 V( tp6024 a(g100 VEQUAL p6025 tp6026 a(g6 V tp6027 a(g212 V( tp6028 a(g100 VARRAY-ELEMENT-TYPE p6029 tp6030 a(g6 V tp6031 a(g353 V, tp6032 a(g100 Vx tp6033 a(g212 V) tp6034 a(g6 V tp6035 a(g258 V', p6036 tp6037 a(g212 V( tp6038 a(g84 Vupgraded-array-element-type p6039 tp6040 a(g6 V tp6041 a(g100 Vel-type p6042 tp6043 a(g212 V) tp6044 a(g212 V) tp6045 a(g212 V) tp6046 a(g6 V\u000a p6047 tp6048 a(g212 V) tp6049 a(g6 V\u000a p6050 tp6051 a(g353 V,@ p6052 tp6053 a(g212 V( tp6054 a(g138 Vif p6055 tp6056 a(g6 V tp6057 a(g212 V( tp6058 a(g84 Veq p6059 tp6060 a(g6 V tp6061 a(g100 Vsize p6062 tp6063 a(g6 V tp6064 a(g258 V'* p6065 tp6066 a(g212 V) tp6067 a(g6 V\u000a p6068 tp6069 a(g353 V' tp6070 a(g212 V( tp6071 a(g212 V) tp6072 a(g6 V\u000a p6073 tp6074 a(g353 V` tp6075 a(g212 V( tp6076 a(g212 V( tp6077 a(g100 VEQL p6078 tp6079 a(g6 V tp6080 a(g212 V( tp6081 a(g100 VARRAY-DIMENSION p6082 tp6083 a(g6 V tp6084 a(g353 V, tp6085 a(g100 Vx tp6086 a(g6 V tp6087 a(g328 V0 tp6088 a(g212 V) tp6089 a(g6 V tp6090 a(g258 V',size p6091 tp6092 a(g212 V) tp6093 a(g212 V) tp6094 a(g6 V\u000a p6095 tp6096 a(g212 V) tp6097 a(g6 V\u000a p6098 tp6099 a(g212 V) tp6100 a(g6 V\u000a tp6101 a(g212 V) tp6102 a(g6 V\u000a tp6103 a(g212 V( tp6104 a(g100 Vdef-compound-type p6105 tp6106 a(g6 V tp6107 a(g100 VSIMPLE-VECTOR p6108 tp6109 a(g6 V tp6110 a(g212 V( tp6111 a(g138 V&optional p6112 tp6113 a(g6 V tp6114 a(g212 V( tp6115 a(g100 Vsize p6116 tp6117 a(g6 V tp6118 a(g258 V'* p6119 tp6120 a(g212 V) tp6121 a(g212 V) tp6122 a(g6 V tp6123 a(g212 V( tp6124 a(g100 Vx tp6125 a(g212 V) tp6126 a(g6 V\u000a p6127 tp6128 a(g212 V( tp6129 a(g100 Vensure-dim p6130 tp6131 a(g6 V tp6132 a(g100 VSIMLPE-VECTOR p6133 tp6134 a(g6 V tp6135 a(g100 Vsize p6136 tp6137 a(g212 V) tp6138 a(g6 V\u000a p6139 tp6140 a(g212 V( tp6141 a(g84 Vand p6142 tp6143 a(g6 V tp6144 a(g212 V( tp6145 a(g84 Vsimple-vector-p p6146 tp6147 a(g6 V tp6148 a(g100 Vx tp6149 a(g212 V) tp6150 a(g6 V\u000a p6151 tp6152 a(g212 V( tp6153 a(g84 Vor p6154 tp6155 a(g6 V tp6156 a(g212 V( tp6157 a(g84 Veq p6158 tp6159 a(g6 V tp6160 a(g100 Vsize p6161 tp6162 a(g6 V tp6163 a(g258 V'* p6164 tp6165 a(g212 V) tp6166 a(g6 V tp6167 a(g212 V( tp6168 a(g84 Veql p6169 tp6170 a(g6 V tp6171 a(g100 Vsize p6172 tp6173 a(g6 V tp6174 a(g212 V( tp6175 a(g84 Varray-dimension p6176 tp6177 a(g6 V tp6178 a(g100 Vx tp6179 a(g6 V tp6180 a(g328 V0 tp6181 a(g212 V) tp6182 a(g212 V) tp6183 a(g212 V) tp6184 a(g6 V\u000a p6185 tp6186 a(g212 V) tp6187 a(g6 V\u000a p6188 tp6189 a(g212 V( tp6190 a(g100 Vc-typep-vector p6191 tp6192 a(g6 V tp6193 a(g258 V'SIMPLE-VECTOR-P p6194 tp6195 a(g6 V tp6196 a(g100 Vsize p6197 tp6198 a(g6 V tp6199 a(g100 Vx tp6200 a(g212 V) tp6201 a(g6 V\u000a tp6202 a(g212 V) tp6203 a(g6 V\u000a tp6204 a(g212 V( tp6205 a(g100 Vdef-compound-type p6206 tp6207 a(g6 V tp6208 a(g100 VCOMPLEX p6209 tp6210 a(g6 V tp6211 a(g212 V( tp6212 a(g138 V&optional p6213 tp6214 a(g6 V tp6215 a(g212 V( tp6216 a(g100 Vrtype p6217 tp6218 a(g6 V tp6219 a(g258 V'* p6220 tp6221 a(g212 V) tp6222 a(g6 V tp6223 a(g212 V( tp6224 a(g100 Vitype p6225 tp6226 a(g6 V tp6227 a(g100 Vrtype p6228 tp6229 a(g212 V) tp6230 a(g212 V) tp6231 a(g6 V tp6232 a(g212 V( tp6233 a(g100 Vx tp6234 a(g212 V) tp6235 a(g6 V\u000a p6236 tp6237 a(g60 Vnil p6238 tp6239 a(g6 V\u000a p6240 tp6241 a(g212 V( tp6242 a(g84 Vand p6243 tp6244 a(g6 V tp6245 a(g212 V( tp6246 a(g84 Vcomplexp p6247 tp6248 a(g6 V tp6249 a(g100 Vx tp6250 a(g212 V) tp6251 a(g6 V\u000a p6252 tp6253 a(g212 V( tp6254 a(g84 Vor p6255 tp6256 a(g6 V tp6257 a(g212 V( tp6258 a(g84 Veq p6259 tp6260 a(g6 V tp6261 a(g100 Vrtype p6262 tp6263 a(g6 V tp6264 a(g258 V'* p6265 tp6266 a(g212 V) tp6267 a(g6 V\u000a p6268 tp6269 a(g212 V( tp6270 a(g84 Vtypep p6271 tp6272 a(g6 V tp6273 a(g212 V( tp6274 a(g84 Vrealpart p6275 tp6276 a(g6 V tp6277 a(g100 Vx tp6278 a(g212 V) tp6279 a(g6 V tp6280 a(g212 V( tp6281 a(g84 Vupgraded-complex-part-type p6282 tp6283 a(g6 V tp6284 a(g100 Vrtype p6285 tp6286 a(g212 V) tp6287 a(g212 V) tp6288 a(g212 V) tp6289 a(g6 V\u000a p6290 tp6291 a(g212 V( tp6292 a(g84 Vor p6293 tp6294 a(g6 V tp6295 a(g212 V( tp6296 a(g84 Veq p6297 tp6298 a(g6 V tp6299 a(g100 Vitype p6300 tp6301 a(g6 V tp6302 a(g258 V'* p6303 tp6304 a(g212 V) tp6305 a(g6 V\u000a p6306 tp6307 a(g212 V( tp6308 a(g84 Vtypep p6309 tp6310 a(g6 V tp6311 a(g212 V( tp6312 a(g84 Vimagpart p6313 tp6314 a(g6 V tp6315 a(g100 Vx tp6316 a(g212 V) tp6317 a(g6 V tp6318 a(g212 V( tp6319 a(g84 Vupgraded-complex-part-type p6320 tp6321 a(g6 V tp6322 a(g100 Vitype p6323 tp6324 a(g212 V) tp6325 a(g212 V) tp6326 a(g212 V) tp6327 a(g212 V) tp6328 a(g6 V\u000a p6329 tp6330 a(g353 V` tp6331 a(g212 V( tp6332 a(g100 VAND p6333 tp6334 a(g6 V tp6335 a(g212 V( tp6336 a(g100 VCOMPLEXP p6337 tp6338 a(g6 V tp6339 a(g353 V, tp6340 a(g100 Vx tp6341 a(g212 V) tp6342 a(g6 V\u000a p6343 tp6344 a(g353 V,@ p6345 tp6346 a(g212 V( tp6347 a(g138 Vif p6348 tp6349 a(g6 V tp6350 a(g212 V( tp6351 a(g84 Veq p6352 tp6353 a(g6 V tp6354 a(g100 Vrtype p6355 tp6356 a(g6 V tp6357 a(g258 V'* p6358 tp6359 a(g212 V) tp6360 a(g6 V\u000a p6361 tp6362 a(g353 V' tp6363 a(g212 V( tp6364 a(g212 V) tp6365 a(g6 V\u000a p6366 tp6367 a(g353 V` tp6368 a(g212 V( tp6369 a(g212 V( tp6370 a(g100 VTYPEP p6371 tp6372 a(g6 V tp6373 a(g212 V( tp6374 a(g100 VREALPART p6375 tp6376 a(g6 V tp6377 a(g353 V, tp6378 a(g100 Vx tp6379 a(g212 V) tp6380 a(g6 V tp6381 a(g258 V', p6382 tp6383 a(g212 V( tp6384 a(g84 Vupgraded-complex-part-type p6385 tp6386 a(g6 V tp6387 a(g100 Vrtype p6388 tp6389 a(g212 V) tp6390 a(g212 V) tp6391 a(g212 V) tp6392 a(g212 V) tp6393 a(g6 V\u000a p6394 tp6395 a(g353 V,@ p6396 tp6397 a(g212 V( tp6398 a(g138 Vif p6399 tp6400 a(g6 V tp6401 a(g212 V( tp6402 a(g84 Veq p6403 tp6404 a(g6 V tp6405 a(g100 Vitype p6406 tp6407 a(g6 V tp6408 a(g258 V'* p6409 tp6410 a(g212 V) tp6411 a(g6 V\u000a p6412 tp6413 a(g353 V' tp6414 a(g212 V( tp6415 a(g212 V) tp6416 a(g6 V\u000a p6417 tp6418 a(g353 V` tp6419 a(g212 V( tp6420 a(g212 V( tp6421 a(g100 VTYPEP p6422 tp6423 a(g6 V tp6424 a(g212 V( tp6425 a(g100 VIMAGPART p6426 tp6427 a(g6 V tp6428 a(g353 V, tp6429 a(g100 Vx tp6430 a(g212 V) tp6431 a(g6 V tp6432 a(g258 V', p6433 tp6434 a(g212 V( tp6435 a(g84 Vupgraded-complex-part-type p6436 tp6437 a(g6 V tp6438 a(g100 Vitype p6439 tp6440 a(g212 V) tp6441 a(g212 V) tp6442 a(g212 V) tp6443 a(g212 V) tp6444 a(g212 V) tp6445 a(g212 V) tp6446 a(g6 V\u000a tp6447 a(g212 V( tp6448 a(g100 Vdef-compound-type p6449 tp6450 a(g6 V tp6451 a(g100 VINTEGER p6452 tp6453 a(g6 V tp6454 a(g212 V( tp6455 a(g138 V&optional p6456 tp6457 a(g6 V tp6458 a(g212 V( tp6459 a(g100 Vlow p6460 tp6461 a(g6 V tp6462 a(g258 V'* p6463 tp6464 a(g212 V) tp6465 a(g6 V tp6466 a(g212 V( tp6467 a(g100 Vhigh p6468 tp6469 a(g6 V tp6470 a(g258 V'* p6471 tp6472 a(g212 V) tp6473 a(g212 V) tp6474 a(g6 V tp6475 a(g212 V( tp6476 a(g100 Vx tp6477 a(g212 V) tp6478 a(g6 V\u000a p6479 tp6480 a(g60 Vnil p6481 tp6482 a(g6 V\u000a p6483 tp6484 a(g212 V( tp6485 a(g100 Vtypep-number-test p6486 tp6487 a(g6 V tp6488 a(g100 Vx tp6489 a(g6 V tp6490 a(g100 Vlow p6491 tp6492 a(g6 V tp6493 a(g100 Vhigh p6494 tp6495 a(g6 V tp6496 a(g48 V#' p6497 tp6498 a(g84 Vintegerp p6499 tp6500 a(g6 V tp6501 a(g258 V'INTEGER p6502 tp6503 a(g212 V) tp6504 a(g6 V\u000a p6505 tp6506 a(g212 V( tp6507 a(g100 Vc-typep-number p6508 tp6509 a(g6 V tp6510 a(g258 V'INTEGER p6511 tp6512 a(g6 V tp6513 a(g258 V'INTEGERP p6514 tp6515 a(g6 V tp6516 a(g100 Vlow p6517 tp6518 a(g6 V tp6519 a(g100 Vhigh p6520 tp6521 a(g6 V tp6522 a(g100 Vx tp6523 a(g212 V) tp6524 a(g6 V\u000a tp6525 a(g212 V) tp6526 a(g6 V\u000a tp6527 a(g212 V( tp6528 a(g100 Vdef-compound-type p6529 tp6530 a(g6 V tp6531 a(g100 VMOD p6532 tp6533 a(g6 V tp6534 a(g212 V( tp6535 a(g100 Vn tp6536 a(g212 V) tp6537 a(g6 V tp6538 a(g212 V( tp6539 a(g100 Vx tp6540 a(g212 V) tp6541 a(g6 V\u000a p6542 tp6543 a(g212 V( tp6544 a(g84 Vunless p6545 tp6546 a(g6 V tp6547 a(g212 V( tp6548 a(g84 Vintegerp p6549 tp6550 a(g6 V tp6551 a(g100 Vn tp6552 a(g212 V) tp6553 a(g6 V\u000a p6554 tp6555 a(g212 V( tp6556 a(g84 Verror p6557 tp6558 a(g6 V tp6559 a(g212 V( tp6560 a(g100 VTEXT p6561 tp6562 a(g6 V tp6563 a(g236 V"~S: argument to MOD must be an integer: ~S" p6564 tp6565 a(g212 V) tp6566 a(g6 V\u000a p6567 tp6568 a(g258 V'typep p6569 tp6570 a(g6 V tp6571 a(g100 Vn tp6572 a(g6 V\u000a p6573 tp6574 a(g212 V) tp6575 a(g6 V tp6576 a(g212 V) tp6577 a(g6 V\u000a p6578 tp6579 a(g212 V( tp6580 a(g84 Vand p6581 tp6582 a(g6 V tp6583 a(g212 V( tp6584 a(g84 Vintegerp p6585 tp6586 a(g6 V tp6587 a(g100 Vx tp6588 a(g212 V) tp6589 a(g6 V tp6590 a(g212 V( tp6591 a(g84 V<= p6592 tp6593 a(g6 V tp6594 a(g328 V0 tp6595 a(g6 V tp6596 a(g100 Vx tp6597 a(g212 V) tp6598 a(g6 V tp6599 a(g212 V( tp6600 a(g84 V< tp6601 a(g6 V tp6602 a(g100 Vx tp6603 a(g6 V tp6604 a(g100 Vn tp6605 a(g212 V) tp6606 a(g212 V) tp6607 a(g6 V\u000a p6608 tp6609 a(g353 V` tp6610 a(g212 V( tp6611 a(g100 VAND p6612 tp6613 a(g6 V tp6614 a(g212 V( tp6615 a(g100 VINTEGERP p6616 tp6617 a(g6 V tp6618 a(g353 V, tp6619 a(g100 Vx tp6620 a(g212 V) tp6621 a(g6 V tp6622 a(g212 V( tp6623 a(g100 VNOT p6624 tp6625 a(g6 V tp6626 a(g212 V( tp6627 a(g100 VMINUSP p6628 tp6629 a(g6 V tp6630 a(g353 V, tp6631 a(g100 Vx tp6632 a(g212 V) tp6633 a(g212 V) tp6634 a(g6 V tp6635 a(g212 V( tp6636 a(g84 V< tp6637 a(g6 V tp6638 a(g353 V, tp6639 a(g100 Vx tp6640 a(g6 V tp6641 a(g353 V, tp6642 a(g100 Vn tp6643 a(g212 V) tp6644 a(g212 V) tp6645 a(g6 V\u000a tp6646 a(g212 V) tp6647 a(g6 V\u000a tp6648 a(g212 V( tp6649 a(g100 Vdef-compound-type p6650 tp6651 a(g6 V tp6652 a(g100 VSIGNED-BYTE p6653 tp6654 a(g6 V tp6655 a(g212 V( tp6656 a(g138 V&optional p6657 tp6658 a(g6 V tp6659 a(g212 V( tp6660 a(g100 Vn tp6661 a(g6 V tp6662 a(g258 V'* p6663 tp6664 a(g212 V) tp6665 a(g212 V) tp6666 a(g6 V tp6667 a(g212 V( tp6668 a(g100 Vx tp6669 a(g212 V) tp6670 a(g6 V\u000a p6671 tp6672 a(g212 V( tp6673 a(g84 Vunless p6674 tp6675 a(g6 V tp6676 a(g212 V( tp6677 a(g84 Vor p6678 tp6679 a(g6 V tp6680 a(g212 V( tp6681 a(g84 Veq p6682 tp6683 a(g6 V tp6684 a(g100 Vn tp6685 a(g6 V tp6686 a(g258 V'* p6687 tp6688 a(g212 V) tp6689 a(g6 V tp6690 a(g212 V( tp6691 a(g84 Vintegerp p6692 tp6693 a(g6 V tp6694 a(g100 Vn tp6695 a(g212 V) tp6696 a(g212 V) tp6697 a(g6 V\u000a p6698 tp6699 a(g212 V( tp6700 a(g84 Verror p6701 tp6702 a(g6 V tp6703 a(g212 V( tp6704 a(g100 VTEXT p6705 tp6706 a(g6 V tp6707 a(g236 V"~S: argument to SIGNED-BYTE must be an integer or * : ~S" p6708 tp6709 a(g212 V) tp6710 a(g6 V\u000a p6711 tp6712 a(g258 V'typep p6713 tp6714 a(g6 V tp6715 a(g100 Vn tp6716 a(g6 V\u000a p6717 tp6718 a(g212 V) tp6719 a(g6 V tp6720 a(g212 V) tp6721 a(g6 V\u000a p6722 tp6723 a(g212 V( tp6724 a(g84 Vand p6725 tp6726 a(g6 V tp6727 a(g212 V( tp6728 a(g84 Vintegerp p6729 tp6730 a(g6 V tp6731 a(g100 Vx tp6732 a(g212 V) tp6733 a(g6 V tp6734 a(g212 V( tp6735 a(g84 Vor p6736 tp6737 a(g6 V tp6738 a(g212 V( tp6739 a(g84 Veq p6740 tp6741 a(g6 V tp6742 a(g100 Vn tp6743 a(g6 V tp6744 a(g258 V'* p6745 tp6746 a(g212 V) tp6747 a(g6 V tp6748 a(g212 V( tp6749 a(g84 V< tp6750 a(g6 V tp6751 a(g212 V( tp6752 a(g84 Vinteger-length p6753 tp6754 a(g6 V tp6755 a(g100 Vx tp6756 a(g212 V) tp6757 a(g6 V tp6758 a(g100 Vn tp6759 a(g212 V) tp6760 a(g212 V) tp6761 a(g212 V) tp6762 a(g6 V\u000a p6763 tp6764 a(g353 V` tp6765 a(g212 V( tp6766 a(g100 VAND p6767 tp6768 a(g6 V tp6769 a(g212 V( tp6770 a(g100 VINTEGERP p6771 tp6772 a(g6 V tp6773 a(g353 V, tp6774 a(g100 Vx tp6775 a(g212 V) tp6776 a(g6 V\u000a p6777 tp6778 a(g353 V,@ p6779 tp6780 a(g212 V( tp6781 a(g138 Vif p6782 tp6783 a(g6 V tp6784 a(g212 V( tp6785 a(g84 Veq p6786 tp6787 a(g6 V tp6788 a(g100 Vn tp6789 a(g6 V tp6790 a(g258 V'* p6791 tp6792 a(g212 V) tp6793 a(g6 V tp6794 a(g353 V' tp6795 a(g212 V( tp6796 a(g212 V) tp6797 a(g6 V tp6798 a(g353 V` tp6799 a(g212 V( tp6800 a(g212 V( tp6801 a(g84 V< tp6802 a(g6 V tp6803 a(g212 V( tp6804 a(g100 VINTEGER-LENGTH p6805 tp6806 a(g6 V tp6807 a(g353 V, tp6808 a(g100 Vx tp6809 a(g212 V) tp6810 a(g6 V tp6811 a(g353 V, tp6812 a(g100 Vn tp6813 a(g212 V) tp6814 a(g212 V) tp6815 a(g212 V) tp6816 a(g6 V\u000a p6817 tp6818 a(g212 V) tp6819 a(g6 V\u000a tp6820 a(g212 V) tp6821 a(g6 V\u000a tp6822 a(g212 V( tp6823 a(g100 Vdef-compound-type p6824 tp6825 a(g6 V tp6826 a(g100 VUNSIGNED-BYTE p6827 tp6828 a(g6 V tp6829 a(g212 V( tp6830 a(g138 V&optional p6831 tp6832 a(g6 V tp6833 a(g212 V( tp6834 a(g100 Vn tp6835 a(g6 V tp6836 a(g258 V'* p6837 tp6838 a(g212 V) tp6839 a(g212 V) tp6840 a(g6 V tp6841 a(g212 V( tp6842 a(g100 Vx tp6843 a(g212 V) tp6844 a(g6 V\u000a p6845 tp6846 a(g212 V( tp6847 a(g84 Vunless p6848 tp6849 a(g6 V tp6850 a(g212 V( tp6851 a(g84 Vor p6852 tp6853 a(g6 V tp6854 a(g212 V( tp6855 a(g84 Veq p6856 tp6857 a(g6 V tp6858 a(g100 Vn tp6859 a(g6 V tp6860 a(g258 V'* p6861 tp6862 a(g212 V) tp6863 a(g6 V tp6864 a(g212 V( tp6865 a(g84 Vintegerp p6866 tp6867 a(g6 V tp6868 a(g100 Vn tp6869 a(g212 V) tp6870 a(g212 V) tp6871 a(g6 V\u000a p6872 tp6873 a(g212 V( tp6874 a(g84 Verror p6875 tp6876 a(g6 V tp6877 a(g212 V( tp6878 a(g100 VTEXT p6879 tp6880 a(g6 V tp6881 a(g236 V"~S: argument to UNSIGNED-BYTE must be an integer or * : ~S" p6882 tp6883 a(g212 V) tp6884 a(g6 V\u000a p6885 tp6886 a(g258 V'typep p6887 tp6888 a(g6 V tp6889 a(g100 Vn tp6890 a(g6 V\u000a p6891 tp6892 a(g212 V) tp6893 a(g6 V tp6894 a(g212 V) tp6895 a(g6 V\u000a p6896 tp6897 a(g212 V( tp6898 a(g84 Vand p6899 tp6900 a(g6 V tp6901 a(g212 V( tp6902 a(g84 Vintegerp p6903 tp6904 a(g6 V tp6905 a(g100 Vx tp6906 a(g212 V) tp6907 a(g6 V\u000a p6908 tp6909 a(g212 V( tp6910 a(g84 Vnot p6911 tp6912 a(g6 V tp6913 a(g212 V( tp6914 a(g84 Vminusp p6915 tp6916 a(g6 V tp6917 a(g100 Vx tp6918 a(g212 V) tp6919 a(g212 V) tp6920 a(g6 V\u000a p6921 tp6922 a(g212 V( tp6923 a(g84 Vor p6924 tp6925 a(g6 V tp6926 a(g212 V( tp6927 a(g84 Veq p6928 tp6929 a(g6 V tp6930 a(g100 Vn tp6931 a(g6 V tp6932 a(g258 V'* p6933 tp6934 a(g212 V) tp6935 a(g6 V tp6936 a(g212 V( tp6937 a(g84 V<= p6938 tp6939 a(g6 V tp6940 a(g212 V( tp6941 a(g84 Vinteger-length p6942 tp6943 a(g6 V tp6944 a(g100 Vx tp6945 a(g212 V) tp6946 a(g6 V tp6947 a(g100 Vn tp6948 a(g212 V) tp6949 a(g212 V) tp6950 a(g6 V\u000a p6951 tp6952 a(g212 V) tp6953 a(g6 V\u000a p6954 tp6955 a(g353 V` tp6956 a(g212 V( tp6957 a(g100 VAND p6958 tp6959 a(g6 V tp6960 a(g212 V( tp6961 a(g100 VINTEGERP p6962 tp6963 a(g6 V tp6964 a(g353 V, tp6965 a(g100 Vx tp6966 a(g212 V) tp6967 a(g6 V tp6968 a(g212 V( tp6969 a(g100 VNOT p6970 tp6971 a(g6 V tp6972 a(g212 V( tp6973 a(g100 VMINUSP p6974 tp6975 a(g6 V tp6976 a(g353 V, tp6977 a(g100 Vx tp6978 a(g212 V) tp6979 a(g212 V) tp6980 a(g6 V\u000a p6981 tp6982 a(g353 V,@ p6983 tp6984 a(g212 V( tp6985 a(g138 Vif p6986 tp6987 a(g6 V tp6988 a(g212 V( tp6989 a(g84 Veq p6990 tp6991 a(g6 V tp6992 a(g100 Vn tp6993 a(g6 V tp6994 a(g258 V'* p6995 tp6996 a(g212 V) tp6997 a(g6 V tp6998 a(g353 V' tp6999 a(g212 V( tp7000 a(g212 V) tp7001 a(g6 V tp7002 a(g353 V` tp7003 a(g212 V( tp7004 a(g212 V( tp7005 a(g84 V<= p7006 tp7007 a(g6 V tp7008 a(g212 V( tp7009 a(g100 VINTEGER-LENGTH p7010 tp7011 a(g6 V tp7012 a(g353 V, tp7013 a(g100 Vx tp7014 a(g212 V) tp7015 a(g6 V tp7016 a(g353 V, tp7017 a(g100 Vn tp7018 a(g212 V) tp7019 a(g212 V) tp7020 a(g212 V) tp7021 a(g6 V\u000a p7022 tp7023 a(g212 V) tp7024 a(g6 V\u000a tp7025 a(g212 V) tp7026 a(g6 V\u000a tp7027 a(g212 V( tp7028 a(g100 Vdef-compound-type p7029 tp7030 a(g6 V tp7031 a(g100 VREAL p7032 tp7033 a(g6 V tp7034 a(g212 V( tp7035 a(g138 V&optional p7036 tp7037 a(g6 V tp7038 a(g212 V( tp7039 a(g100 Vlow p7040 tp7041 a(g6 V tp7042 a(g258 V'* p7043 tp7044 a(g212 V) tp7045 a(g6 V tp7046 a(g212 V( tp7047 a(g100 Vhigh p7048 tp7049 a(g6 V tp7050 a(g258 V'* p7051 tp7052 a(g212 V) tp7053 a(g212 V) tp7054 a(g6 V tp7055 a(g212 V( tp7056 a(g100 Vx tp7057 a(g212 V) tp7058 a(g6 V\u000a p7059 tp7060 a(g60 Vnil p7061 tp7062 a(g6 V\u000a p7063 tp7064 a(g212 V( tp7065 a(g100 Vtypep-number-test p7066 tp7067 a(g6 V tp7068 a(g100 Vx tp7069 a(g6 V tp7070 a(g100 Vlow p7071 tp7072 a(g6 V tp7073 a(g100 Vhigh p7074 tp7075 a(g6 V tp7076 a(g48 V#' p7077 tp7078 a(g84 Vrealp p7079 tp7080 a(g6 V tp7081 a(g258 V'REAL p7082 tp7083 a(g212 V) tp7084 a(g6 V\u000a p7085 tp7086 a(g212 V( tp7087 a(g100 Vc-typep-number p7088 tp7089 a(g6 V tp7090 a(g258 V'REAL p7091 tp7092 a(g6 V tp7093 a(g258 V'REALP p7094 tp7095 a(g6 V tp7096 a(g100 Vlow p7097 tp7098 a(g6 V tp7099 a(g100 Vhigh p7100 tp7101 a(g6 V tp7102 a(g100 Vx tp7103 a(g212 V) tp7104 a(g6 V\u000a tp7105 a(g212 V) tp7106 a(g6 V\u000a tp7107 a(g212 V( tp7108 a(g100 Vdef-compound-type p7109 tp7110 a(g6 V tp7111 a(g100 VRATIONAL p7112 tp7113 a(g6 V tp7114 a(g212 V( tp7115 a(g138 V&optional p7116 tp7117 a(g6 V tp7118 a(g212 V( tp7119 a(g100 Vlow p7120 tp7121 a(g6 V tp7122 a(g258 V'* p7123 tp7124 a(g212 V) tp7125 a(g6 V tp7126 a(g212 V( tp7127 a(g100 Vhigh p7128 tp7129 a(g6 V tp7130 a(g258 V'* p7131 tp7132 a(g212 V) tp7133 a(g212 V) tp7134 a(g6 V tp7135 a(g212 V( tp7136 a(g100 Vx tp7137 a(g212 V) tp7138 a(g6 V\u000a p7139 tp7140 a(g60 Vnil p7141 tp7142 a(g6 V\u000a p7143 tp7144 a(g212 V( tp7145 a(g100 Vtypep-number-test p7146 tp7147 a(g6 V tp7148 a(g100 Vx tp7149 a(g6 V tp7150 a(g100 Vlow p7151 tp7152 a(g6 V tp7153 a(g100 Vhigh p7154 tp7155 a(g6 V tp7156 a(g48 V#' p7157 tp7158 a(g84 Vrationalp p7159 tp7160 a(g6 V tp7161 a(g258 V'RATIONAL p7162 tp7163 a(g212 V) tp7164 a(g6 V\u000a p7165 tp7166 a(g212 V( tp7167 a(g100 Vc-typep-number p7168 tp7169 a(g6 V tp7170 a(g258 V'RATIONAL p7171 tp7172 a(g6 V tp7173 a(g258 V'RATIONALP p7174 tp7175 a(g6 V tp7176 a(g100 Vlow p7177 tp7178 a(g6 V tp7179 a(g100 Vhigh p7180 tp7181 a(g6 V tp7182 a(g100 Vx tp7183 a(g212 V) tp7184 a(g6 V\u000a tp7185 a(g212 V) tp7186 a(g6 V\u000a tp7187 a(g212 V( tp7188 a(g100 Vdef-compound-type p7189 tp7190 a(g6 V tp7191 a(g100 VFLOAT p7192 tp7193 a(g6 V tp7194 a(g212 V( tp7195 a(g138 V&optional p7196 tp7197 a(g6 V tp7198 a(g212 V( tp7199 a(g100 Vlow p7200 tp7201 a(g6 V tp7202 a(g258 V'* p7203 tp7204 a(g212 V) tp7205 a(g6 V tp7206 a(g212 V( tp7207 a(g100 Vhigh p7208 tp7209 a(g6 V tp7210 a(g258 V'* p7211 tp7212 a(g212 V) tp7213 a(g212 V) tp7214 a(g6 V tp7215 a(g212 V( tp7216 a(g100 Vx tp7217 a(g212 V) tp7218 a(g6 V\u000a p7219 tp7220 a(g60 Vnil p7221 tp7222 a(g6 V\u000a p7223 tp7224 a(g212 V( tp7225 a(g100 Vtypep-number-test p7226 tp7227 a(g6 V tp7228 a(g100 Vx tp7229 a(g6 V tp7230 a(g100 Vlow p7231 tp7232 a(g6 V tp7233 a(g100 Vhigh p7234 tp7235 a(g6 V tp7236 a(g48 V#' p7237 tp7238 a(g84 Vfloatp p7239 tp7240 a(g6 V tp7241 a(g258 V'FLOAT p7242 tp7243 a(g212 V) tp7244 a(g6 V\u000a p7245 tp7246 a(g212 V( tp7247 a(g100 Vc-typep-number p7248 tp7249 a(g6 V tp7250 a(g258 V'FLOAT p7251 tp7252 a(g6 V tp7253 a(g258 V'FLOATP p7254 tp7255 a(g6 V tp7256 a(g100 Vlow p7257 tp7258 a(g6 V tp7259 a(g100 Vhigh p7260 tp7261 a(g6 V tp7262 a(g100 Vx tp7263 a(g212 V) tp7264 a(g6 V\u000a tp7265 a(g212 V) tp7266 a(g6 V\u000a tp7267 a(g212 V( tp7268 a(g100 Vdef-compound-type p7269 tp7270 a(g6 V tp7271 a(g100 VSHORT-FLOAT p7272 tp7273 a(g6 V tp7274 a(g212 V( tp7275 a(g138 V&optional p7276 tp7277 a(g6 V tp7278 a(g212 V( tp7279 a(g100 Vlow p7280 tp7281 a(g6 V tp7282 a(g258 V'* p7283 tp7284 a(g212 V) tp7285 a(g6 V tp7286 a(g212 V( tp7287 a(g100 Vhigh p7288 tp7289 a(g6 V tp7290 a(g258 V'* p7291 tp7292 a(g212 V) tp7293 a(g212 V) tp7294 a(g6 V tp7295 a(g212 V( tp7296 a(g100 Vx tp7297 a(g212 V) tp7298 a(g6 V\u000a p7299 tp7300 a(g60 Vnil p7301 tp7302 a(g6 V\u000a p7303 tp7304 a(g212 V( tp7305 a(g100 Vtypep-number-test p7306 tp7307 a(g6 V tp7308 a(g100 Vx tp7309 a(g6 V tp7310 a(g100 Vlow p7311 tp7312 a(g6 V tp7313 a(g100 Vhigh p7314 tp7315 a(g6 V tp7316 a(g48 V#' p7317 tp7318 a(g100 Vshort-float-p p7319 tp7320 a(g6 V tp7321 a(g258 V'SHORT-FLOAT p7322 tp7323 a(g212 V) tp7324 a(g6 V\u000a p7325 tp7326 a(g212 V( tp7327 a(g100 Vc-typep-number p7328 tp7329 a(g6 V tp7330 a(g258 V'SHORT-FLOAT p7331 tp7332 a(g6 V tp7333 a(g258 V'SHORT-FLOAT-P p7334 tp7335 a(g6 V tp7336 a(g100 Vlow p7337 tp7338 a(g6 V tp7339 a(g100 Vhigh p7340 tp7341 a(g6 V tp7342 a(g100 Vx tp7343 a(g212 V) tp7344 a(g6 V\u000a tp7345 a(g212 V) tp7346 a(g6 V\u000a tp7347 a(g212 V( tp7348 a(g100 Vdef-compound-type p7349 tp7350 a(g6 V tp7351 a(g100 VSINGLE-FLOAT p7352 tp7353 a(g6 V tp7354 a(g212 V( tp7355 a(g138 V&optional p7356 tp7357 a(g6 V tp7358 a(g212 V( tp7359 a(g100 Vlow p7360 tp7361 a(g6 V tp7362 a(g258 V'* p7363 tp7364 a(g212 V) tp7365 a(g6 V tp7366 a(g212 V( tp7367 a(g100 Vhigh p7368 tp7369 a(g6 V tp7370 a(g258 V'* p7371 tp7372 a(g212 V) tp7373 a(g212 V) tp7374 a(g6 V tp7375 a(g212 V( tp7376 a(g100 Vx tp7377 a(g212 V) tp7378 a(g6 V\u000a p7379 tp7380 a(g60 Vnil p7381 tp7382 a(g6 V\u000a p7383 tp7384 a(g212 V( tp7385 a(g100 Vtypep-number-test p7386 tp7387 a(g6 V tp7388 a(g100 Vx tp7389 a(g6 V tp7390 a(g100 Vlow p7391 tp7392 a(g6 V tp7393 a(g100 Vhigh p7394 tp7395 a(g6 V tp7396 a(g48 V#' p7397 tp7398 a(g100 Vsingle-float-p p7399 tp7400 a(g6 V tp7401 a(g258 V'SINGLE-FLOAT p7402 tp7403 a(g212 V) tp7404 a(g6 V\u000a p7405 tp7406 a(g212 V( tp7407 a(g100 Vc-typep-number p7408 tp7409 a(g6 V tp7410 a(g258 V'SINGLE-FLOAT p7411 tp7412 a(g6 V tp7413 a(g258 V'SINGLE-FLOAT-P p7414 tp7415 a(g6 V tp7416 a(g100 Vlow p7417 tp7418 a(g6 V tp7419 a(g100 Vhigh p7420 tp7421 a(g6 V tp7422 a(g100 Vx tp7423 a(g212 V) tp7424 a(g6 V\u000a tp7425 a(g212 V) tp7426 a(g6 V\u000a tp7427 a(g212 V( tp7428 a(g100 Vdef-compound-type p7429 tp7430 a(g6 V tp7431 a(g100 VDOUBLE-FLOAT p7432 tp7433 a(g6 V tp7434 a(g212 V( tp7435 a(g138 V&optional p7436 tp7437 a(g6 V tp7438 a(g212 V( tp7439 a(g100 Vlow p7440 tp7441 a(g6 V tp7442 a(g258 V'* p7443 tp7444 a(g212 V) tp7445 a(g6 V tp7446 a(g212 V( tp7447 a(g100 Vhigh p7448 tp7449 a(g6 V tp7450 a(g258 V'* p7451 tp7452 a(g212 V) tp7453 a(g212 V) tp7454 a(g6 V tp7455 a(g212 V( tp7456 a(g100 Vx tp7457 a(g212 V) tp7458 a(g6 V\u000a p7459 tp7460 a(g60 Vnil p7461 tp7462 a(g6 V\u000a p7463 tp7464 a(g212 V( tp7465 a(g100 Vtypep-number-test p7466 tp7467 a(g6 V tp7468 a(g100 Vx tp7469 a(g6 V tp7470 a(g100 Vlow p7471 tp7472 a(g6 V tp7473 a(g100 Vhigh p7474 tp7475 a(g6 V tp7476 a(g48 V#' p7477 tp7478 a(g100 Vdouble-float-p p7479 tp7480 a(g6 V tp7481 a(g258 V'DOUBLE-FLOAT p7482 tp7483 a(g212 V) tp7484 a(g6 V\u000a p7485 tp7486 a(g212 V( tp7487 a(g100 Vc-typep-number p7488 tp7489 a(g6 V tp7490 a(g258 V'DOUBLE-FLOAT p7491 tp7492 a(g6 V tp7493 a(g258 V'DOUBLE-FLOAT-P p7494 tp7495 a(g6 V tp7496 a(g100 Vlow p7497 tp7498 a(g6 V tp7499 a(g100 Vhigh p7500 tp7501 a(g6 V tp7502 a(g100 Vx tp7503 a(g212 V) tp7504 a(g6 V\u000a tp7505 a(g212 V) tp7506 a(g6 V\u000a tp7507 a(g212 V( tp7508 a(g100 Vdef-compound-type p7509 tp7510 a(g6 V tp7511 a(g100 VLONG-FLOAT p7512 tp7513 a(g6 V tp7514 a(g212 V( tp7515 a(g138 V&optional p7516 tp7517 a(g6 V tp7518 a(g212 V( tp7519 a(g100 Vlow p7520 tp7521 a(g6 V tp7522 a(g258 V'* p7523 tp7524 a(g212 V) tp7525 a(g6 V tp7526 a(g212 V( tp7527 a(g100 Vhigh p7528 tp7529 a(g6 V tp7530 a(g258 V'* p7531 tp7532 a(g212 V) tp7533 a(g212 V) tp7534 a(g6 V tp7535 a(g212 V( tp7536 a(g100 Vx tp7537 a(g212 V) tp7538 a(g6 V\u000a p7539 tp7540 a(g60 Vnil p7541 tp7542 a(g6 V\u000a p7543 tp7544 a(g212 V( tp7545 a(g100 Vtypep-number-test p7546 tp7547 a(g6 V tp7548 a(g100 Vx tp7549 a(g6 V tp7550 a(g100 Vlow p7551 tp7552 a(g6 V tp7553 a(g100 Vhigh p7554 tp7555 a(g6 V tp7556 a(g48 V#' p7557 tp7558 a(g100 Vlong-float-p p7559 tp7560 a(g6 V tp7561 a(g258 V'LONG-FLOAT p7562 tp7563 a(g212 V) tp7564 a(g6 V\u000a p7565 tp7566 a(g212 V( tp7567 a(g100 Vc-typep-number p7568 tp7569 a(g6 V tp7570 a(g258 V'LONG-FLOAT p7571 tp7572 a(g6 V tp7573 a(g258 V'LONG-FLOAT-P p7574 tp7575 a(g6 V tp7576 a(g100 Vlow p7577 tp7578 a(g6 V tp7579 a(g100 Vhigh p7580 tp7581 a(g6 V tp7582 a(g100 Vx tp7583 a(g212 V) tp7584 a(g6 V\u000a tp7585 a(g212 V) tp7586 a(g6 V\u000a tp7587 a(g212 V( tp7588 a(g100 Vdef-compound-type p7589 tp7590 a(g6 V tp7591 a(g100 VSTRING p7592 tp7593 a(g6 V tp7594 a(g212 V( tp7595 a(g138 V&optional p7596 tp7597 a(g6 V tp7598 a(g212 V( tp7599 a(g100 Vsize p7600 tp7601 a(g6 V tp7602 a(g258 V'* p7603 tp7604 a(g212 V) tp7605 a(g212 V) tp7606 a(g6 V tp7607 a(g212 V( tp7608 a(g100 Vx tp7609 a(g212 V) tp7610 a(g6 V\u000a p7611 tp7612 a(g212 V( tp7613 a(g100 Vensure-dim p7614 tp7615 a(g6 V tp7616 a(g100 VSTRING p7617 tp7618 a(g6 V tp7619 a(g100 Vsize p7620 tp7621 a(g212 V) tp7622 a(g6 V\u000a p7623 tp7624 a(g212 V( tp7625 a(g84 Vand p7626 tp7627 a(g6 V tp7628 a(g212 V( tp7629 a(g84 Vstringp p7630 tp7631 a(g6 V tp7632 a(g100 Vx tp7633 a(g212 V) tp7634 a(g6 V\u000a p7635 tp7636 a(g212 V( tp7637 a(g84 Vor p7638 tp7639 a(g6 V tp7640 a(g212 V( tp7641 a(g84 Veq p7642 tp7643 a(g6 V tp7644 a(g100 Vsize p7645 tp7646 a(g6 V tp7647 a(g258 V'* p7648 tp7649 a(g212 V) tp7650 a(g6 V tp7651 a(g212 V( tp7652 a(g84 Veql p7653 tp7654 a(g6 V tp7655 a(g100 Vsize p7656 tp7657 a(g6 V tp7658 a(g212 V( tp7659 a(g84 Varray-dimension p7660 tp7661 a(g6 V tp7662 a(g100 Vx tp7663 a(g6 V tp7664 a(g328 V0 tp7665 a(g212 V) tp7666 a(g212 V) tp7667 a(g212 V) tp7668 a(g6 V\u000a p7669 tp7670 a(g212 V) tp7671 a(g6 V\u000a p7672 tp7673 a(g212 V( tp7674 a(g100 Vc-typep-vector p7675 tp7676 a(g6 V tp7677 a(g258 V'STRINGP p7678 tp7679 a(g6 V tp7680 a(g100 Vsize p7681 tp7682 a(g6 V tp7683 a(g100 Vx tp7684 a(g212 V) tp7685 a(g6 V\u000a tp7686 a(g212 V) tp7687 a(g6 V\u000a tp7688 a(g212 V( tp7689 a(g100 Vdef-compound-type p7690 tp7691 a(g6 V tp7692 a(g100 VSIMPLE-STRING p7693 tp7694 a(g6 V tp7695 a(g212 V( tp7696 a(g138 V&optional p7697 tp7698 a(g6 V tp7699 a(g212 V( tp7700 a(g100 Vsize p7701 tp7702 a(g6 V tp7703 a(g258 V'* p7704 tp7705 a(g212 V) tp7706 a(g212 V) tp7707 a(g6 V tp7708 a(g212 V( tp7709 a(g100 Vx tp7710 a(g212 V) tp7711 a(g6 V\u000a p7712 tp7713 a(g212 V( tp7714 a(g100 Vensure-dim p7715 tp7716 a(g6 V tp7717 a(g100 VSIMPLE-STRING p7718 tp7719 a(g6 V tp7720 a(g100 Vsize p7721 tp7722 a(g212 V) tp7723 a(g6 V\u000a p7724 tp7725 a(g212 V( tp7726 a(g84 Vand p7727 tp7728 a(g6 V tp7729 a(g212 V( tp7730 a(g84 Vsimple-string-p p7731 tp7732 a(g6 V tp7733 a(g100 Vx tp7734 a(g212 V) tp7735 a(g6 V\u000a p7736 tp7737 a(g212 V( tp7738 a(g84 Vor p7739 tp7740 a(g6 V tp7741 a(g212 V( tp7742 a(g84 Veq p7743 tp7744 a(g6 V tp7745 a(g100 Vsize p7746 tp7747 a(g6 V tp7748 a(g258 V'* p7749 tp7750 a(g212 V) tp7751 a(g6 V tp7752 a(g212 V( tp7753 a(g84 Veql p7754 tp7755 a(g6 V tp7756 a(g100 Vsize p7757 tp7758 a(g6 V tp7759 a(g212 V( tp7760 a(g84 Varray-dimension p7761 tp7762 a(g6 V tp7763 a(g100 Vx tp7764 a(g6 V tp7765 a(g328 V0 tp7766 a(g212 V) tp7767 a(g212 V) tp7768 a(g212 V) tp7769 a(g6 V\u000a p7770 tp7771 a(g212 V) tp7772 a(g6 V\u000a p7773 tp7774 a(g212 V( tp7775 a(g100 Vc-typep-vector p7776 tp7777 a(g6 V tp7778 a(g258 V'SIMPLE-STRING-P p7779 tp7780 a(g6 V tp7781 a(g100 Vsize p7782 tp7783 a(g6 V tp7784 a(g100 Vx tp7785 a(g212 V) tp7786 a(g6 V\u000a tp7787 a(g212 V) tp7788 a(g6 V\u000a tp7789 a(g212 V( tp7790 a(g100 Vdef-compound-type p7791 tp7792 a(g6 V tp7793 a(g100 VBASE-STRING p7794 tp7795 a(g6 V tp7796 a(g212 V( tp7797 a(g138 V&optional p7798 tp7799 a(g6 V tp7800 a(g212 V( tp7801 a(g100 Vsize p7802 tp7803 a(g6 V tp7804 a(g258 V'* p7805 tp7806 a(g212 V) tp7807 a(g212 V) tp7808 a(g6 V tp7809 a(g212 V( tp7810 a(g100 Vx tp7811 a(g212 V) tp7812 a(g6 V\u000a p7813 tp7814 a(g212 V( tp7815 a(g100 Vensure-dim p7816 tp7817 a(g6 V tp7818 a(g100 VBASE-STRING p7819 tp7820 a(g6 V tp7821 a(g100 Vsize p7822 tp7823 a(g212 V) tp7824 a(g6 V\u000a p7825 tp7826 a(g212 V( tp7827 a(g84 Vand p7828 tp7829 a(g6 V tp7830 a(g212 V( tp7831 a(g84 Vstringp p7832 tp7833 a(g6 V tp7834 a(g100 Vx tp7835 a(g212 V) tp7836 a(g6 V\u000a p7837 tp7838 a(g212 V( tp7839 a(g84 Vor p7840 tp7841 a(g6 V tp7842 a(g212 V( tp7843 a(g84 Veq p7844 tp7845 a(g6 V tp7846 a(g100 Vsize p7847 tp7848 a(g6 V tp7849 a(g258 V'* p7850 tp7851 a(g212 V) tp7852 a(g6 V tp7853 a(g212 V( tp7854 a(g84 Veql p7855 tp7856 a(g6 V tp7857 a(g100 Vsize p7858 tp7859 a(g6 V tp7860 a(g212 V( tp7861 a(g84 Varray-dimension p7862 tp7863 a(g6 V tp7864 a(g100 Vx tp7865 a(g6 V tp7866 a(g328 V0 tp7867 a(g212 V) tp7868 a(g212 V) tp7869 a(g212 V) tp7870 a(g6 V\u000a p7871 tp7872 a(g212 V) tp7873 a(g6 V\u000a p7874 tp7875 a(g212 V( tp7876 a(g100 Vc-typep-vector p7877 tp7878 a(g6 V tp7879 a(g258 V'STRINGP p7880 tp7881 a(g6 V tp7882 a(g100 Vsize p7883 tp7884 a(g6 V tp7885 a(g100 Vx tp7886 a(g212 V) tp7887 a(g6 V\u000a tp7888 a(g212 V) tp7889 a(g6 V\u000a tp7890 a(g212 V( tp7891 a(g100 Vdef-compound-type p7892 tp7893 a(g6 V tp7894 a(g100 VSIMPLE-BASE-STRING p7895 tp7896 a(g6 V tp7897 a(g212 V( tp7898 a(g138 V&optional p7899 tp7900 a(g6 V tp7901 a(g212 V( tp7902 a(g100 Vsize p7903 tp7904 a(g6 V tp7905 a(g258 V'* p7906 tp7907 a(g212 V) tp7908 a(g212 V) tp7909 a(g6 V tp7910 a(g212 V( tp7911 a(g100 Vx tp7912 a(g212 V) tp7913 a(g6 V\u000a p7914 tp7915 a(g212 V( tp7916 a(g100 Vensure-dim p7917 tp7918 a(g6 V tp7919 a(g100 VSIMPLE-BASE-STRING p7920 tp7921 a(g6 V tp7922 a(g100 Vsize p7923 tp7924 a(g212 V) tp7925 a(g6 V\u000a p7926 tp7927 a(g212 V( tp7928 a(g84 Vand p7929 tp7930 a(g6 V tp7931 a(g212 V( tp7932 a(g84 Vsimple-string-p p7933 tp7934 a(g6 V tp7935 a(g100 Vx tp7936 a(g212 V) tp7937 a(g6 V\u000a p7938 tp7939 a(g212 V( tp7940 a(g84 Vor p7941 tp7942 a(g6 V tp7943 a(g212 V( tp7944 a(g84 Veq p7945 tp7946 a(g6 V tp7947 a(g100 Vsize p7948 tp7949 a(g6 V tp7950 a(g258 V'* p7951 tp7952 a(g212 V) tp7953 a(g6 V tp7954 a(g212 V( tp7955 a(g84 Veql p7956 tp7957 a(g6 V tp7958 a(g100 Vsize p7959 tp7960 a(g6 V tp7961 a(g212 V( tp7962 a(g84 Varray-dimension p7963 tp7964 a(g6 V tp7965 a(g100 Vx tp7966 a(g6 V tp7967 a(g328 V0 tp7968 a(g212 V) tp7969 a(g212 V) tp7970 a(g212 V) tp7971 a(g6 V\u000a p7972 tp7973 a(g212 V) tp7974 a(g6 V\u000a p7975 tp7976 a(g212 V( tp7977 a(g100 Vc-typep-vector p7978 tp7979 a(g6 V tp7980 a(g258 V'SIMPLE-STRING-P p7981 tp7982 a(g6 V tp7983 a(g100 Vsize p7984 tp7985 a(g6 V tp7986 a(g100 Vx tp7987 a(g212 V) tp7988 a(g6 V\u000a tp7989 a(g212 V) tp7990 a(g6 V\u000a tp7991 a(g212 V( tp7992 a(g100 Vdef-compound-type p7993 tp7994 a(g6 V tp7995 a(g100 VBIT-VECTOR p7996 tp7997 a(g6 V tp7998 a(g212 V( tp7999 a(g138 V&optional p8000 tp8001 a(g6 V tp8002 a(g212 V( tp8003 a(g100 Vsize p8004 tp8005 a(g6 V tp8006 a(g258 V'* p8007 tp8008 a(g212 V) tp8009 a(g212 V) tp8010 a(g6 V tp8011 a(g212 V( tp8012 a(g100 Vx tp8013 a(g212 V) tp8014 a(g6 V\u000a p8015 tp8016 a(g212 V( tp8017 a(g100 Vensure-dim p8018 tp8019 a(g6 V tp8020 a(g100 VBIT-VECTOR p8021 tp8022 a(g6 V tp8023 a(g100 Vsize p8024 tp8025 a(g212 V) tp8026 a(g6 V\u000a p8027 tp8028 a(g212 V( tp8029 a(g84 Vand p8030 tp8031 a(g6 V tp8032 a(g212 V( tp8033 a(g84 Vbit-vector-p p8034 tp8035 a(g6 V tp8036 a(g100 Vx tp8037 a(g212 V) tp8038 a(g6 V\u000a p8039 tp8040 a(g212 V( tp8041 a(g84 Vor p8042 tp8043 a(g6 V tp8044 a(g212 V( tp8045 a(g84 Veq p8046 tp8047 a(g6 V tp8048 a(g100 Vsize p8049 tp8050 a(g6 V tp8051 a(g258 V'* p8052 tp8053 a(g212 V) tp8054 a(g6 V tp8055 a(g212 V( tp8056 a(g84 Veql p8057 tp8058 a(g6 V tp8059 a(g100 Vsize p8060 tp8061 a(g6 V tp8062 a(g212 V( tp8063 a(g84 Varray-dimension p8064 tp8065 a(g6 V tp8066 a(g100 Vx tp8067 a(g6 V tp8068 a(g328 V0 tp8069 a(g212 V) tp8070 a(g212 V) tp8071 a(g212 V) tp8072 a(g6 V\u000a p8073 tp8074 a(g212 V) tp8075 a(g6 V\u000a p8076 tp8077 a(g212 V( tp8078 a(g100 Vc-typep-vector p8079 tp8080 a(g6 V tp8081 a(g258 V'BIT-VECTOR-P p8082 tp8083 a(g6 V tp8084 a(g100 Vsize p8085 tp8086 a(g6 V tp8087 a(g100 Vx tp8088 a(g212 V) tp8089 a(g6 V\u000a tp8090 a(g212 V) tp8091 a(g6 V\u000a tp8092 a(g212 V( tp8093 a(g100 Vdef-compound-type p8094 tp8095 a(g6 V tp8096 a(g100 VSIMPLE-BIT-VECTOR p8097 tp8098 a(g6 V tp8099 a(g212 V( tp8100 a(g138 V&optional p8101 tp8102 a(g6 V tp8103 a(g212 V( tp8104 a(g100 Vsize p8105 tp8106 a(g6 V tp8107 a(g258 V'* p8108 tp8109 a(g212 V) tp8110 a(g212 V) tp8111 a(g6 V tp8112 a(g212 V( tp8113 a(g100 Vx tp8114 a(g212 V) tp8115 a(g6 V\u000a p8116 tp8117 a(g212 V( tp8118 a(g100 Vensure-dim p8119 tp8120 a(g6 V tp8121 a(g100 VSIMPLE-BIT-VECTOR p8122 tp8123 a(g6 V tp8124 a(g100 Vsize p8125 tp8126 a(g212 V) tp8127 a(g6 V\u000a p8128 tp8129 a(g212 V( tp8130 a(g84 Vand p8131 tp8132 a(g6 V tp8133 a(g212 V( tp8134 a(g84 Vsimple-bit-vector-p p8135 tp8136 a(g6 V tp8137 a(g100 Vx tp8138 a(g212 V) tp8139 a(g6 V\u000a p8140 tp8141 a(g212 V( tp8142 a(g84 Vor p8143 tp8144 a(g6 V tp8145 a(g212 V( tp8146 a(g84 Veq p8147 tp8148 a(g6 V tp8149 a(g100 Vsize p8150 tp8151 a(g6 V tp8152 a(g258 V'* p8153 tp8154 a(g212 V) tp8155 a(g6 V tp8156 a(g212 V( tp8157 a(g84 Veql p8158 tp8159 a(g6 V tp8160 a(g100 Vsize p8161 tp8162 a(g6 V tp8163 a(g212 V( tp8164 a(g84 Varray-dimension p8165 tp8166 a(g6 V tp8167 a(g100 Vx tp8168 a(g6 V tp8169 a(g328 V0 tp8170 a(g212 V) tp8171 a(g212 V) tp8172 a(g212 V) tp8173 a(g6 V\u000a p8174 tp8175 a(g212 V) tp8176 a(g6 V\u000a p8177 tp8178 a(g212 V( tp8179 a(g100 Vc-typep-vector p8180 tp8181 a(g6 V tp8182 a(g258 V'SIMPLE-BIT-VECTOR-P p8183 tp8184 a(g6 V tp8185 a(g100 Vsize p8186 tp8187 a(g6 V tp8188 a(g100 Vx tp8189 a(g212 V) tp8190 a(g6 V\u000a tp8191 a(g212 V) tp8192 a(g6 V\u000a tp8193 a(g212 V( tp8194 a(g100 Vdef-compound-type p8195 tp8196 a(g6 V tp8197 a(g100 VCONS p8198 tp8199 a(g6 V tp8200 a(g212 V( tp8201 a(g138 V&optional p8202 tp8203 a(g6 V tp8204 a(g212 V( tp8205 a(g100 Vcar-type p8206 tp8207 a(g6 V tp8208 a(g258 V'* p8209 tp8210 a(g212 V) tp8211 a(g6 V tp8212 a(g212 V( tp8213 a(g100 Vcdr-type p8214 tp8215 a(g6 V tp8216 a(g258 V'* p8217 tp8218 a(g212 V) tp8219 a(g212 V) tp8220 a(g6 V tp8221 a(g212 V( tp8222 a(g100 Vx tp8223 a(g212 V) tp8224 a(g6 V\u000a p8225 tp8226 a(g60 Vnil p8227 tp8228 a(g6 V\u000a p8229 tp8230 a(g212 V( tp8231 a(g84 Vand p8232 tp8233 a(g6 V tp8234 a(g212 V( tp8235 a(g84 Vconsp p8236 tp8237 a(g6 V tp8238 a(g100 Vx tp8239 a(g212 V) tp8240 a(g6 V\u000a p8241 tp8242 a(g212 V( tp8243 a(g84 Vor p8244 tp8245 a(g6 V tp8246 a(g212 V( tp8247 a(g84 Veq p8248 tp8249 a(g6 V tp8250 a(g100 Vcar-type p8251 tp8252 a(g6 V tp8253 a(g258 V'* p8254 tp8255 a(g212 V) tp8256 a(g6 V tp8257 a(g212 V( tp8258 a(g84 Vtypep p8259 tp8260 a(g6 V tp8261 a(g212 V( tp8262 a(g84 Vcar p8263 tp8264 a(g6 V tp8265 a(g100 Vx tp8266 a(g212 V) tp8267 a(g6 V tp8268 a(g100 Vcar-type p8269 tp8270 a(g212 V) tp8271 a(g212 V) tp8272 a(g6 V\u000a p8273 tp8274 a(g212 V( tp8275 a(g84 Vor p8276 tp8277 a(g6 V tp8278 a(g212 V( tp8279 a(g84 Veq p8280 tp8281 a(g6 V tp8282 a(g100 Vcdr-type p8283 tp8284 a(g6 V tp8285 a(g258 V'* p8286 tp8287 a(g212 V) tp8288 a(g6 V tp8289 a(g212 V( tp8290 a(g84 Vtypep p8291 tp8292 a(g6 V tp8293 a(g212 V( tp8294 a(g84 Vcdr p8295 tp8296 a(g6 V tp8297 a(g100 Vx tp8298 a(g212 V) tp8299 a(g6 V tp8300 a(g100 Vcdr-type p8301 tp8302 a(g212 V) tp8303 a(g212 V) tp8304 a(g6 V\u000a p8305 tp8306 a(g212 V) tp8307 a(g6 V\u000a p8308 tp8309 a(g353 V` tp8310 a(g212 V( tp8311 a(g100 VAND p8312 tp8313 a(g6 V tp8314 a(g212 V( tp8315 a(g100 VCONSP p8316 tp8317 a(g6 V tp8318 a(g353 V, tp8319 a(g100 Vx tp8320 a(g212 V) tp8321 a(g6 V\u000a p8322 tp8323 a(g353 V,@ p8324 tp8325 a(g212 V( tp8326 a(g138 Vif p8327 tp8328 a(g6 V tp8329 a(g212 V( tp8330 a(g84 Veq p8331 tp8332 a(g6 V tp8333 a(g100 Vcar-type p8334 tp8335 a(g6 V tp8336 a(g258 V'* p8337 tp8338 a(g212 V) tp8339 a(g6 V tp8340 a(g353 V' tp8341 a(g212 V( tp8342 a(g212 V) tp8343 a(g6 V tp8344 a(g353 V` tp8345 a(g212 V( tp8346 a(g212 V( tp8347 a(g100 VTYPEP p8348 tp8349 a(g6 V tp8350 a(g212 V( tp8351 a(g100 VCAR p8352 tp8353 a(g6 V tp8354 a(g353 V, tp8355 a(g100 Vx tp8356 a(g212 V) tp8357 a(g6 V tp8358 a(g258 V',car-type p8359 tp8360 a(g212 V) tp8361 a(g212 V) tp8362 a(g212 V) tp8363 a(g6 V\u000a p8364 tp8365 a(g353 V,@ p8366 tp8367 a(g212 V( tp8368 a(g138 Vif p8369 tp8370 a(g6 V tp8371 a(g212 V( tp8372 a(g84 Veq p8373 tp8374 a(g6 V tp8375 a(g100 Vcdr-type p8376 tp8377 a(g6 V tp8378 a(g258 V'* p8379 tp8380 a(g212 V) tp8381 a(g6 V tp8382 a(g353 V' tp8383 a(g212 V( tp8384 a(g212 V) tp8385 a(g6 V tp8386 a(g353 V` tp8387 a(g212 V( tp8388 a(g212 V( tp8389 a(g100 VTYPEP p8390 tp8391 a(g6 V tp8392 a(g212 V( tp8393 a(g100 VCDR p8394 tp8395 a(g6 V tp8396 a(g353 V, tp8397 a(g100 Vx tp8398 a(g212 V) tp8399 a(g6 V tp8400 a(g258 V',cdr-type p8401 tp8402 a(g212 V) tp8403 a(g212 V) tp8404 a(g212 V) tp8405 a(g6 V\u000a p8406 tp8407 a(g212 V) tp8408 a(g6 V\u000a tp8409 a(g212 V) tp8410 a(g6 V\u000a\u000a p8411 tp8412 a(g212 V( tp8413 a(g84 Vfmakunbound p8414 tp8415 a(g6 V tp8416 a(g258 V'def-compound-type p8417 tp8418 a(g212 V) tp8419 a(g6 V\u000a\u000a p8420 tp8421 a(g31 V;; ---------------------------------------------------------------------------- p8422 tp8423 a(g6 V\u000a\u000a p8424 tp8425 a(g31 V; Typtest ohne Gefahr einer Fehlermeldung. Für SIGNAL und HANDLER-BIND. p8426 tp8427 a(g6 V\u000a tp8428 a(g212 V( tp8429 a(g84 Vdefun p8430 tp8431 a(g6 V tp8432 a(g100 Vsafe-typep p8433 tp8434 a(g6 V tp8435 a(g212 V( tp8436 a(g100 Vx tp8437 a(g6 V tp8438 a(g100 Vy tp8439 a(g6 V tp8440 a(g138 V&optional p8441 tp8442 a(g6 V tp8443 a(g100 Venv p8444 tp8445 a(g212 V) tp8446 a(g6 V\u000a p8447 tp8448 a(g212 V( tp8449 a(g138 Vlet p8450 tp8451 a(g6 V tp8452 a(g212 V( tp8453 a(g212 V( tp8454 a(g103 V*error-handler* p8455 tp8456 a(g6 V\u000a p8457 tp8458 a(g48 V#' p8459 tp8460 a(g212 V( tp8461 a(g138 Vlambda p8462 tp8463 a(g6 V tp8464 a(g212 V( tp8465 a(g138 V&rest p8466 tp8467 a(g6 V tp8468 a(g100 Verror-args p8469 tp8470 a(g212 V) tp8471 a(g6 V\u000a p8472 tp8473 a(g212 V( tp8474 a(g138 Vdeclare p8475 tp8476 a(g6 V tp8477 a(g212 V( tp8478 a(g138 Vignore p8479 tp8480 a(g6 V tp8481 a(g100 Verror-args p8482 tp8483 a(g212 V) tp8484 a(g212 V) tp8485 a(g6 V\u000a p8486 tp8487 a(g212 V( tp8488 a(g138 Vreturn-from p8489 tp8490 a(g6 V tp8491 a(g100 Vsafe-typep p8492 tp8493 a(g6 V tp8494 a(g212 V( tp8495 a(g84 Vvalues p8496 tp8497 a(g6 V tp8498 a(g60 Vnil p8499 tp8500 a(g6 V tp8501 a(g60 Vnil p8502 tp8503 a(g212 V) tp8504 a(g212 V) tp8505 a(g6 V\u000a p8506 tp8507 a(g212 V) tp8508 a(g212 V) tp8509 a(g6 V p8510 tp8511 a(g212 V) tp8512 a(g6 V\u000a p8513 tp8514 a(g212 V( tp8515 a(g84 Vvalues p8516 tp8517 a(g6 V tp8518 a(g212 V( tp8519 a(g84 Vtypep p8520 tp8521 a(g6 V tp8522 a(g100 Vx tp8523 a(g6 V tp8524 a(g100 Vy tp8525 a(g6 V tp8526 a(g100 Venv p8527 tp8528 a(g212 V) tp8529 a(g6 V tp8530 a(g60 Vt tp8531 a(g212 V) tp8532 a(g6 V\u000a tp8533 a(g212 V) tp8534 a(g6 V tp8535 a(g212 V) tp8536 a(g6 V\u000a\u000a p8537 tp8538 a(g31 V; Umwandlung eines "type for declaration" in einen "type for discrimination". p8539 tp8540 a(g6 V\u000a tp8541 a(g212 V( tp8542 a(g84 Vdefun p8543 tp8544 a(g6 V tp8545 a(g100 Vtype-for-discrimination p8546 tp8547 a(g6 V tp8548 a(g212 V( tp8549 a(g100 Vy tp8550 a(g6 V tp8551 a(g138 V&optional p8552 tp8553 a(g6 V tp8554 a(g212 V( tp8555 a(g100 Vnotp p8556 tp8557 a(g6 V tp8558 a(g60 Vnil p8559 tp8560 a(g212 V) tp8561 a(g6 V tp8562 a(g138 V&aux p8563 tp8564 a(g6 V tp8565 a(g100 Vf tp8566 a(g212 V) tp8567 a(g6 V\u000a p8568 tp8569 a(g212 V( tp8570 a(g84 Vcond p8571 tp8572 a(g6 V tp8573 a(g212 V( tp8574 a(g212 V( tp8575 a(g84 Vsymbolp p8576 tp8577 a(g6 V tp8578 a(g100 Vy tp8579 a(g212 V) tp8580 a(g6 V\u000a p8581 tp8582 a(g212 V( tp8583 a(g84 Vcond p8584 tp8585 a(g6 V tp8586 a(g212 V( tp8587 a(g212 V( tp8588 a(g84 Vget p8589 tp8590 a(g6 V tp8591 a(g100 Vy tp8592 a(g6 V tp8593 a(g258 V'TYPE-SYMBOL p8594 tp8595 a(g212 V) tp8596 a(g6 V tp8597 a(g100 Vy tp8598 a(g212 V) tp8599 a(g6 V\u000a p8600 tp8601 a(g212 V( tp8602 a(g212 V( tp8603 a(g84 Vget p8604 tp8605 a(g6 V tp8606 a(g100 Vy tp8607 a(g6 V tp8608 a(g258 V'TYPE-LIST p8609 tp8610 a(g212 V) tp8611 a(g6 V tp8612 a(g100 Vy tp8613 a(g212 V) tp8614 a(g6 V\u000a p8615 tp8616 a(g212 V( tp8617 a(g212 V( tp8618 a(g138 Vsetq p8619 tp8620 a(g6 V tp8621 a(g100 Vf tp8622 a(g6 V tp8623 a(g212 V( tp8624 a(g84 Vget p8625 tp8626 a(g6 V tp8627 a(g100 Vy tp8628 a(g6 V tp8629 a(g258 V'DEFTYPE-EXPANDER p8630 tp8631 a(g212 V) tp8632 a(g212 V) tp8633 a(g6 V\u000a p8634 tp8635 a(g212 V( tp8636 a(g138 Vlet* p8637 tp8638 a(g6 V tp8639 a(g212 V( tp8640 a(g212 V( tp8641 a(g100 Vz tp8642 a(g6 V tp8643 a(g212 V( tp8644 a(g84 Vfuncall p8645 tp8646 a(g6 V tp8647 a(g100 Vf tp8648 a(g6 V tp8649 a(g212 V( tp8650 a(g84 Vlist p8651 tp8652 a(g6 V tp8653 a(g100 Vy tp8654 a(g212 V) tp8655 a(g212 V) tp8656 a(g212 V) tp8657 a(g6 V\u000a p8658 tp8659 a(g212 V( tp8660 a(g100 Vzx p8661 tp8662 a(g6 V tp8663 a(g212 V( tp8664 a(g100 Vtype-for-discrimination p8665 tp8666 a(g6 V tp8667 a(g100 Vz tp8668 a(g6 V tp8669 a(g100 Vnotp p8670 tp8671 a(g212 V) tp8672 a(g212 V) tp8673 a(g212 V) tp8674 a(g6 V\u000a p8675 tp8676 a(g212 V( tp8677 a(g138 Vif p8678 tp8679 a(g6 V tp8680 a(g212 V( tp8681 a(g84 Veql p8682 tp8683 a(g6 V tp8684 a(g100 Vzx p8685 tp8686 a(g6 V tp8687 a(g100 Vz tp8688 a(g212 V) tp8689 a(g6 V tp8690 a(g100 Vy tp8691 a(g6 V tp8692 a(g100 Vzx p8693 tp8694 a(g212 V) tp8695 a(g6 V\u000a p8696 tp8697 a(g212 V) tp8698 a(g212 V) tp8699 a(g6 V\u000a p8700 tp8701 a(g212 V( tp8702 a(g60 Vt tp8703 a(g6 V tp8704 a(g100 Vy tp8705 a(g212 V) tp8706 a(g6 V\u000a p8707 tp8708 a(g212 V) tp8709 a(g6 V p8710 tp8711 a(g212 V) tp8712 a(g6 V\u000a p8713 tp8714 a(g212 V( tp8715 a(g212 V( tp8716 a(g84 Vand p8717 tp8718 a(g6 V tp8719 a(g212 V( tp8720 a(g84 Vconsp p8721 tp8722 a(g6 V tp8723 a(g100 Vy tp8724 a(g212 V) tp8725 a(g6 V tp8726 a(g212 V( tp8727 a(g84 Vsymbolp p8728 tp8729 a(g6 V tp8730 a(g212 V( tp8731 a(g84 Vfirst p8732 tp8733 a(g6 V tp8734 a(g100 Vy tp8735 a(g212 V) tp8736 a(g212 V) tp8737 a(g212 V) tp8738 a(g6 V\u000a p8739 tp8740 a(g212 V( tp8741 a(g84 Vcase p8742 tp8743 a(g6 V tp8744 a(g212 V( tp8745 a(g84 Vfirst p8746 tp8747 a(g6 V tp8748 a(g100 Vy tp8749 a(g212 V) tp8750 a(g6 V\u000a p8751 tp8752 a(g212 V( tp8753 a(g212 V( tp8754 a(g100 VSATISFIES p8755 tp8756 a(g6 V tp8757 a(g100 VMEMBER p8758 tp8759 a(g6 V tp8760 a(g100 VEQL p8761 tp8762 a(g212 V) tp8763 a(g6 V tp8764 a(g100 Vy tp8765 a(g212 V) tp8766 a(g6 V\u000a p8767 tp8768 a(g212 V( tp8769 a(g100 VNOT p8770 tp8771 a(g6 V\u000a p8772 tp8773 a(g212 V( tp8774 a(g138 Vlet* p8775 tp8776 a(g6 V tp8777 a(g212 V( tp8778 a(g212 V( tp8779 a(g100 Vz tp8780 a(g6 V tp8781 a(g212 V( tp8782 a(g84 Vsecond p8783 tp8784 a(g6 V tp8785 a(g100 Vy tp8786 a(g212 V) tp8787 a(g212 V) tp8788 a(g6 V\u000a p8789 tp8790 a(g212 V( tp8791 a(g100 Vzx p8792 tp8793 a(g6 V tp8794 a(g212 V( tp8795 a(g100 Vtype-for-discrimination p8796 tp8797 a(g6 V tp8798 a(g100 Vz tp8799 a(g6 V tp8800 a(g212 V( tp8801 a(g84 Vnot p8802 tp8803 a(g6 V tp8804 a(g100 Vnotp p8805 tp8806 a(g212 V) tp8807 a(g212 V) tp8808 a(g212 V) tp8809 a(g212 V) tp8810 a(g6 V\u000a p8811 tp8812 a(g212 V( tp8813 a(g138 Vif p8814 tp8815 a(g6 V tp8816 a(g212 V( tp8817 a(g84 Veql p8818 tp8819 a(g6 V tp8820 a(g100 Vzx p8821 tp8822 a(g6 V tp8823 a(g100 Vz tp8824 a(g212 V) tp8825 a(g6 V tp8826 a(g100 Vy tp8827 a(g6 V tp8828 a(g353 V` tp8829 a(g212 V( tp8830 a(g100 VNOT p8831 tp8832 a(g6 V tp8833 a(g353 V, tp8834 a(g100 Vzx p8835 tp8836 a(g212 V) tp8837 a(g212 V) tp8838 a(g6 V\u000a p8839 tp8840 a(g212 V) tp8841 a(g212 V) tp8842 a(g6 V\u000a p8843 tp8844 a(g212 V( tp8845 a(g212 V( tp8846 a(g100 VAND p8847 tp8848 a(g6 V tp8849 a(g100 VOR p8850 tp8851 a(g6 V tp8852 a(g100 VCOMPLEX p8853 tp8854 a(g6 V tp8855 a(g100 VVALUES p8856 tp8857 a(g212 V) tp8858 a(g6 V\u000a p8859 tp8860 a(g212 V( tp8861 a(g138 Vlet* p8862 tp8863 a(g6 V tp8864 a(g212 V( tp8865 a(g212 V( tp8866 a(g100 Vz tp8867 a(g6 V tp8868 a(g212 V( tp8869 a(g84 Vrest p8870 tp8871 a(g6 V tp8872 a(g100 Vy tp8873 a(g212 V) tp8874 a(g212 V) tp8875 a(g6 V\u000a p8876 tp8877 a(g212 V( tp8878 a(g100 Vzx p8879 tp8880 a(g6 V tp8881 a(g212 V( tp8882 a(g84 Vmapcar p8883 tp8884 a(g6 V tp8885 a(g48 V#' p8886 tp8887 a(g212 V( tp8888 a(g138 Vlambda p8889 tp8890 a(g6 V tp8891 a(g212 V( tp8892 a(g100 Vx tp8893 a(g212 V) tp8894 a(g6 V tp8895 a(g212 V( tp8896 a(g100 Vtype-for-discrimination p8897 tp8898 a(g6 V tp8899 a(g100 Vx tp8900 a(g6 V tp8901 a(g100 Vnotp p8902 tp8903 a(g212 V) tp8904 a(g212 V) tp8905 a(g6 V tp8906 a(g100 Vz tp8907 a(g212 V) tp8908 a(g212 V) tp8909 a(g212 V) tp8910 a(g6 V\u000a p8911 tp8912 a(g212 V( tp8913 a(g138 Vif p8914 tp8915 a(g6 V tp8916 a(g212 V( tp8917 a(g84 Vevery p8918 tp8919 a(g6 V tp8920 a(g48 V#' p8921 tp8922 a(g84 Veql p8923 tp8924 a(g6 V tp8925 a(g100 Vz tp8926 a(g6 V tp8927 a(g100 Vzx p8928 tp8929 a(g212 V) tp8930 a(g6 V tp8931 a(g100 Vy tp8932 a(g6 V tp8933 a(g212 V( tp8934 a(g84 Vcons p8935 tp8936 a(g6 V tp8937 a(g212 V( tp8938 a(g84 Vfirst p8939 tp8940 a(g6 V tp8941 a(g100 Vy tp8942 a(g212 V) tp8943 a(g6 V tp8944 a(g100 Vzx p8945 tp8946 a(g212 V) tp8947 a(g212 V) tp8948 a(g6 V\u000a p8949 tp8950 a(g212 V) tp8951 a(g212 V) tp8952 a(g6 V\u000a p8953 tp8954 a(g212 V( tp8955 a(g100 VFUNCTION p8956 tp8957 a(g6 V\u000a p8958 tp8959 a(g31 V;; (FUNCTION arg-types res-type) is somewhere between p8960 tp8961 a(g6 V\u000a p8962 tp8963 a(g31 V;; NIL and FUNCTION, but undecidable. p8964 tp8965 a(g6 V\u000a p8966 tp8967 a(g212 V( tp8968 a(g138 Vif p8969 tp8970 a(g6 V tp8971 a(g100 Vnotp p8972 tp8973 a(g6 V tp8974 a(g258 V'NIL p8975 tp8976 a(g6 V tp8977 a(g258 V'FUNCTION p8978 tp8979 a(g212 V) tp8980 a(g6 V\u000a p8981 tp8982 a(g212 V) tp8983 a(g6 V\u000a p8984 tp8985 a(g212 V( tp8986 a(g60 Vt tp8987 a(g6 V tp8988 a(g212 V( tp8989 a(g84 Vcond p8990 tp8991 a(g6 V tp8992 a(g212 V( tp8993 a(g212 V( tp8994 a(g84 Vget p8995 tp8996 a(g6 V tp8997 a(g212 V( tp8998 a(g84 Vfirst p8999 tp9000 a(g6 V tp9001 a(g100 Vy tp9002 a(g212 V) tp9003 a(g6 V tp9004 a(g258 V'TYPE-LIST p9005 tp9006 a(g212 V) tp9007 a(g6 V tp9008 a(g100 Vy tp9009 a(g212 V) tp9010 a(g6 V\u000a p9011 tp9012 a(g212 V( tp9013 a(g212 V( tp9014 a(g138 Vsetq p9015 tp9016 a(g6 V tp9017 a(g100 Vf tp9018 a(g6 V tp9019 a(g212 V( tp9020 a(g84 Vget p9021 tp9022 a(g6 V tp9023 a(g212 V( tp9024 a(g84 Vfirst p9025 tp9026 a(g6 V tp9027 a(g100 Vy tp9028 a(g212 V) tp9029 a(g6 V tp9030 a(g258 V'DEFTYPE-EXPANDER p9031 tp9032 a(g212 V) tp9033 a(g212 V) tp9034 a(g6 V\u000a p9035 tp9036 a(g212 V( tp9037 a(g138 Vlet* p9038 tp9039 a(g6 V tp9040 a(g212 V( tp9041 a(g212 V( tp9042 a(g100 Vz tp9043 a(g6 V tp9044 a(g212 V( tp9045 a(g84 Vfuncall p9046 tp9047 a(g6 V tp9048 a(g100 Vf tp9049 a(g6 V tp9050 a(g100 Vy tp9051 a(g212 V) tp9052 a(g212 V) tp9053 a(g6 V\u000a p9054 tp9055 a(g212 V( tp9056 a(g100 Vzx p9057 tp9058 a(g6 V tp9059 a(g212 V( tp9060 a(g100 Vtype-for-discrimination p9061 tp9062 a(g6 V tp9063 a(g100 Vz tp9064 a(g6 V tp9065 a(g100 Vnotp p9066 tp9067 a(g212 V) tp9068 a(g212 V) tp9069 a(g212 V) tp9070 a(g6 V\u000a p9071 tp9072 a(g212 V( tp9073 a(g138 Vif p9074 tp9075 a(g6 V tp9076 a(g212 V( tp9077 a(g84 Veql p9078 tp9079 a(g6 V tp9080 a(g100 Vzx p9081 tp9082 a(g6 V tp9083 a(g100 Vz tp9084 a(g212 V) tp9085 a(g6 V tp9086 a(g100 Vy tp9087 a(g6 V tp9088 a(g100 Vzx p9089 tp9090 a(g212 V) tp9091 a(g6 V\u000a p9092 tp9093 a(g212 V) tp9094 a(g212 V) tp9095 a(g6 V\u000a p9096 tp9097 a(g212 V( tp9098 a(g60 Vt tp9099 a(g6 V tp9100 a(g100 Vy tp9101 a(g212 V) tp9102 a(g6 V\u000a p9103 tp9104 a(g212 V) tp9105 a(g6 V p9106 tp9107 a(g212 V) tp9108 a(g6 V tp9109 a(g212 V) tp9110 a(g6 V p9111 tp9112 a(g212 V) tp9113 a(g6 V\u000a p9114 tp9115 a(g212 V( tp9116 a(g60 Vt tp9117 a(g6 V tp9118 a(g100 Vy tp9119 a(g212 V) tp9120 a(g6 V\u000a tp9121 a(g212 V) tp9122 a(g6 V tp9123 a(g212 V) tp9124 a(g6 V\u000a\u000a p9125 tp9126 a(g31 V; Testet eine Liste von Werten auf Erfüllen eines Type-Specifiers. Für THE. p9127 tp9128 a(g6 V\u000a tp9129 a(g212 V( tp9130 a(g84 Vdefun p9131 tp9132 a(g6 V tp9133 a(g100 V%the p9134 tp9135 a(g6 V tp9136 a(g212 V( tp9137 a(g84 Vvalues p9138 tp9139 a(g6 V tp9140 a(g138 Vtype p9141 tp9142 a(g212 V) tp9143 a(g6 V tp9144 a(g31 V; ABI p9145 tp9146 a(g6 V\u000a p9147 tp9148 a(g212 V( tp9149 a(g138 Vmacrolet p9150 tp9151 a(g6 V tp9152 a(g212 V( tp9153 a(g212 V( tp9154 a(g100 Vnear-typep p9155 tp9156 a(g6 V tp9157 a(g212 V( tp9158 a(g100 Vobjform p9159 tp9160 a(g6 V tp9161 a(g100 Vtypform p9162 tp9163 a(g212 V) tp9164 a(g6 V\u000a p9165 tp9166 a(g31 V;; near-typep ist wie typep, nur dass das Objekt auch ein p9167 tp9168 a(g6 V\u000a p9169 tp9170 a(g31 V;; Read-Label sein darf. Das tritt z.B. auf bei p9171 tp9172 a(g6 V\u000a p9173 tp9174 a(g31 V;; (read-from-string "#1=#S(FOO :X #1#)") p9175 tp9176 a(g6 V\u000a p9177 tp9178 a(g31 V;; im Konstruktor MAKE-FOO. Die Implementation ist aber p9179 tp9180 a(g6 V\u000a p9181 tp9182 a(g31 V;; nicht gezwungen, bei fehlerhaftem THE zwingend einen p9183 tp9184 a(g6 V\u000a p9185 tp9186 a(g31 V;; Fehler zu melden, darum ist ein lascherer Typcheck hier p9187 tp9188 a(g6 V\u000a p9189 tp9190 a(g31 V;; erlaubt. p9191 tp9192 a(g6 V\u000a p9193 tp9194 a(g212 V( tp9195 a(g138 Vlet p9196 tp9197 a(g6 V tp9198 a(g212 V( tp9199 a(g212 V( tp9200 a(g100 Vg tp9201 a(g6 V tp9202 a(g212 V( tp9203 a(g84 Vgensym p9204 tp9205 a(g212 V) tp9206 a(g212 V) tp9207 a(g212 V) tp9208 a(g6 V\u000a p9209 tp9210 a(g353 V` tp9211 a(g212 V( tp9212 a(g138 Vlet p9213 tp9214 a(g6 V tp9215 a(g212 V( tp9216 a(g212 V( tp9217 a(g353 V, tp9218 a(g100 Vg tp9219 a(g6 V tp9220 a(g353 V, tp9221 a(g100 Vobjform p9222 tp9223 a(g212 V) tp9224 a(g212 V) tp9225 a(g6 V\u000a p9226 tp9227 a(g212 V( tp9228 a(g84 Vor p9229 tp9230 a(g6 V tp9231 a(g212 V( tp9232 a(g84 Vtypep p9233 tp9234 a(g6 V tp9235 a(g353 V, tp9236 a(g100 Vg tp9237 a(g6 V tp9238 a(g353 V, tp9239 a(g100 Vtypform p9240 tp9241 a(g212 V) tp9242 a(g6 V tp9243 a(g212 V( tp9244 a(g84 Veq p9245 tp9246 a(g6 V tp9247 a(g212 V( tp9248 a(g84 Vtype-of p9249 tp9250 a(g6 V tp9251 a(g353 V, tp9252 a(g100 Vg tp9253 a(g212 V) tp9254 a(g6 V tp9255 a(g258 V'READ-LABEL p9256 tp9257 a(g212 V) tp9258 a(g212 V) tp9259 a(g212 V) tp9260 a(g212 V) tp9261 a(g212 V) tp9262 a(g212 V) tp9263 a(g6 V\u000a p9264 tp9265 a(g212 V( tp9266 a(g138 Vif p9267 tp9268 a(g6 V tp9269 a(g212 V( tp9270 a(g84 Vand p9271 tp9272 a(g6 V tp9273 a(g212 V( tp9274 a(g84 Vconsp p9275 tp9276 a(g6 V tp9277 a(g138 Vtype p9278 tp9279 a(g212 V) tp9280 a(g6 V tp9281 a(g212 V( tp9282 a(g84 Veq p9283 tp9284 a(g6 V tp9285 a(g212 V( tp9286 a(g84 Vcar p9287 tp9288 a(g6 V tp9289 a(g138 Vtype p9290 tp9291 a(g212 V) tp9292 a(g6 V tp9293 a(g258 V'VALUES p9294 tp9295 a(g212 V) tp9296 a(g212 V) tp9297 a(g6 V\u000a p9298 tp9299 a(g31 V;; The VALUES type specifier is ill-defined in ANSI CL. p9300 tp9301 a(g6 V\u000a p9302 tp9303 a(g31 V;; p9304 tp9305 a(g6 V\u000a p9306 tp9307 a(g31 V;; There are two possibilities to define a VALUES type specifier in a p9308 tp9309 a(g6 V\u000a p9310 tp9311 a(g31 V;; sane way: p9312 tp9313 a(g6 V\u000a p9314 tp9315 a(g31 V;; - (EXACT-VALUES type1 ... [&optional ...]) describes the exact shape p9316 tp9317 a(g6 V\u000a p9318 tp9319 a(g31 V;; of the values list, as received by MULTIPLE-VALUE-LIST. p9320 tp9321 a(g6 V\u000a p9322 tp9323 a(g31 V;; For example, (EXACT-VALUES SYMBOL) is matched by (values 'a) but not p9324 tp9325 a(g6 V\u000a p9326 tp9327 a(g31 V;; by (values 'a 'b) or (values). p9328 tp9329 a(g6 V\u000a p9330 tp9331 a(g31 V;; - (ASSIGNABLE-VALUES type1 ... [&optional ...]) describes the values p9332 tp9333 a(g6 V\u000a p9334 tp9335 a(g31 V;; as received by a set of variables through MULTIPLE-VALUE-BIND or p9336 tp9337 a(g6 V\u000a p9338 tp9339 a(g31 V;; MULTIPLE-VALUE-SETQ. For example, (ASSIGNABLE-VALUES SYMBOL) is p9340 tp9341 a(g6 V\u000a p9342 tp9343 a(g31 V;; defined by whether p9344 tp9345 a(g6 V\u000a p9346 tp9347 a(g31 V;; (MULTIPLE-VALUE-BIND (var1) values (DECLARE (TYPE SYMBOL var1)) ...) p9348 tp9349 a(g6 V\u000a p9350 tp9351 a(g31 V;; is valid or not; therefore (ASSIGNABLE-VALUES SYMBOL) is matched by p9352 tp9353 a(g6 V\u000a p9354 tp9355 a(g31 V;; (values 'a) and (values 'a 'b) and (values). p9356 tp9357 a(g6 V\u000a p9358 tp9359 a(g31 V;; Note that &OPTIONAL is actually redundant here: p9360 tp9361 a(g6 V\u000a p9362 tp9363 a(g31 V;; (ASSIGNABLE-VALUES type1 ... &optional otype1 ...) p9364 tp9365 a(g6 V\u000a p9366 tp9367 a(g31 V;; is equivalent to p9368 tp9369 a(g6 V\u000a p9370 tp9371 a(g31 V;; (ASSIGNABLE-VALUES type1 ... (OR NULL otype1) ...) p9372 tp9373 a(g6 V\u000a p9374 tp9375 a(g31 V;; HyperSpec/Body/typspe_values.html indicates that VALUES means p9376 tp9377 a(g6 V\u000a p9378 tp9379 a(g31 V;; EXACT-VALUES; however, HyperSpec/Body/speope_the.html indicates that p9380 tp9381 a(g6 V\u000a p9382 tp9383 a(g31 V;; VALUES means ASSIGNABLE-VALUES. p9384 tp9385 a(g6 V\u000a p9386 tp9387 a(g31 V;; p9388 tp9389 a(g6 V\u000a p9390 tp9391 a(g31 V;; SBCL interprets the VALUES type specifier to mean EXACT-VALUES when p9392 tp9393 a(g6 V\u000a p9394 tp9395 a(g31 V;; it contains &OPTIONAL or &REST, but ASSIGNABLE-VALUES when it has p9396 tp9397 a(g6 V\u000a p9398 tp9399 a(g31 V;; only a tuple of type specifiers. This is utter nonsense, in particular p9400 tp9401 a(g6 V\u000a p9402 tp9403 a(g31 V;; because it makes (VALUES type1 ... typek &OPTIONAL) p9404 tp9405 a(g6 V\u000a p9406 tp9407 a(g31 V;; different from (VALUES type1 ... typek). p9408 tp9409 a(g6 V\u000a p9410 tp9411 a(g31 V;; p9412 tp9413 a(g6 V\u000a p9414 tp9415 a(g31 V;; Here we use the ASSIGNABLE-VALUES interpretation. p9416 tp9417 a(g6 V\u000a p9418 tp9419 a(g31 V;; In SUBTYPEP we just punt and don't assume any interpretation. p9420 tp9421 a(g6 V\u000a p9422 tp9423 a(g212 V( tp9424 a(g138 Vlet p9425 tp9426 a(g6 V tp9427 a(g212 V( tp9428 a(g212 V( tp9429 a(g100 Vvals p9430 tp9431 a(g6 V tp9432 a(g84 Vvalues p9433 tp9434 a(g212 V) tp9435 a(g6 V tp9436 a(g212 V( tp9437 a(g100 Vtypes p9438 tp9439 a(g6 V tp9440 a(g212 V( tp9441 a(g84 Vcdr p9442 tp9443 a(g6 V tp9444 a(g138 Vtype p9445 tp9446 a(g212 V) tp9447 a(g212 V) tp9448 a(g212 V) tp9449 a(g6 V\u000a p9450 tp9451 a(g31 V;; required: p9452 tp9453 a(g6 V\u000a p9454 tp9455 a(g212 V( tp9456 a(g84 Vloop p9457 tp9458 a(g6 V\u000a p9459 tp9460 a(g212 V( tp9461 a(g84 Vwhen p9462 tp9463 a(g6 V tp9464 a(g212 V( tp9465 a(g84 Vor p9466 tp9467 a(g6 V tp9468 a(g212 V( tp9469 a(g84 Vatom p9470 tp9471 a(g6 V tp9472 a(g100 Vtypes p9473 tp9474 a(g212 V) tp9475 a(g6 V tp9476 a(g212 V( tp9477 a(g84 Vatom p9478 tp9479 a(g6 V tp9480 a(g100 Vvals p9481 tp9482 a(g212 V) tp9483 a(g212 V) tp9484 a(g6 V tp9485 a(g212 V( tp9486 a(g138 Vreturn-from p9487 tp9488 a(g6 V tp9489 a(g100 V%the p9490 tp9491 a(g6 V tp9492 a(g60 Vt tp9493 a(g212 V) tp9494 a(g212 V) tp9495 a(g6 V\u000a p9496 tp9497 a(g212 V( tp9498 a(g84 Vwhen p9499 tp9500 a(g6 V tp9501 a(g212 V( tp9502 a(g100 Vmemq p9503 tp9504 a(g6 V tp9505 a(g212 V( tp9506 a(g84 Vcar p9507 tp9508 a(g6 V tp9509 a(g100 Vtypes p9510 tp9511 a(g212 V) tp9512 a(g6 V tp9513 a(g100 Vlambda-list-keywords p9514 tp9515 a(g212 V) tp9516 a(g6 V tp9517 a(g212 V( tp9518 a(g84 Vreturn p9519 tp9520 a(g212 V) tp9521 a(g212 V) tp9522 a(g6 V\u000a p9523 tp9524 a(g212 V( tp9525 a(g84 Vunless p9526 tp9527 a(g6 V tp9528 a(g212 V( tp9529 a(g100 Vnear-typep p9530 tp9531 a(g6 V tp9532 a(g212 V( tp9533 a(g84 Vpop p9534 tp9535 a(g6 V tp9536 a(g100 Vvals p9537 tp9538 a(g212 V) tp9539 a(g6 V tp9540 a(g212 V( tp9541 a(g84 Vpop p9542 tp9543 a(g6 V tp9544 a(g100 Vtypes p9545 tp9546 a(g212 V) tp9547 a(g212 V) tp9548 a(g6 V\u000a p9549 tp9550 a(g212 V( tp9551 a(g138 Vreturn-from p9552 tp9553 a(g6 V tp9554 a(g100 V%the p9555 tp9556 a(g6 V tp9557 a(g60 Vnil p9558 tp9559 a(g212 V) tp9560 a(g212 V) tp9561 a(g212 V) tp9562 a(g6 V\u000a p9563 tp9564 a(g31 V;; &optional: p9565 tp9566 a(g6 V\u000a p9567 tp9568 a(g212 V( tp9569 a(g84 Vwhen p9570 tp9571 a(g6 V tp9572 a(g212 V( tp9573 a(g84 Vand p9574 tp9575 a(g6 V tp9576 a(g212 V( tp9577 a(g84 Vconsp p9578 tp9579 a(g6 V tp9580 a(g100 Vtypes p9581 tp9582 a(g212 V) tp9583 a(g6 V tp9584 a(g212 V( tp9585 a(g84 Veq p9586 tp9587 a(g6 V tp9588 a(g212 V( tp9589 a(g84 Vcar p9590 tp9591 a(g6 V tp9592 a(g100 Vtypes p9593 tp9594 a(g212 V) tp9595 a(g6 V tp9596 a(g258 V'&optional p9597 tp9598 a(g212 V) tp9599 a(g212 V) tp9600 a(g6 V\u000a p9601 tp9602 a(g212 V( tp9603 a(g138 Vsetq p9604 tp9605 a(g6 V tp9606 a(g100 Vtypes p9607 tp9608 a(g6 V tp9609 a(g212 V( tp9610 a(g84 Vcdr p9611 tp9612 a(g6 V tp9613 a(g100 Vtypes p9614 tp9615 a(g212 V) tp9616 a(g212 V) tp9617 a(g6 V\u000a p9618 tp9619 a(g212 V( tp9620 a(g84 Vloop p9621 tp9622 a(g6 V\u000a p9623 tp9624 a(g212 V( tp9625 a(g84 Vwhen p9626 tp9627 a(g6 V tp9628 a(g212 V( tp9629 a(g84 Vor p9630 tp9631 a(g6 V tp9632 a(g212 V( tp9633 a(g84 Vatom p9634 tp9635 a(g6 V tp9636 a(g100 Vtypes p9637 tp9638 a(g212 V) tp9639 a(g6 V tp9640 a(g212 V( tp9641 a(g84 Vatom p9642 tp9643 a(g6 V tp9644 a(g100 Vvals p9645 tp9646 a(g212 V) tp9647 a(g212 V) tp9648 a(g6 V tp9649 a(g212 V( tp9650 a(g138 Vreturn-from p9651 tp9652 a(g6 V tp9653 a(g100 V%the p9654 tp9655 a(g6 V tp9656 a(g60 Vt tp9657 a(g212 V) tp9658 a(g212 V) tp9659 a(g6 V\u000a p9660 tp9661 a(g212 V( tp9662 a(g84 Vwhen p9663 tp9664 a(g6 V tp9665 a(g212 V( tp9666 a(g100 Vmemq p9667 tp9668 a(g6 V tp9669 a(g212 V( tp9670 a(g84 Vcar p9671 tp9672 a(g6 V tp9673 a(g100 Vtypes p9674 tp9675 a(g212 V) tp9676 a(g6 V tp9677 a(g100 Vlambda-list-keywords p9678 tp9679 a(g212 V) tp9680 a(g6 V tp9681 a(g212 V( tp9682 a(g84 Vreturn p9683 tp9684 a(g212 V) tp9685 a(g212 V) tp9686 a(g6 V\u000a p9687 tp9688 a(g212 V( tp9689 a(g84 Vunless p9690 tp9691 a(g6 V tp9692 a(g212 V( tp9693 a(g100 Vnear-typep p9694 tp9695 a(g6 V tp9696 a(g212 V( tp9697 a(g84 Vpop p9698 tp9699 a(g6 V tp9700 a(g100 Vvals p9701 tp9702 a(g212 V) tp9703 a(g6 V tp9704 a(g212 V( tp9705 a(g84 Vpop p9706 tp9707 a(g6 V tp9708 a(g100 Vtypes p9709 tp9710 a(g212 V) tp9711 a(g212 V) tp9712 a(g6 V\u000a p9713 tp9714 a(g212 V( tp9715 a(g138 Vreturn-from p9716 tp9717 a(g6 V tp9718 a(g100 V%the p9719 tp9720 a(g6 V tp9721 a(g60 Vnil p9722 tp9723 a(g212 V) tp9724 a(g212 V) tp9725 a(g212 V) tp9726 a(g212 V) tp9727 a(g6 V\u000a p9728 tp9729 a(g31 V;; &rest &key: p9730 tp9731 a(g6 V\u000a p9732 tp9733 a(g212 V( tp9734 a(g84 Vcase p9735 tp9736 a(g6 V tp9737 a(g212 V( tp9738 a(g84 Vcar p9739 tp9740 a(g6 V tp9741 a(g100 Vtypes p9742 tp9743 a(g212 V) tp9744 a(g6 V\u000a p9745 tp9746 a(g212 V( tp9747 a(g138 V&rest p9748 tp9749 a(g6 V\u000a p9750 tp9751 a(g212 V( tp9752 a(g138 Vsetq p9753 tp9754 a(g6 V tp9755 a(g100 Vtypes p9756 tp9757 a(g6 V tp9758 a(g212 V( tp9759 a(g84 Vcdr p9760 tp9761 a(g6 V tp9762 a(g100 Vtypes p9763 tp9764 a(g212 V) tp9765 a(g212 V) tp9766 a(g6 V\u000a p9767 tp9768 a(g212 V( tp9769 a(g84 Vwhen p9770 tp9771 a(g6 V tp9772 a(g212 V( tp9773 a(g84 Vatom p9774 tp9775 a(g6 V tp9776 a(g100 Vtypes p9777 tp9778 a(g212 V) tp9779 a(g6 V tp9780 a(g212 V( tp9781 a(g100 Vtypespec-error p9782 tp9783 a(g6 V tp9784 a(g258 V'the p9785 tp9786 a(g6 V tp9787 a(g138 Vtype p9788 tp9789 a(g212 V) tp9790 a(g212 V) tp9791 a(g6 V\u000a p9792 tp9793 a(g212 V( tp9794 a(g84 Vunless p9795 tp9796 a(g6 V tp9797 a(g212 V( tp9798 a(g100 Vnear-typep p9799 tp9800 a(g6 V tp9801 a(g212 V( tp9802 a(g84 Vpop p9803 tp9804 a(g6 V tp9805 a(g100 Vvals p9806 tp9807 a(g212 V) tp9808 a(g6 V tp9809 a(g212 V( tp9810 a(g84 Vpop p9811 tp9812 a(g6 V tp9813 a(g100 Vtypes p9814 tp9815 a(g212 V) tp9816 a(g212 V) tp9817 a(g6 V\u000a p9818 tp9819 a(g212 V( tp9820 a(g138 Vreturn-from p9821 tp9822 a(g6 V tp9823 a(g100 V%the p9824 tp9825 a(g6 V tp9826 a(g60 Vnil p9827 tp9828 a(g212 V) tp9829 a(g212 V) tp9830 a(g212 V) tp9831 a(g6 V\u000a p9832 tp9833 a(g212 V( tp9834 a(g138 V&key p9835 tp9836 a(g212 V) tp9837 a(g6 V\u000a p9838 tp9839 a(g212 V( tp9840 a(g60 Vt tp9841 a(g6 V tp9842 a(g212 V( tp9843 a(g100 Vtypespec-error p9844 tp9845 a(g6 V tp9846 a(g258 V'the p9847 tp9848 a(g6 V tp9849 a(g138 Vtype p9850 tp9851 a(g212 V) tp9852 a(g212 V) tp9853 a(g212 V) tp9854 a(g6 V\u000a p9855 tp9856 a(g212 V( tp9857 a(g138 Vif p9858 tp9859 a(g6 V tp9860 a(g212 V( tp9861 a(g84 Veq p9862 tp9863 a(g6 V tp9864 a(g212 V( tp9865 a(g84 Vcar p9866 tp9867 a(g6 V tp9868 a(g100 Vtypes p9869 tp9870 a(g212 V) tp9871 a(g6 V tp9872 a(g258 V'&key p9873 tp9874 a(g212 V) tp9875 a(g6 V\u000a p9876 tp9877 a(g212 V( tp9878 a(g138 Vprogn p9879 tp9880 a(g6 V\u000a p9881 tp9882 a(g212 V( tp9883 a(g138 Vsetq p9884 tp9885 a(g6 V tp9886 a(g100 Vtypes p9887 tp9888 a(g6 V tp9889 a(g212 V( tp9890 a(g84 Vcdr p9891 tp9892 a(g6 V tp9893 a(g100 Vtypes p9894 tp9895 a(g212 V) tp9896 a(g212 V) tp9897 a(g6 V\u000a p9898 tp9899 a(g212 V( tp9900 a(g84 Vwhen p9901 tp9902 a(g6 V tp9903 a(g212 V( tp9904 a(g84 Voddp p9905 tp9906 a(g6 V tp9907 a(g212 V( tp9908 a(g84 Vlength p9909 tp9910 a(g6 V tp9911 a(g100 Vvals p9912 tp9913 a(g212 V) tp9914 a(g212 V) tp9915 a(g6 V tp9916 a(g212 V( tp9917 a(g138 Vreturn-from p9918 tp9919 a(g6 V tp9920 a(g100 V%the p9921 tp9922 a(g6 V tp9923 a(g60 Vnil p9924 tp9925 a(g212 V) tp9926 a(g212 V) tp9927 a(g6 V\u000a p9928 tp9929 a(g212 V( tp9930 a(g138 Vlet p9931 tp9932 a(g6 V tp9933 a(g212 V( tp9934 a(g212 V( tp9935 a(g100 Vkeywords p9936 tp9937 a(g6 V tp9938 a(g60 Vnil p9939 tp9940 a(g212 V) tp9941 a(g212 V) tp9942 a(g6 V\u000a p9943 tp9944 a(g212 V( tp9945 a(g84 Vloop p9946 tp9947 a(g6 V\u000a p9948 tp9949 a(g212 V( tp9950 a(g84 Vwhen p9951 tp9952 a(g6 V tp9953 a(g212 V( tp9954 a(g84 Vor p9955 tp9956 a(g6 V tp9957 a(g212 V( tp9958 a(g84 Vatom p9959 tp9960 a(g6 V tp9961 a(g100 Vtypes p9962 tp9963 a(g212 V) tp9964 a(g6 V tp9965 a(g212 V( tp9966 a(g84 Vatom p9967 tp9968 a(g6 V tp9969 a(g100 Vvals p9970 tp9971 a(g212 V) tp9972 a(g212 V) tp9973 a(g6 V tp9974 a(g212 V( tp9975 a(g138 Vreturn-from p9976 tp9977 a(g6 V tp9978 a(g100 V%the p9979 tp9980 a(g6 V tp9981 a(g60 Vt tp9982 a(g212 V) tp9983 a(g212 V) tp9984 a(g6 V\u000a p9985 tp9986 a(g212 V( tp9987 a(g84 Vwhen p9988 tp9989 a(g6 V tp9990 a(g212 V( tp9991 a(g100 Vmemq p9992 tp9993 a(g6 V tp9994 a(g212 V( tp9995 a(g84 Vcar p9996 tp9997 a(g6 V tp9998 a(g100 Vtypes p9999 tp10000 a(g212 V) tp10001 a(g6 V tp10002 a(g100 Vlambda-list-keywords p10003 tp10004 a(g212 V) tp10005 a(g6 V tp10006 a(g212 V( tp10007 a(g84 Vreturn p10008 tp10009 a(g212 V) tp10010 a(g212 V) tp10011 a(g6 V\u000a p10012 tp10013 a(g212 V( tp10014 a(g138 Vlet p10015 tp10016 a(g6 V tp10017 a(g212 V( tp10018 a(g212 V( tp10019 a(g100 Vitem p10020 tp10021 a(g6 V tp10022 a(g212 V( tp10023 a(g84 Vpop p10024 tp10025 a(g6 V tp10026 a(g100 Vtypes p10027 tp10028 a(g212 V) tp10029 a(g212 V) tp10030 a(g212 V) tp10031 a(g6 V\u000a p10032 tp10033 a(g212 V( tp10034 a(g84 Vunless p10035 tp10036 a(g6 V tp10037 a(g212 V( tp10038 a(g84 Vand p10039 tp10040 a(g6 V tp10041 a(g212 V( tp10042 a(g84 Vlistp p10043 tp10044 a(g6 V tp10045 a(g100 Vitem p10046 tp10047 a(g212 V) tp10048 a(g6 V tp10049 a(g212 V( tp10050 a(g84 Veql p10051 tp10052 a(g6 V tp10053 a(g212 V( tp10054 a(g84 Vlength p10055 tp10056 a(g6 V tp10057 a(g100 Vitem p10058 tp10059 a(g212 V) tp10060 a(g6 V tp10061 a(g328 V2 tp10062 a(g212 V) tp10063 a(g6 V\u000a p10064 tp10065 a(g212 V( tp10066 a(g84 Vsymbolp p10067 tp10068 a(g6 V tp10069 a(g212 V( tp10070 a(g84 Vfirst p10071 tp10072 a(g6 V tp10073 a(g100 Vitem p10074 tp10075 a(g212 V) tp10076 a(g212 V) tp10077 a(g212 V) tp10078 a(g6 V\u000a p10079 tp10080 a(g212 V( tp10081 a(g100 Vtypespec-error p10082 tp10083 a(g6 V tp10084 a(g258 V'the p10085 tp10086 a(g6 V tp10087 a(g138 Vtype p10088 tp10089 a(g212 V) tp10090 a(g212 V) tp10091 a(g6 V\u000a p10092 tp10093 a(g212 V( tp10094 a(g138 Vlet p10095 tp10096 a(g6 V tp10097 a(g212 V( tp10098 a(g212 V( tp10099 a(g100 Vkw p10100 tp10101 a(g6 V tp10102 a(g212 V( tp10103 a(g100 Vsymbol-to-keyword p10104 tp10105 a(g6 V tp10106 a(g212 V( tp10107 a(g84 Vfirst p10108 tp10109 a(g6 V tp10110 a(g100 Vitem p10111 tp10112 a(g212 V) tp10113 a(g212 V) tp10114 a(g212 V) tp10115 a(g212 V) tp10116 a(g6 V\u000a p10117 tp10118 a(g212 V( tp10119 a(g84 Vunless p10120 tp10121 a(g6 V tp10122 a(g212 V( tp10123 a(g100 Vnear-typep p10124 tp10125 a(g6 V tp10126 a(g212 V( tp10127 a(g84 Vgetf p10128 tp10129 a(g6 V tp10130 a(g100 Vvals p10131 tp10132 a(g6 V tp10133 a(g100 Vkw p10134 tp10135 a(g212 V) tp10136 a(g6 V tp10137 a(g212 V( tp10138 a(g84 Vsecond p10139 tp10140 a(g6 V tp10141 a(g100 Vitem p10142 tp10143 a(g212 V) tp10144 a(g212 V) tp10145 a(g6 V\u000a p10146 tp10147 a(g212 V( tp10148 a(g138 Vreturn-from p10149 tp10150 a(g6 V tp10151 a(g100 V%the p10152 tp10153 a(g6 V tp10154 a(g60 Vnil p10155 tp10156 a(g212 V) tp10157 a(g212 V) tp10158 a(g6 V\u000a p10159 tp10160 a(g212 V( tp10161 a(g84 Vpush p10162 tp10163 a(g6 V tp10164 a(g100 Vkw p10165 tp10166 a(g6 V tp10167 a(g100 Vkeywords p10168 tp10169 a(g212 V) tp10170 a(g212 V) tp10171 a(g212 V) tp10172 a(g212 V) tp10173 a(g6 V\u000a p10174 tp10175 a(g212 V( tp10176 a(g138 Vif p10177 tp10178 a(g6 V tp10179 a(g212 V( tp10180 a(g84 Vand p10181 tp10182 a(g6 V tp10183 a(g212 V( tp10184 a(g84 Vconsp p10185 tp10186 a(g6 V tp10187 a(g100 Vtypes p10188 tp10189 a(g212 V) tp10190 a(g6 V tp10191 a(g212 V( tp10192 a(g84 Veq p10193 tp10194 a(g6 V tp10195 a(g212 V( tp10196 a(g84 Vcar p10197 tp10198 a(g6 V tp10199 a(g100 Vtypes p10200 tp10201 a(g212 V) tp10202 a(g6 V tp10203 a(g258 V'&allow-other-keys p10204 tp10205 a(g212 V) tp10206 a(g212 V) tp10207 a(g6 V\u000a p10208 tp10209 a(g212 V( tp10210 a(g138 Vsetq p10211 tp10212 a(g6 V tp10213 a(g100 Vtypes p10214 tp10215 a(g6 V tp10216 a(g212 V( tp10217 a(g84 Vcdr p10218 tp10219 a(g6 V tp10220 a(g100 Vtypes p10221 tp10222 a(g212 V) tp10223 a(g212 V) tp10224 a(g6 V\u000a p10225 tp10226 a(g212 V( tp10227 a(g84 Vunless p10228 tp10229 a(g6 V tp10230 a(g212 V( tp10231 a(g84 Vgetf p10232 tp10233 a(g6 V tp10234 a(g100 Vvals p10235 tp10236 a(g6 V tp10237 a(g353 V' tp10238 a(g258 V:allow-other-keys p10239 tp10240 a(g212 V) tp10241 a(g6 V\u000a p10242 tp10243 a(g212 V( tp10244 a(g84 Vdo p10245 tp10246 a(g6 V tp10247 a(g212 V( tp10248 a(g212 V( tp10249 a(g100 VL tp10250 a(g6 V tp10251 a(g100 Vvals p10252 tp10253 a(g6 V tp10254 a(g212 V( tp10255 a(g84 Vcddr p10256 tp10257 a(g6 V tp10258 a(g100 VL tp10259 a(g212 V) tp10260 a(g212 V) tp10261 a(g212 V) tp10262 a(g6 V\u000a p10263 tp10264 a(g212 V( tp10265 a(g212 V( tp10266 a(g84 Vatom p10267 tp10268 a(g6 V tp10269 a(g100 VL tp10270 a(g212 V) tp10271 a(g212 V) tp10272 a(g6 V\u000a p10273 tp10274 a(g212 V( tp10275 a(g84 Vunless p10276 tp10277 a(g6 V tp10278 a(g212 V( tp10279 a(g100 Vmemq p10280 tp10281 a(g6 V tp10282 a(g212 V( tp10283 a(g84 Vcar p10284 tp10285 a(g6 V tp10286 a(g100 VL tp10287 a(g212 V) tp10288 a(g6 V tp10289 a(g100 Vkeywords p10290 tp10291 a(g212 V) tp10292 a(g6 V\u000a p10293 tp10294 a(g212 V( tp10295 a(g138 Vreturn-from p10296 tp10297 a(g6 V tp10298 a(g100 V%the p10299 tp10300 a(g6 V tp10301 a(g60 Vnil p10302 tp10303 a(g212 V) tp10304 a(g212 V) tp10305 a(g212 V) tp10306 a(g212 V) tp10307 a(g212 V) tp10308 a(g212 V) tp10309 a(g212 V) tp10310 a(g6 V\u000a p10311 tp10312 a(g212 V( tp10313 a(g84 Vwhen p10314 tp10315 a(g6 V tp10316 a(g212 V( tp10317 a(g84 Vconsp p10318 tp10319 a(g6 V tp10320 a(g100 Vtypes p10321 tp10322 a(g212 V) tp10323 a(g6 V tp10324 a(g212 V( tp10325 a(g100 Vtypespec-error p10326 tp10327 a(g6 V tp10328 a(g258 V'the p10329 tp10330 a(g6 V tp10331 a(g138 Vtype p10332 tp10333 a(g212 V) tp10334 a(g212 V) tp10335 a(g212 V) tp10336 a(g6 V\u000a p10337 tp10338 a(g60 Vt tp10339 a(g212 V) tp10340 a(g6 V\u000a p10341 tp10342 a(g212 V( tp10343 a(g100 Vnear-typep p10344 tp10345 a(g6 V tp10346 a(g212 V( tp10347 a(g138 Vif p10348 tp10349 a(g6 V tp10350 a(g212 V( tp10351 a(g84 Vconsp p10352 tp10353 a(g6 V tp10354 a(g84 Vvalues p10355 tp10356 a(g212 V) tp10357 a(g6 V tp10358 a(g212 V( tp10359 a(g84 Vcar p10360 tp10361 a(g6 V tp10362 a(g84 Vvalues p10363 tp10364 a(g212 V) tp10365 a(g6 V tp10366 a(g60 Vnil p10367 tp10368 a(g212 V) tp10369 a(g6 V tp10370 a(g138 Vtype p10371 tp10372 a(g212 V) tp10373 a(g212 V) tp10374 a(g212 V) tp10375 a(g212 V) tp10376 a(g6 V\u000a\u000a p10377 tp10378 a(g31 V;;; =========================================================================== p10379 tp10380 a(g6 V\u000a\u000a p10381 tp10382 a(g31 V;; SUBTYPEP p10383 tp10384 a(g6 V\u000a tp10385 a(g212 V( tp10386 a(g84 Vload p10387 tp10388 a(g6 V tp10389 a(g236 V"subtypep" p10390 tp10391 a(g212 V) tp10392 a(g6 V\u000a\u000a\u000a p10393 tp10394 a(g31 V;; Returns the number of bytes that are needed to represent #\u005cNull in a p10395 tp10396 a(g6 V\u000a tp10397 a(g31 V;; given encoding. p10398 tp10399 a(g6 V\u000a tp10400 a(g212 V( tp10401 a(g84 Vdefun p10402 tp10403 a(g6 V tp10404 a(g100 Vencoding-zeroes p10405 tp10406 a(g6 V tp10407 a(g212 V( tp10408 a(g100 Vencoding p10409 tp10410 a(g212 V) tp10411 a(g6 V\u000a p10412 tp10413 a(g353 V#+ p10414 tp10415 a(g100 VUNICODE p10416 tp10417 a(g6 V\u000a p10418 tp10419 a(g31 V;; this should use min_bytes_per_char for cache, not the hash table p10420 tp10421 a(g6 V\u000a p10422 tp10423 a(g212 V( tp10424 a(g138 Vlet p10425 tp10426 a(g6 V tp10427 a(g212 V( tp10428 a(g212 V( tp10429 a(g100 Vname p10430 tp10431 a(g6 V tp10432 a(g212 V( tp10433 a(g100 Vext:encoding-charset p10434 tp10435 a(g6 V tp10436 a(g100 Vencoding p10437 tp10438 a(g212 V) tp10439 a(g212 V) tp10440 a(g6 V\u000a p10441 tp10442 a(g212 V( tp10443 a(g100 Vtable p10444 tp10445 a(g6 V tp10446 a(g353 V#. p10447 tp10448 a(g212 V( tp10449 a(g84 Vmake-hash-table p10450 tp10451 a(g6 V tp10452 a(g258 V:key-type p10453 tp10454 a(g6 V tp10455 a(g353 V' tp10456 a(g212 V( tp10457 a(g84 Vor p10458 tp10459 a(g6 V tp10460 a(g84 Vstring p10461 tp10462 a(g6 V tp10463 a(g133 Vsymbol p10464 tp10465 a(g212 V) tp10466 a(g6 V tp10467 a(g258 V:value-type p10468 tp10469 a(g6 V tp10470 a(g258 V'fixnum p10471 tp10472 a(g6 V\u000a p10473 tp10474 a(g258 V:test p10475 tp10476 a(g6 V tp10477 a(g258 V'stablehash-equal p10478 tp10479 a(g6 V tp10480 a(g258 V:warn-if-needs-rehash-after-gc p10481 tp10482 a(g6 V tp10483 a(g60 Vt tp10484 a(g6 V\u000a p10485 tp10486 a(g258 V:initial-contents p10487 tp10488 a(g6 V tp10489 a(g353 V' tp10490 a(g212 V( tp10491 a(g212 V( tp10492 a(g236 V"UTF-7" p10493 tp10494 a(g6 V tp10495 a(g353 V. tp10496 a(g6 V tp10497 a(g328 V1 tp10498 a(g212 V) tp10499 a(g212 V) tp10500 a(g212 V) tp10501 a(g212 V) tp10502 a(g6 V\u000a p10503 tp10504 a(g212 V( tp10505 a(g100 Vtester p10506 tp10507 a(g6 V tp10508 a(g353 V#. p10509 tp10510 a(g212 V( tp10511 a(g84 Vmake-string p10512 tp10513 a(g6 V tp10514 a(g328 V2 tp10515 a(g6 V tp10516 a(g258 V:initial-element p10517 tp10518 a(g6 V tp10519 a(g212 V( tp10520 a(g84 Vcode-char p10521 tp10522 a(g6 V tp10523 a(g328 V0 tp10524 a(g212 V) tp10525 a(g212 V) tp10526 a(g212 V) tp10527 a(g212 V) tp10528 a(g6 V\u000a p10529 tp10530 a(g212 V( tp10531 a(g84 Vor p10532 tp10533 a(g6 V tp10534 a(g212 V( tp10535 a(g84 Vgethash p10536 tp10537 a(g6 V tp10538 a(g100 Vname p10539 tp10540 a(g6 V tp10541 a(g100 Vtable p10542 tp10543 a(g212 V) tp10544 a(g6 V\u000a p10545 tp10546 a(g212 V( tp10547 a(g84 Vsetf p10548 tp10549 a(g6 V tp10550 a(g212 V( tp10551 a(g84 Vgethash p10552 tp10553 a(g6 V tp10554 a(g100 Vname p10555 tp10556 a(g6 V tp10557 a(g100 Vtable p10558 tp10559 a(g212 V) tp10560 a(g6 V\u000a p10561 tp10562 a(g212 V( tp10563 a(g84 V- tp10564 a(g6 V tp10565 a(g212 V( tp10566 a(g84 Vlength p10567 tp10568 a(g6 V tp10569 a(g212 V( tp10570 a(g100 Vext:convert-string-to-bytes p10571 tp10572 a(g6 V tp10573 a(g100 Vtester p10574 tp10575 a(g6 V tp10576 a(g100 Vencoding p10577 tp10578 a(g212 V) tp10579 a(g212 V) tp10580 a(g6 V\u000a p10581 tp10582 a(g212 V( tp10583 a(g84 Vlength p10584 tp10585 a(g6 V tp10586 a(g212 V( tp10587 a(g100 Vext:convert-string-to-bytes p10588 tp10589 a(g6 V tp10590 a(g100 Vtester p10591 tp10592 a(g6 V tp10593 a(g100 Vencoding p10594 tp10595 a(g6 V\u000a p10596 tp10597 a(g258 V:end p10598 tp10599 a(g6 V tp10600 a(g328 V1 tp10601 a(g212 V) tp10602 a(g212 V) tp10603 a(g212 V) tp10604 a(g212 V) tp10605 a(g212 V) tp10606 a(g212 V) tp10607 a(g6 V\u000a p10608 tp10609 a(g353 V#- p10610 tp10611 a(g100 VUNICODE p10612 tp10613 a(g6 V tp10614 a(g328 V1 tp10615 a(g212 V) tp10616 a(g6 V\u000a\u000a p10617 tp10618 a(g31 V;; Determines two values low,high such that p10619 tp10620 a(g6 V\u000a tp10621 a(g31 V;; (subtypep type `(INTEGER ,low ,high)) p10622 tp10623 a(g6 V\u000a tp10624 a(g31 V;; holds and low is as large as possible and high is as small as possible. p10625 tp10626 a(g6 V\u000a tp10627 a(g31 V;; low = * means -infinity, high = * means infinity. p10628 tp10629 a(g6 V\u000a tp10630 a(g31 V;; When (subtypep type 'INTEGER) is false, the values NIL,NIL are returned. p10631 tp10632 a(g6 V\u000a tp10633 a(g31 V;; We need this function only for MAKE-ARRAY, UPGRADED-ARRAY-ELEMENT-TYPE and p10634 tp10635 a(g6 V\u000a tp10636 a(g31 V;; OPEN and can therefore w.l.o.g. replace p10637 tp10638 a(g6 V\u000a tp10639 a(g31 V;; type with `(OR ,type (MEMBER 0)) p10640 tp10641 a(g6 V\u000a tp10642 a(g35 V#| p10643 tp10644 a(g35 V ;; The original implementation calls canonicalize-type and then applies\u000a ;; a particular SUBTYPE variant:\u000a (defun subtype-integer (type)\u000a (macrolet ((yes () '(return-from subtype-integer (values low high)))\u000a (no () '(return-from subtype-integer nil))\u000a (unknown () '(return-from subtype-integer nil)))\u000a (setq type (canonicalize-type type))\u000a (if (consp type)\u000a (case (first type)\u000a (MEMBER ; (MEMBER &rest objects)\u000a ;; All elements must be of type INTEGER.\u000a (let ((low 0) (high 0)) ; wlog!\u000a (dolist (x (rest type) (yes))\u000a (unless (typep x 'INTEGER) (return (no)))\u000a (setq low (min low x) high (max high x)))))\u000a (OR ; (OR type*)\u000a ;; Every type must be subtype of INTEGER.\u000a (let ((low 0) (high 0)) ; wlog!\u000a (dolist (type1 (rest type) (yes))\u000a (multiple-value-bind (low1 high1) (subtype-integer type1)\u000a (unless low1 (return (no)))\u000a (setq low (if (or (eq low '*) (eq low1 '*)) '* (min low low1))\u000a high (if (or (eq high '*) (eq high1 '*))\u000a '* (max high high1)))))))\u000a (AND ; (AND type*)\u000a ;; If one of the types is subtype of INTEGER, then yes,\u000a ;; otherwise unknown.\u000a (let ((low nil) (high nil))\u000a (dolist (type1 (rest type))\u000a (multiple-value-bind (low1 high1) (subtype-integer type1)\u000a (when low1\u000a (if low\u000a (setq low (if (eq low '*) low1 (if (eq low1 '*) low (max low low1)))\u000a high (if (eq high '*) high1 (if (eq high1 '*) high (min high high1))))\u000a (setq low low1 high high1)))))\u000a (if low\u000a (progn\u000a (when (and (numberp low) (numberp high) (not (<= low high)))\u000a (setq low 0 high 0) ; type equivalent to NIL)\u000a (yes))\u000a (unknown)))))\u000a (setq type (list type)))\u000a (if (eq (first type) 'INTEGER)\u000a (let ((low (if (rest type) (second type) '*))\u000a (high (if (cddr type) (third type) '*)))\u000a (when (consp low)\u000a (setq low (first low))\u000a (when (numberp low) (incf low)))\u000a (when (consp high)\u000a (setq high (first high))\u000a (when (numberp high) (decf high)))\u000a (when (and (numberp low) (numberp high) (not (<= low high))) ; type leer?\u000a (setq low 0 high 0))\u000a (yes))\u000a (if (and (eq (first type) 'INTERVALS) (eq (second type) 'INTEGER))\u000a (let ((low (third type))\u000a (high (car (last type))))\u000a (when (consp low)\u000a (setq low (first low))\u000a (when (numberp low) (incf low)))\u000a (when (consp high)\u000a (setq high (first high))\u000a (when (numberp high) (decf high)))\u000a (yes))\u000a (unknown)))))\u000a p10645 tp10646 a(g35 V|# p10647 tp10648 a(g6 V tp10649 a(g31 V;; This implementation inlines the (tail-recursive) canonicalize-type p10650 tp10651 a(g6 V\u000a p10652 tp10653 a(g31 V;; function. Its advantage is that it doesn't cons as much. p10654 tp10655 a(g6 V\u000a p10656 tp10657 a(g31 V;; (For example, (subtype-integer '(UNSIGNED-BYTE 8)) doesn't cons.) p10658 tp10659 a(g6 V\u000a tp10660 a(g212 V( tp10661 a(g84 Vdefun p10662 tp10663 a(g6 V tp10664 a(g100 Vsubtype-integer p10665 tp10666 a(g6 V tp10667 a(g212 V( tp10668 a(g138 Vtype p10669 tp10670 a(g212 V) tp10671 a(g6 V\u000a p10672 tp10673 a(g212 V( tp10674 a(g138 Vmacrolet p10675 tp10676 a(g6 V tp10677 a(g212 V( tp10678 a(g212 V( tp10679 a(g100 Vyes p10680 tp10681 a(g6 V tp10682 a(g212 V( tp10683 a(g212 V) tp10684 a(g6 V tp10685 a(g353 V' tp10686 a(g212 V( tp10687 a(g138 Vreturn-from p10688 tp10689 a(g6 V tp10690 a(g100 Vsubtype-integer p10691 tp10692 a(g6 V tp10693 a(g212 V( tp10694 a(g84 Vvalues p10695 tp10696 a(g6 V tp10697 a(g100 Vlow p10698 tp10699 a(g6 V tp10700 a(g100 Vhigh p10701 tp10702 a(g212 V) tp10703 a(g212 V) tp10704 a(g212 V) tp10705 a(g6 V\u000a p10706 tp10707 a(g212 V( tp10708 a(g100 Vno p10709 tp10710 a(g6 V tp10711 a(g212 V( tp10712 a(g212 V) tp10713 a(g6 V tp10714 a(g353 V' tp10715 a(g212 V( tp10716 a(g138 Vreturn-from p10717 tp10718 a(g6 V tp10719 a(g100 Vsubtype-integer p10720 tp10721 a(g6 V tp10722 a(g60 Vnil p10723 tp10724 a(g212 V) tp10725 a(g212 V) tp10726 a(g6 V\u000a p10727 tp10728 a(g212 V( tp10729 a(g100 Vunknown p10730 tp10731 a(g6 V tp10732 a(g212 V( tp10733 a(g212 V) tp10734 a(g6 V tp10735 a(g353 V' tp10736 a(g212 V( tp10737 a(g138 Vreturn-from p10738 tp10739 a(g6 V tp10740 a(g100 Vsubtype-integer p10741 tp10742 a(g6 V tp10743 a(g60 Vnil p10744 tp10745 a(g212 V) tp10746 a(g212 V) tp10747 a(g212 V) tp10748 a(g6 V\u000a p10749 tp10750 a(g212 V( tp10751 a(g138 Vsetq p10752 tp10753 a(g6 V tp10754 a(g138 Vtype p10755 tp10756 a(g6 V tp10757 a(g212 V( tp10758 a(g100 Vexpand-deftype p10759 tp10760 a(g6 V tp10761 a(g138 Vtype p10762 tp10763 a(g212 V) tp10764 a(g212 V) tp10765 a(g6 V\u000a p10766 tp10767 a(g212 V( tp10768 a(g84 Vcond p10769 tp10770 a(g6 V tp10771 a(g212 V( tp10772 a(g212 V( tp10773 a(g84 Vsymbolp p10774 tp10775 a(g6 V tp10776 a(g138 Vtype p10777 tp10778 a(g212 V) tp10779 a(g6 V\u000a p10780 tp10781 a(g212 V( tp10782 a(g84 Vcase p10783 tp10784 a(g6 V tp10785 a(g138 Vtype p10786 tp10787 a(g6 V\u000a p10788 tp10789 a(g212 V( tp10790 a(g100 VBIT p10791 tp10792 a(g6 V tp10793 a(g212 V( tp10794 a(g138 Vlet p10795 tp10796 a(g6 V tp10797 a(g212 V( tp10798 a(g212 V( tp10799 a(g100 Vlow p10800 tp10801 a(g6 V tp10802 a(g328 V0 tp10803 a(g212 V) tp10804 a(g6 V tp10805 a(g212 V( tp10806 a(g100 Vhigh p10807 tp10808 a(g6 V tp10809 a(g328 V1 tp10810 a(g212 V) tp10811 a(g212 V) tp10812 a(g6 V tp10813 a(g212 V( tp10814 a(g100 Vyes p10815 tp10816 a(g212 V) tp10817 a(g212 V) tp10818 a(g212 V) tp10819 a(g6 V\u000a p10820 tp10821 a(g212 V( tp10822 a(g100 VFIXNUM p10823 tp10824 a(g6 V\u000a p10825 tp10826 a(g212 V( tp10827 a(g138 Vlet p10828 tp10829 a(g6 V tp10830 a(g212 V( tp10831 a(g212 V( tp10832 a(g100 Vlow p10833 tp10834 a(g6 V tp10835 a(g353 V' tp10836 a(g353 V#, p10837 tp10838 a(g100 Vmost-negative-fixnum p10839 tp10840 a(g212 V) tp10841 a(g6 V\u000a p10842 tp10843 a(g212 V( tp10844 a(g100 Vhigh p10845 tp10846 a(g6 V tp10847 a(g353 V' tp10848 a(g353 V#, p10849 tp10850 a(g100 Vmost-positive-fixnum p10851 tp10852 a(g212 V) tp10853 a(g212 V) tp10854 a(g6 V\u000a p10855 tp10856 a(g212 V( tp10857 a(g100 Vyes p10858 tp10859 a(g212 V) tp10860 a(g212 V) tp10861 a(g212 V) tp10862 a(g6 V\u000a p10863 tp10864 a(g212 V( tp10865 a(g212 V( tp10866 a(g100 VINTEGER p10867 tp10868 a(g6 V tp10869 a(g100 VBIGNUM p10870 tp10871 a(g6 V tp10872 a(g100 VSIGNED-BYTE p10873 tp10874 a(g212 V) tp10875 a(g6 V\u000a p10876 tp10877 a(g212 V( tp10878 a(g138 Vlet p10879 tp10880 a(g6 V tp10881 a(g212 V( tp10882 a(g212 V( tp10883 a(g100 Vlow p10884 tp10885 a(g6 V tp10886 a(g258 V'* p10887 tp10888 a(g212 V) tp10889 a(g6 V tp10890 a(g212 V( tp10891 a(g100 Vhigh p10892 tp10893 a(g6 V tp10894 a(g258 V'* p10895 tp10896 a(g212 V) tp10897 a(g212 V) tp10898 a(g6 V tp10899 a(g212 V( tp10900 a(g100 Vyes p10901 tp10902 a(g212 V) tp10903 a(g212 V) tp10904 a(g212 V) tp10905 a(g6 V\u000a p10906 tp10907 a(g212 V( tp10908 a(g100 VUNSIGNED-BYTE p10909 tp10910 a(g6 V\u000a p10911 tp10912 a(g212 V( tp10913 a(g138 Vlet p10914 tp10915 a(g6 V tp10916 a(g212 V( tp10917 a(g212 V( tp10918 a(g100 Vlow p10919 tp10920 a(g6 V tp10921 a(g328 V0 tp10922 a(g212 V) tp10923 a(g6 V tp10924 a(g212 V( tp10925 a(g100 Vhigh p10926 tp10927 a(g6 V tp10928 a(g258 V'* p10929 tp10930 a(g212 V) tp10931 a(g212 V) tp10932 a(g6 V tp10933 a(g212 V( tp10934 a(g100 Vyes p10935 tp10936 a(g212 V) tp10937 a(g212 V) tp10938 a(g212 V) tp10939 a(g6 V\u000a p10940 tp10941 a(g212 V( tp10942 a(g212 V( tp10943 a(g60 VNIL p10944 tp10945 a(g212 V) tp10946 a(g6 V\u000a p10947 tp10948 a(g212 V( tp10949 a(g138 Vlet p10950 tp10951 a(g6 V tp10952 a(g212 V( tp10953 a(g212 V( tp10954 a(g100 Vlow p10955 tp10956 a(g6 V tp10957 a(g328 V0 tp10958 a(g212 V) tp10959 a(g6 V tp10960 a(g212 V( tp10961 a(g100 Vhigh p10962 tp10963 a(g6 V tp10964 a(g328 V0 tp10965 a(g212 V) tp10966 a(g212 V) tp10967 a(g6 V tp10968 a(g212 V( tp10969 a(g100 Vyes p10970 tp10971 a(g212 V) tp10972 a(g212 V) tp10973 a(g212 V) tp10974 a(g6 V tp10975 a(g31 V; wlog! p10976 tp10977 a(g6 V\u000a p10978 tp10979 a(g212 V( tp10980 a(g60 Vt tp10981 a(g6 V tp10982 a(g212 V( tp10983 a(g100 Vno p10984 tp10985 a(g212 V) tp10986 a(g212 V) tp10987 a(g212 V) tp10988 a(g212 V) tp10989 a(g6 V\u000a p10990 tp10991 a(g212 V( tp10992 a(g212 V( tp10993 a(g84 Vand p10994 tp10995 a(g6 V tp10996 a(g212 V( tp10997 a(g84 Vconsp p10998 tp10999 a(g6 V tp11000 a(g138 Vtype p11001 tp11002 a(g212 V) tp11003 a(g6 V tp11004 a(g212 V( tp11005 a(g84 Vsymbolp p11006 tp11007 a(g6 V tp11008 a(g212 V( tp11009 a(g84 Vfirst p11010 tp11011 a(g6 V tp11012 a(g138 Vtype p11013 tp11014 a(g212 V) tp11015 a(g212 V) tp11016 a(g212 V) tp11017 a(g6 V\u000a p11018 tp11019 a(g212 V( tp11020 a(g84 Vunless p11021 tp11022 a(g6 V tp11023 a(g212 V( tp11024 a(g84 Vand p11025 tp11026 a(g6 V tp11027 a(g212 V( tp11028 a(g84 Vlist-length p11029 tp11030 a(g6 V tp11031 a(g138 Vtype p11032 tp11033 a(g212 V) tp11034 a(g6 V tp11035 a(g212 V( tp11036 a(g84 Vnull p11037 tp11038 a(g6 V tp11039 a(g212 V( tp11040 a(g84 Vcdr p11041 tp11042 a(g6 V tp11043 a(g212 V( tp11044 a(g84 Vlast p11045 tp11046 a(g6 V tp11047 a(g138 Vtype p11048 tp11049 a(g212 V) tp11050 a(g212 V) tp11051 a(g212 V) tp11052 a(g212 V) tp11053 a(g6 V\u000a p11054 tp11055 a(g212 V( tp11056 a(g100 Vtypespec-error p11057 tp11058 a(g6 V tp11059 a(g258 V'subtypep p11060 tp11061 a(g6 V tp11062 a(g138 Vtype p11063 tp11064 a(g212 V) tp11065 a(g212 V) tp11066 a(g6 V\u000a p11067 tp11068 a(g212 V( tp11069 a(g84 Vcase p11070 tp11071 a(g6 V tp11072 a(g212 V( tp11073 a(g84 Vfirst p11074 tp11075 a(g6 V tp11076 a(g138 Vtype p11077 tp11078 a(g212 V) tp11079 a(g6 V\u000a p11080 tp11081 a(g212 V( tp11082 a(g100 VMEMBER p11083 tp11084 a(g6 V tp11085 a(g31 V; (MEMBER &rest objects) p11086 tp11087 a(g6 V\u000a p11088 tp11089 a(g31 V;; All elements must be of type INTEGER. p11090 tp11091 a(g6 V\u000a p11092 tp11093 a(g212 V( tp11094 a(g138 Vlet p11095 tp11096 a(g6 V tp11097 a(g212 V( tp11098 a(g212 V( tp11099 a(g100 Vlow p11100 tp11101 a(g6 V tp11102 a(g328 V0 tp11103 a(g212 V) tp11104 a(g6 V tp11105 a(g212 V( tp11106 a(g100 Vhigh p11107 tp11108 a(g6 V tp11109 a(g328 V0 tp11110 a(g212 V) tp11111 a(g212 V) tp11112 a(g6 V tp11113 a(g31 V; wlog! p11114 tp11115 a(g6 V\u000a p11116 tp11117 a(g212 V( tp11118 a(g84 Vdolist p11119 tp11120 a(g6 V tp11121 a(g212 V( tp11122 a(g100 Vx tp11123 a(g6 V tp11124 a(g212 V( tp11125 a(g84 Vrest p11126 tp11127 a(g6 V tp11128 a(g138 Vtype p11129 tp11130 a(g212 V) tp11131 a(g6 V tp11132 a(g212 V( tp11133 a(g100 Vyes p11134 tp11135 a(g212 V) tp11136 a(g212 V) tp11137 a(g6 V\u000a p11138 tp11139 a(g212 V( tp11140 a(g84 Vunless p11141 tp11142 a(g6 V tp11143 a(g212 V( tp11144 a(g84 Vtypep p11145 tp11146 a(g6 V tp11147 a(g100 Vx tp11148 a(g6 V tp11149 a(g258 V'INTEGER p11150 tp11151 a(g212 V) tp11152 a(g6 V tp11153 a(g212 V( tp11154 a(g84 Vreturn p11155 tp11156 a(g6 V tp11157 a(g212 V( tp11158 a(g100 Vno p11159 tp11160 a(g212 V) tp11161 a(g212 V) tp11162 a(g212 V) tp11163 a(g6 V\u000a p11164 tp11165 a(g212 V( tp11166 a(g138 Vsetq p11167 tp11168 a(g6 V tp11169 a(g100 Vlow p11170 tp11171 a(g6 V tp11172 a(g212 V( tp11173 a(g84 Vmin p11174 tp11175 a(g6 V tp11176 a(g100 Vlow p11177 tp11178 a(g6 V tp11179 a(g100 Vx tp11180 a(g212 V) tp11181 a(g6 V tp11182 a(g100 Vhigh p11183 tp11184 a(g6 V tp11185 a(g212 V( tp11186 a(g84 Vmax p11187 tp11188 a(g6 V tp11189 a(g100 Vhigh p11190 tp11191 a(g6 V tp11192 a(g100 Vx tp11193 a(g212 V) tp11194 a(g212 V) tp11195 a(g212 V) tp11196 a(g212 V) tp11197 a(g212 V) tp11198 a(g6 V\u000a p11199 tp11200 a(g212 V( tp11201 a(g100 VEQL p11202 tp11203 a(g6 V tp11204 a(g31 V; (EQL object) p11205 tp11206 a(g6 V\u000a p11207 tp11208 a(g212 V( tp11209 a(g138 Vlet p11210 tp11211 a(g6 V tp11212 a(g212 V( tp11213 a(g212 V( tp11214 a(g100 Vx tp11215 a(g6 V tp11216 a(g212 V( tp11217 a(g84 Vsecond p11218 tp11219 a(g6 V tp11220 a(g138 Vtype p11221 tp11222 a(g212 V) tp11223 a(g212 V) tp11224 a(g212 V) tp11225 a(g6 V\u000a p11226 tp11227 a(g212 V( tp11228 a(g138 Vif p11229 tp11230 a(g6 V tp11231 a(g212 V( tp11232 a(g84 Vtypep p11233 tp11234 a(g6 V tp11235 a(g100 Vx tp11236 a(g6 V tp11237 a(g258 V'INTEGER p11238 tp11239 a(g212 V) tp11240 a(g6 V\u000a p11241 tp11242 a(g212 V( tp11243 a(g138 Vlet p11244 tp11245 a(g6 V tp11246 a(g212 V( tp11247 a(g212 V( tp11248 a(g100 Vlow p11249 tp11250 a(g6 V tp11251 a(g212 V( tp11252 a(g84 Vmin p11253 tp11254 a(g6 V tp11255 a(g328 V0 tp11256 a(g6 V tp11257 a(g100 Vx tp11258 a(g212 V) tp11259 a(g212 V) tp11260 a(g6 V tp11261 a(g212 V( tp11262 a(g100 Vhigh p11263 tp11264 a(g6 V tp11265 a(g212 V( tp11266 a(g84 Vmax p11267 tp11268 a(g6 V tp11269 a(g328 V0 tp11270 a(g6 V tp11271 a(g100 Vx tp11272 a(g212 V) tp11273 a(g212 V) tp11274 a(g212 V) tp11275 a(g6 V tp11276 a(g212 V( tp11277 a(g100 Vyes p11278 tp11279 a(g212 V) tp11280 a(g212 V) tp11281 a(g6 V\u000a p11282 tp11283 a(g212 V( tp11284 a(g100 Vno p11285 tp11286 a(g212 V) tp11287 a(g212 V) tp11288 a(g212 V) tp11289 a(g212 V) tp11290 a(g6 V\u000a p11291 tp11292 a(g212 V( tp11293 a(g100 VOR p11294 tp11295 a(g6 V tp11296 a(g31 V; (OR type*) p11297 tp11298 a(g6 V\u000a p11299 tp11300 a(g31 V;; Every type must be subtype of INTEGER. p11301 tp11302 a(g6 V\u000a p11303 tp11304 a(g212 V( tp11305 a(g138 Vlet p11306 tp11307 a(g6 V tp11308 a(g212 V( tp11309 a(g212 V( tp11310 a(g100 Vlow p11311 tp11312 a(g6 V tp11313 a(g328 V0 tp11314 a(g212 V) tp11315 a(g6 V tp11316 a(g212 V( tp11317 a(g100 Vhigh p11318 tp11319 a(g6 V tp11320 a(g328 V0 tp11321 a(g212 V) tp11322 a(g212 V) tp11323 a(g6 V tp11324 a(g31 V; wlog! p11325 tp11326 a(g6 V\u000a p11327 tp11328 a(g212 V( tp11329 a(g84 Vdolist p11330 tp11331 a(g6 V tp11332 a(g212 V( tp11333 a(g100 Vtype1 p11334 tp11335 a(g6 V tp11336 a(g212 V( tp11337 a(g84 Vrest p11338 tp11339 a(g6 V tp11340 a(g138 Vtype p11341 tp11342 a(g212 V) tp11343 a(g6 V tp11344 a(g212 V( tp11345 a(g100 Vyes p11346 tp11347 a(g212 V) tp11348 a(g212 V) tp11349 a(g6 V\u000a p11350 tp11351 a(g212 V( tp11352 a(g84 Vmultiple-value-bind p11353 tp11354 a(g6 V tp11355 a(g212 V( tp11356 a(g100 Vlow1 p11357 tp11358 a(g6 V tp11359 a(g100 Vhigh1 p11360 tp11361 a(g212 V) tp11362 a(g6 V tp11363 a(g212 V( tp11364 a(g100 Vsubtype-integer p11365 tp11366 a(g6 V tp11367 a(g100 Vtype1 p11368 tp11369 a(g212 V) tp11370 a(g6 V\u000a p11371 tp11372 a(g212 V( tp11373 a(g84 Vunless p11374 tp11375 a(g6 V tp11376 a(g100 Vlow1 p11377 tp11378 a(g6 V tp11379 a(g212 V( tp11380 a(g84 Vreturn p11381 tp11382 a(g6 V tp11383 a(g212 V( tp11384 a(g100 Vno p11385 tp11386 a(g212 V) tp11387 a(g212 V) tp11388 a(g212 V) tp11389 a(g6 V\u000a p11390 tp11391 a(g212 V( tp11392 a(g138 Vsetq p11393 tp11394 a(g6 V tp11395 a(g100 Vlow p11396 tp11397 a(g6 V tp11398 a(g212 V( tp11399 a(g138 Vif p11400 tp11401 a(g6 V tp11402 a(g212 V( tp11403 a(g84 Vor p11404 tp11405 a(g6 V tp11406 a(g212 V( tp11407 a(g84 Veq p11408 tp11409 a(g6 V tp11410 a(g100 Vlow p11411 tp11412 a(g6 V tp11413 a(g258 V'* p11414 tp11415 a(g212 V) tp11416 a(g6 V tp11417 a(g212 V( tp11418 a(g84 Veq p11419 tp11420 a(g6 V tp11421 a(g100 Vlow1 p11422 tp11423 a(g6 V tp11424 a(g258 V'* p11425 tp11426 a(g212 V) tp11427 a(g212 V) tp11428 a(g6 V\u000a p11429 tp11430 a(g258 V'* p11431 tp11432 a(g6 V tp11433 a(g212 V( tp11434 a(g84 Vmin p11435 tp11436 a(g6 V tp11437 a(g100 Vlow p11438 tp11439 a(g6 V tp11440 a(g100 Vlow1 p11441 tp11442 a(g212 V) tp11443 a(g212 V) tp11444 a(g6 V\u000a p11445 tp11446 a(g100 Vhigh p11447 tp11448 a(g6 V tp11449 a(g212 V( tp11450 a(g138 Vif p11451 tp11452 a(g6 V tp11453 a(g212 V( tp11454 a(g84 Vor p11455 tp11456 a(g6 V tp11457 a(g212 V( tp11458 a(g84 Veq p11459 tp11460 a(g6 V tp11461 a(g100 Vhigh p11462 tp11463 a(g6 V tp11464 a(g258 V'* p11465 tp11466 a(g212 V) tp11467 a(g6 V tp11468 a(g212 V( tp11469 a(g84 Veq p11470 tp11471 a(g6 V tp11472 a(g100 Vhigh1 p11473 tp11474 a(g6 V tp11475 a(g258 V'* p11476 tp11477 a(g212 V) tp11478 a(g212 V) tp11479 a(g6 V\u000a p11480 tp11481 a(g258 V'* p11482 tp11483 a(g6 V tp11484 a(g212 V( tp11485 a(g84 Vmax p11486 tp11487 a(g6 V tp11488 a(g100 Vhigh p11489 tp11490 a(g6 V tp11491 a(g100 Vhigh1 p11492 tp11493 a(g212 V) tp11494 a(g212 V) tp11495 a(g212 V) tp11496 a(g212 V) tp11497 a(g212 V) tp11498 a(g212 V) tp11499 a(g212 V) tp11500 a(g6 V\u000a p11501 tp11502 a(g212 V( tp11503 a(g100 VAND p11504 tp11505 a(g6 V tp11506 a(g31 V; (AND type*) p11507 tp11508 a(g6 V\u000a p11509 tp11510 a(g31 V;; If one of the types is subtype of INTEGER, then yes, p11511 tp11512 a(g6 V\u000a p11513 tp11514 a(g31 V;; otherwise unknown. p11515 tp11516 a(g6 V\u000a p11517 tp11518 a(g212 V( tp11519 a(g138 Vlet p11520 tp11521 a(g6 V tp11522 a(g212 V( tp11523 a(g212 V( tp11524 a(g100 Vlow p11525 tp11526 a(g6 V tp11527 a(g60 Vnil p11528 tp11529 a(g212 V) tp11530 a(g6 V tp11531 a(g212 V( tp11532 a(g100 Vhigh p11533 tp11534 a(g6 V tp11535 a(g60 Vnil p11536 tp11537 a(g212 V) tp11538 a(g212 V) tp11539 a(g6 V\u000a p11540 tp11541 a(g212 V( tp11542 a(g84 Vdolist p11543 tp11544 a(g6 V tp11545 a(g212 V( tp11546 a(g100 Vtype1 p11547 tp11548 a(g6 V tp11549 a(g212 V( tp11550 a(g84 Vrest p11551 tp11552 a(g6 V tp11553 a(g138 Vtype p11554 tp11555 a(g212 V) tp11556 a(g212 V) tp11557 a(g6 V\u000a p11558 tp11559 a(g212 V( tp11560 a(g84 Vmultiple-value-bind p11561 tp11562 a(g6 V tp11563 a(g212 V( tp11564 a(g100 Vlow1 p11565 tp11566 a(g6 V tp11567 a(g100 Vhigh1 p11568 tp11569 a(g212 V) tp11570 a(g6 V tp11571 a(g212 V( tp11572 a(g100 Vsubtype-integer p11573 tp11574 a(g6 V tp11575 a(g100 Vtype1 p11576 tp11577 a(g212 V) tp11578 a(g6 V\u000a p11579 tp11580 a(g212 V( tp11581 a(g84 Vwhen p11582 tp11583 a(g6 V tp11584 a(g100 Vlow1 p11585 tp11586 a(g6 V\u000a p11587 tp11588 a(g212 V( tp11589 a(g138 Vif p11590 tp11591 a(g6 V tp11592 a(g100 Vlow p11593 tp11594 a(g6 V\u000a p11595 tp11596 a(g212 V( tp11597 a(g138 Vsetq p11598 tp11599 a(g6 V tp11600 a(g100 Vlow p11601 tp11602 a(g6 V tp11603 a(g212 V( tp11604 a(g138 Vif p11605 tp11606 a(g6 V tp11607 a(g212 V( tp11608 a(g84 Veq p11609 tp11610 a(g6 V tp11611 a(g100 Vlow p11612 tp11613 a(g6 V tp11614 a(g258 V'* p11615 tp11616 a(g212 V) tp11617 a(g6 V tp11618 a(g100 Vlow1 p11619 tp11620 a(g6 V\u000a p11621 tp11622 a(g212 V( tp11623 a(g138 Vif p11624 tp11625 a(g6 V tp11626 a(g212 V( tp11627 a(g84 Veq p11628 tp11629 a(g6 V tp11630 a(g100 Vlow1 p11631 tp11632 a(g6 V tp11633 a(g258 V'* p11634 tp11635 a(g212 V) tp11636 a(g6 V tp11637 a(g100 Vlow p11638 tp11639 a(g6 V\u000a p11640 tp11641 a(g212 V( tp11642 a(g84 Vmax p11643 tp11644 a(g6 V tp11645 a(g100 Vlow p11646 tp11647 a(g6 V tp11648 a(g100 Vlow1 p11649 tp11650 a(g212 V) tp11651 a(g212 V) tp11652 a(g212 V) tp11653 a(g6 V\u000a p11654 tp11655 a(g100 Vhigh p11656 tp11657 a(g6 V tp11658 a(g212 V( tp11659 a(g138 Vif p11660 tp11661 a(g6 V tp11662 a(g212 V( tp11663 a(g84 Veq p11664 tp11665 a(g6 V tp11666 a(g100 Vhigh p11667 tp11668 a(g6 V tp11669 a(g258 V'* p11670 tp11671 a(g212 V) tp11672 a(g6 V tp11673 a(g100 Vhigh1 p11674 tp11675 a(g6 V\u000a p11676 tp11677 a(g212 V( tp11678 a(g138 Vif p11679 tp11680 a(g6 V tp11681 a(g212 V( tp11682 a(g84 Veq p11683 tp11684 a(g6 V tp11685 a(g100 Vhigh1 p11686 tp11687 a(g6 V tp11688 a(g258 V'* p11689 tp11690 a(g212 V) tp11691 a(g6 V tp11692 a(g100 Vhigh p11693 tp11694 a(g6 V\u000a p11695 tp11696 a(g212 V( tp11697 a(g84 Vmin p11698 tp11699 a(g6 V tp11700 a(g100 Vhigh p11701 tp11702 a(g6 V tp11703 a(g100 Vhigh1 p11704 tp11705 a(g212 V) tp11706 a(g212 V) tp11707 a(g212 V) tp11708 a(g212 V) tp11709 a(g6 V\u000a p11710 tp11711 a(g212 V( tp11712 a(g138 Vsetq p11713 tp11714 a(g6 V tp11715 a(g100 Vlow p11716 tp11717 a(g6 V tp11718 a(g100 Vlow1 p11719 tp11720 a(g6 V\u000a p11721 tp11722 a(g100 Vhigh p11723 tp11724 a(g6 V tp11725 a(g100 Vhigh1 p11726 tp11727 a(g212 V) tp11728 a(g212 V) tp11729 a(g212 V) tp11730 a(g212 V) tp11731 a(g212 V) tp11732 a(g6 V\u000a p11733 tp11734 a(g212 V( tp11735 a(g138 Vif p11736 tp11737 a(g6 V tp11738 a(g100 Vlow p11739 tp11740 a(g6 V\u000a p11741 tp11742 a(g212 V( tp11743 a(g138 Vprogn p11744 tp11745 a(g6 V\u000a p11746 tp11747 a(g212 V( tp11748 a(g84 Vwhen p11749 tp11750 a(g6 V tp11751 a(g212 V( tp11752 a(g84 Vand p11753 tp11754 a(g6 V tp11755 a(g212 V( tp11756 a(g84 Vnumberp p11757 tp11758 a(g6 V tp11759 a(g100 Vlow p11760 tp11761 a(g212 V) tp11762 a(g6 V tp11763 a(g212 V( tp11764 a(g84 Vnumberp p11765 tp11766 a(g6 V tp11767 a(g100 Vhigh p11768 tp11769 a(g212 V) tp11770 a(g6 V\u000a p11771 tp11772 a(g212 V( tp11773 a(g84 Vnot p11774 tp11775 a(g6 V tp11776 a(g212 V( tp11777 a(g84 V<= p11778 tp11779 a(g6 V tp11780 a(g100 Vlow p11781 tp11782 a(g6 V tp11783 a(g100 Vhigh p11784 tp11785 a(g212 V) tp11786 a(g212 V) tp11787 a(g212 V) tp11788 a(g6 V\u000a p11789 tp11790 a(g212 V( tp11791 a(g138 Vsetq p11792 tp11793 a(g6 V tp11794 a(g100 Vlow p11795 tp11796 a(g6 V tp11797 a(g328 V0 tp11798 a(g6 V tp11799 a(g100 Vhigh p11800 tp11801 a(g6 V tp11802 a(g328 V0 tp11803 a(g212 V) tp11804 a(g212 V) tp11805 a(g6 V tp11806 a(g31 V; type equivalent to NIL p11807 tp11808 a(g6 V\u000a p11809 tp11810 a(g212 V( tp11811 a(g100 Vyes p11812 tp11813 a(g212 V) tp11814 a(g212 V) tp11815 a(g6 V\u000a p11816 tp11817 a(g212 V( tp11818 a(g100 Vunknown p11819 tp11820 a(g212 V) tp11821 a(g212 V) tp11822 a(g212 V) tp11823 a(g212 V) tp11824 a(g6 V\u000a p11825 tp11826 a(g212 V( tp11827 a(g100 VINTEGER p11828 tp11829 a(g6 V\u000a p11830 tp11831 a(g212 V( tp11832 a(g138 Vlet p11833 tp11834 a(g6 V tp11835 a(g212 V( tp11836 a(g212 V( tp11837 a(g100 Vlow p11838 tp11839 a(g6 V tp11840 a(g212 V( tp11841 a(g138 Vif p11842 tp11843 a(g6 V tp11844 a(g212 V( tp11845 a(g84 Vrest p11846 tp11847 a(g6 V tp11848 a(g138 Vtype p11849 tp11850 a(g212 V) tp11851 a(g6 V tp11852 a(g212 V( tp11853 a(g84 Vsecond p11854 tp11855 a(g6 V tp11856 a(g138 Vtype p11857 tp11858 a(g212 V) tp11859 a(g6 V tp11860 a(g258 V'* p11861 tp11862 a(g212 V) tp11863 a(g212 V) tp11864 a(g6 V\u000a p11865 tp11866 a(g212 V( tp11867 a(g100 Vhigh p11868 tp11869 a(g6 V tp11870 a(g212 V( tp11871 a(g138 Vif p11872 tp11873 a(g6 V tp11874 a(g212 V( tp11875 a(g84 Vcddr p11876 tp11877 a(g6 V tp11878 a(g138 Vtype p11879 tp11880 a(g212 V) tp11881 a(g6 V tp11882 a(g212 V( tp11883 a(g84 Vthird p11884 tp11885 a(g6 V tp11886 a(g138 Vtype p11887 tp11888 a(g212 V) tp11889 a(g6 V tp11890 a(g258 V'* p11891 tp11892 a(g212 V) tp11893 a(g212 V) tp11894 a(g212 V) tp11895 a(g6 V\u000a p11896 tp11897 a(g212 V( tp11898 a(g84 Vwhen p11899 tp11900 a(g6 V tp11901 a(g212 V( tp11902 a(g84 Vconsp p11903 tp11904 a(g6 V tp11905 a(g100 Vlow p11906 tp11907 a(g212 V) tp11908 a(g6 V\u000a p11909 tp11910 a(g212 V( tp11911 a(g138 Vsetq p11912 tp11913 a(g6 V tp11914 a(g100 Vlow p11915 tp11916 a(g6 V tp11917 a(g212 V( tp11918 a(g84 Vfirst p11919 tp11920 a(g6 V tp11921 a(g100 Vlow p11922 tp11923 a(g212 V) tp11924 a(g212 V) tp11925 a(g6 V\u000a p11926 tp11927 a(g212 V( tp11928 a(g84 Vwhen p11929 tp11930 a(g6 V tp11931 a(g212 V( tp11932 a(g84 Vnumberp p11933 tp11934 a(g6 V tp11935 a(g100 Vlow p11936 tp11937 a(g212 V) tp11938 a(g6 V tp11939 a(g212 V( tp11940 a(g84 Vincf p11941 tp11942 a(g6 V tp11943 a(g100 Vlow p11944 tp11945 a(g212 V) tp11946 a(g212 V) tp11947 a(g212 V) tp11948 a(g6 V\u000a p11949 tp11950 a(g212 V( tp11951 a(g84 Vwhen p11952 tp11953 a(g6 V tp11954 a(g212 V( tp11955 a(g84 Vconsp p11956 tp11957 a(g6 V tp11958 a(g100 Vhigh p11959 tp11960 a(g212 V) tp11961 a(g6 V\u000a p11962 tp11963 a(g212 V( tp11964 a(g138 Vsetq p11965 tp11966 a(g6 V tp11967 a(g100 Vhigh p11968 tp11969 a(g6 V tp11970 a(g212 V( tp11971 a(g84 Vfirst p11972 tp11973 a(g6 V tp11974 a(g100 Vhigh p11975 tp11976 a(g212 V) tp11977 a(g212 V) tp11978 a(g6 V\u000a p11979 tp11980 a(g212 V( tp11981 a(g84 Vwhen p11982 tp11983 a(g6 V tp11984 a(g212 V( tp11985 a(g84 Vnumberp p11986 tp11987 a(g6 V tp11988 a(g100 Vhigh p11989 tp11990 a(g212 V) tp11991 a(g6 V tp11992 a(g212 V( tp11993 a(g84 Vdecf p11994 tp11995 a(g6 V tp11996 a(g100 Vhigh p11997 tp11998 a(g212 V) tp11999 a(g212 V) tp12000 a(g212 V) tp12001 a(g6 V\u000a p12002 tp12003 a(g212 V( tp12004 a(g84 Vwhen p12005 tp12006 a(g6 V tp12007 a(g212 V( tp12008 a(g84 Vand p12009 tp12010 a(g6 V tp12011 a(g212 V( tp12012 a(g84 Vnumberp p12013 tp12014 a(g6 V tp12015 a(g100 Vlow p12016 tp12017 a(g212 V) tp12018 a(g6 V tp12019 a(g212 V( tp12020 a(g84 Vnumberp p12021 tp12022 a(g6 V tp12023 a(g100 Vhigh p12024 tp12025 a(g212 V) tp12026 a(g6 V tp12027 a(g212 V( tp12028 a(g84 Vnot p12029 tp12030 a(g6 V tp12031 a(g212 V( tp12032 a(g84 V<= p12033 tp12034 a(g6 V tp12035 a(g100 Vlow p12036 tp12037 a(g6 V tp12038 a(g100 Vhigh p12039 tp12040 a(g212 V) tp12041 a(g212 V) tp12042 a(g212 V) tp12043 a(g6 V\u000a p12044 tp12045 a(g212 V( tp12046 a(g138 Vsetq p12047 tp12048 a(g6 V tp12049 a(g100 Vlow p12050 tp12051 a(g6 V tp12052 a(g328 V0 tp12053 a(g6 V tp12054 a(g100 Vhigh p12055 tp12056 a(g6 V tp12057 a(g328 V0 tp12058 a(g212 V) tp12059 a(g212 V) tp12060 a(g6 V tp12061 a(g31 V; type equivalent to NIL p12062 tp12063 a(g6 V\u000a p12064 tp12065 a(g212 V( tp12066 a(g100 Vyes p12067 tp12068 a(g212 V) tp12069 a(g212 V) tp12070 a(g212 V) tp12071 a(g6 V\u000a p12072 tp12073 a(g212 V( tp12074 a(g100 VINTERVALS p12075 tp12076 a(g6 V\u000a p12077 tp12078 a(g212 V( tp12079 a(g138 Vif p12080 tp12081 a(g6 V tp12082 a(g212 V( tp12083 a(g84 Veq p12084 tp12085 a(g6 V tp12086 a(g212 V( tp12087 a(g84 Vsecond p12088 tp12089 a(g6 V tp12090 a(g138 Vtype p12091 tp12092 a(g212 V) tp12093 a(g6 V tp12094 a(g258 V'INTEGER p12095 tp12096 a(g212 V) tp12097 a(g6 V\u000a p12098 tp12099 a(g212 V( tp12100 a(g138 Vlet p12101 tp12102 a(g6 V tp12103 a(g212 V( tp12104 a(g212 V( tp12105 a(g100 Vlow p12106 tp12107 a(g6 V tp12108 a(g212 V( tp12109 a(g84 Vthird p12110 tp12111 a(g6 V tp12112 a(g138 Vtype p12113 tp12114 a(g212 V) tp12115 a(g212 V) tp12116 a(g6 V\u000a p12117 tp12118 a(g212 V( tp12119 a(g100 Vhigh p12120 tp12121 a(g6 V tp12122 a(g212 V( tp12123 a(g84 Vcar p12124 tp12125 a(g6 V tp12126 a(g212 V( tp12127 a(g84 Vlast p12128 tp12129 a(g6 V tp12130 a(g138 Vtype p12131 tp12132 a(g212 V) tp12133 a(g212 V) tp12134 a(g212 V) tp12135 a(g212 V) tp12136 a(g6 V\u000a p12137 tp12138 a(g212 V( tp12139 a(g84 Vwhen p12140 tp12141 a(g6 V tp12142 a(g212 V( tp12143 a(g84 Vconsp p12144 tp12145 a(g6 V tp12146 a(g100 Vlow p12147 tp12148 a(g212 V) tp12149 a(g6 V\u000a p12150 tp12151 a(g212 V( tp12152 a(g138 Vsetq p12153 tp12154 a(g6 V tp12155 a(g100 Vlow p12156 tp12157 a(g6 V tp12158 a(g212 V( tp12159 a(g84 Vfirst p12160 tp12161 a(g6 V tp12162 a(g100 Vlow p12163 tp12164 a(g212 V) tp12165 a(g212 V) tp12166 a(g6 V\u000a p12167 tp12168 a(g212 V( tp12169 a(g84 Vwhen p12170 tp12171 a(g6 V tp12172 a(g212 V( tp12173 a(g84 Vnumberp p12174 tp12175 a(g6 V tp12176 a(g100 Vlow p12177 tp12178 a(g212 V) tp12179 a(g6 V tp12180 a(g212 V( tp12181 a(g84 Vincf p12182 tp12183 a(g6 V tp12184 a(g100 Vlow p12185 tp12186 a(g212 V) tp12187 a(g212 V) tp12188 a(g212 V) tp12189 a(g6 V\u000a p12190 tp12191 a(g212 V( tp12192 a(g84 Vwhen p12193 tp12194 a(g6 V tp12195 a(g212 V( tp12196 a(g84 Vconsp p12197 tp12198 a(g6 V tp12199 a(g100 Vhigh p12200 tp12201 a(g212 V) tp12202 a(g6 V\u000a p12203 tp12204 a(g212 V( tp12205 a(g138 Vsetq p12206 tp12207 a(g6 V tp12208 a(g100 Vhigh p12209 tp12210 a(g6 V tp12211 a(g212 V( tp12212 a(g84 Vfirst p12213 tp12214 a(g6 V tp12215 a(g100 Vhigh p12216 tp12217 a(g212 V) tp12218 a(g212 V) tp12219 a(g6 V\u000a p12220 tp12221 a(g212 V( tp12222 a(g84 Vwhen p12223 tp12224 a(g6 V tp12225 a(g212 V( tp12226 a(g84 Vnumberp p12227 tp12228 a(g6 V tp12229 a(g100 Vhigh p12230 tp12231 a(g212 V) tp12232 a(g6 V tp12233 a(g212 V( tp12234 a(g84 Vdecf p12235 tp12236 a(g6 V tp12237 a(g100 Vhigh p12238 tp12239 a(g212 V) tp12240 a(g212 V) tp12241 a(g212 V) tp12242 a(g6 V\u000a p12243 tp12244 a(g212 V( tp12245 a(g100 Vyes p12246 tp12247 a(g212 V) tp12248 a(g212 V) tp12249 a(g6 V\u000a p12250 tp12251 a(g212 V( tp12252 a(g100 Vunknown p12253 tp12254 a(g212 V) tp12255 a(g212 V) tp12256 a(g212 V) tp12257 a(g6 V\u000a p12258 tp12259 a(g212 V( tp12260 a(g100 VMOD p12261 tp12262 a(g6 V tp12263 a(g31 V; (MOD n) p12264 tp12265 a(g6 V\u000a p12266 tp12267 a(g212 V( tp12268 a(g138 Vlet p12269 tp12270 a(g6 V tp12271 a(g212 V( tp12272 a(g212 V( tp12273 a(g100 Vn tp12274 a(g6 V tp12275 a(g212 V( tp12276 a(g84 Vsecond p12277 tp12278 a(g6 V tp12279 a(g138 Vtype p12280 tp12281 a(g212 V) tp12282 a(g212 V) tp12283 a(g212 V) tp12284 a(g6 V\u000a p12285 tp12286 a(g212 V( tp12287 a(g84 Vunless p12288 tp12289 a(g6 V tp12290 a(g212 V( tp12291 a(g84 Vand p12292 tp12293 a(g6 V tp12294 a(g212 V( tp12295 a(g84 Vintegerp p12296 tp12297 a(g6 V tp12298 a(g100 Vn tp12299 a(g212 V) tp12300 a(g6 V tp12301 a(g212 V( tp12302 a(g84 V>= p12303 tp12304 a(g6 V tp12305 a(g100 Vn tp12306 a(g6 V tp12307 a(g328 V0 tp12308 a(g212 V) tp12309 a(g212 V) tp12310 a(g6 V\u000a p12311 tp12312 a(g212 V( tp12313 a(g100 Vtypespec-error p12314 tp12315 a(g6 V tp12316 a(g258 V'subtypep p12317 tp12318 a(g6 V tp12319 a(g138 Vtype p12320 tp12321 a(g212 V) tp12322 a(g212 V) tp12323 a(g6 V\u000a p12324 tp12325 a(g212 V( tp12326 a(g138 Vif p12327 tp12328 a(g6 V tp12329 a(g212 V( tp12330 a(g84 Veql p12331 tp12332 a(g6 V tp12333 a(g100 Vn tp12334 a(g6 V tp12335 a(g328 V0 tp12336 a(g212 V) tp12337 a(g6 V\u000a p12338 tp12339 a(g212 V( tp12340 a(g100 Vno p12341 tp12342 a(g212 V) tp12343 a(g6 V\u000a p12344 tp12345 a(g212 V( tp12346 a(g138 Vlet p12347 tp12348 a(g6 V tp12349 a(g212 V( tp12350 a(g212 V( tp12351 a(g100 Vlow p12352 tp12353 a(g6 V tp12354 a(g328 V0 tp12355 a(g212 V) tp12356 a(g6 V tp12357 a(g212 V( tp12358 a(g100 Vhigh p12359 tp12360 a(g6 V tp12361 a(g212 V( tp12362 a(g84 V1- p12363 tp12364 a(g6 V tp12365 a(g100 Vn tp12366 a(g212 V) tp12367 a(g212 V) tp12368 a(g212 V) tp12369 a(g6 V\u000a p12370 tp12371 a(g212 V( tp12372 a(g100 Vyes p12373 tp12374 a(g212 V) tp12375 a(g212 V) tp12376 a(g212 V) tp12377 a(g212 V) tp12378 a(g212 V) tp12379 a(g6 V\u000a p12380 tp12381 a(g212 V( tp12382 a(g100 VSIGNED-BYTE p12383 tp12384 a(g6 V tp12385 a(g31 V; (SIGNED-BYTE &optional s) p12386 tp12387 a(g6 V\u000a p12388 tp12389 a(g212 V( tp12390 a(g138 Vlet p12391 tp12392 a(g6 V tp12393 a(g212 V( tp12394 a(g212 V( tp12395 a(g100 Vs tp12396 a(g6 V tp12397 a(g212 V( tp12398 a(g138 Vif p12399 tp12400 a(g6 V tp12401 a(g212 V( tp12402 a(g84 Vcdr p12403 tp12404 a(g6 V tp12405 a(g138 Vtype p12406 tp12407 a(g212 V) tp12408 a(g6 V tp12409 a(g212 V( tp12410 a(g84 Vsecond p12411 tp12412 a(g6 V tp12413 a(g138 Vtype p12414 tp12415 a(g212 V) tp12416 a(g6 V tp12417 a(g258 V'* p12418 tp12419 a(g212 V) tp12420 a(g212 V) tp12421 a(g212 V) tp12422 a(g6 V\u000a p12423 tp12424 a(g212 V( tp12425 a(g138 Vif p12426 tp12427 a(g6 V tp12428 a(g212 V( tp12429 a(g84 Veq p12430 tp12431 a(g6 V tp12432 a(g100 Vs tp12433 a(g6 V tp12434 a(g258 V'* p12435 tp12436 a(g212 V) tp12437 a(g6 V\u000a p12438 tp12439 a(g212 V( tp12440 a(g138 Vlet p12441 tp12442 a(g6 V tp12443 a(g212 V( tp12444 a(g212 V( tp12445 a(g100 Vlow p12446 tp12447 a(g6 V tp12448 a(g258 V'* p12449 tp12450 a(g212 V) tp12451 a(g6 V tp12452 a(g212 V( tp12453 a(g100 Vhigh p12454 tp12455 a(g6 V tp12456 a(g258 V'* p12457 tp12458 a(g212 V) tp12459 a(g212 V) tp12460 a(g6 V tp12461 a(g212 V( tp12462 a(g100 Vyes p12463 tp12464 a(g212 V) tp12465 a(g212 V) tp12466 a(g6 V\u000a p12467 tp12468 a(g212 V( tp12469 a(g138 Vprogn p12470 tp12471 a(g6 V\u000a p12472 tp12473 a(g212 V( tp12474 a(g84 Vunless p12475 tp12476 a(g6 V tp12477 a(g212 V( tp12478 a(g84 Vand p12479 tp12480 a(g6 V tp12481 a(g212 V( tp12482 a(g84 Vintegerp p12483 tp12484 a(g6 V tp12485 a(g100 Vs tp12486 a(g212 V) tp12487 a(g6 V tp12488 a(g212 V( tp12489 a(g84 Vplusp p12490 tp12491 a(g6 V tp12492 a(g100 Vs tp12493 a(g212 V) tp12494 a(g212 V) tp12495 a(g6 V\u000a p12496 tp12497 a(g212 V( tp12498 a(g100 Vtypespec-error p12499 tp12500 a(g6 V tp12501 a(g258 V'subtypep p12502 tp12503 a(g6 V tp12504 a(g138 Vtype p12505 tp12506 a(g212 V) tp12507 a(g212 V) tp12508 a(g6 V\u000a p12509 tp12510 a(g212 V( tp12511 a(g138 Vlet p12512 tp12513 a(g6 V tp12514 a(g212 V( tp12515 a(g212 V( tp12516 a(g100 Vn tp12517 a(g6 V tp12518 a(g212 V( tp12519 a(g84 Vash p12520 tp12521 a(g6 V tp12522 a(g328 V1 tp12523 a(g6 V tp12524 a(g212 V( tp12525 a(g84 V1- p12526 tp12527 a(g6 V tp12528 a(g100 Vs tp12529 a(g212 V) tp12530 a(g212 V) tp12531 a(g212 V) tp12532 a(g212 V) tp12533 a(g6 V tp12534 a(g31 V; (ash 1 *) == (expt 2 *) p12535 tp12536 a(g6 V\u000a p12537 tp12538 a(g212 V( tp12539 a(g138 Vlet p12540 tp12541 a(g6 V tp12542 a(g212 V( tp12543 a(g212 V( tp12544 a(g100 Vlow p12545 tp12546 a(g6 V tp12547 a(g212 V( tp12548 a(g84 V- tp12549 a(g6 V tp12550 a(g100 Vn tp12551 a(g212 V) tp12552 a(g212 V) tp12553 a(g6 V tp12554 a(g212 V( tp12555 a(g100 Vhigh p12556 tp12557 a(g6 V tp12558 a(g212 V( tp12559 a(g84 V1- p12560 tp12561 a(g6 V tp12562 a(g100 Vn tp12563 a(g212 V) tp12564 a(g212 V) tp12565 a(g212 V) tp12566 a(g6 V\u000a p12567 tp12568 a(g212 V( tp12569 a(g100 Vyes p12570 tp12571 a(g212 V) tp12572 a(g212 V) tp12573 a(g212 V) tp12574 a(g212 V) tp12575 a(g212 V) tp12576 a(g212 V) tp12577 a(g212 V) tp12578 a(g6 V\u000a p12579 tp12580 a(g212 V( tp12581 a(g100 VUNSIGNED-BYTE p12582 tp12583 a(g6 V tp12584 a(g31 V; (UNSIGNED-BYTE &optional s) p12585 tp12586 a(g6 V\u000a p12587 tp12588 a(g212 V( tp12589 a(g138 Vlet p12590 tp12591 a(g6 V tp12592 a(g212 V( tp12593 a(g212 V( tp12594 a(g100 Vs tp12595 a(g6 V tp12596 a(g212 V( tp12597 a(g138 Vif p12598 tp12599 a(g6 V tp12600 a(g212 V( tp12601 a(g84 Vcdr p12602 tp12603 a(g6 V tp12604 a(g138 Vtype p12605 tp12606 a(g212 V) tp12607 a(g6 V tp12608 a(g212 V( tp12609 a(g84 Vsecond p12610 tp12611 a(g6 V tp12612 a(g138 Vtype p12613 tp12614 a(g212 V) tp12615 a(g6 V tp12616 a(g258 V'* p12617 tp12618 a(g212 V) tp12619 a(g212 V) tp12620 a(g212 V) tp12621 a(g6 V\u000a p12622 tp12623 a(g212 V( tp12624 a(g138 Vif p12625 tp12626 a(g6 V tp12627 a(g212 V( tp12628 a(g84 Veq p12629 tp12630 a(g6 V tp12631 a(g100 Vs tp12632 a(g6 V tp12633 a(g258 V'* p12634 tp12635 a(g212 V) tp12636 a(g6 V\u000a p12637 tp12638 a(g212 V( tp12639 a(g138 Vlet p12640 tp12641 a(g6 V tp12642 a(g212 V( tp12643 a(g212 V( tp12644 a(g100 Vlow p12645 tp12646 a(g6 V tp12647 a(g328 V0 tp12648 a(g212 V) tp12649 a(g6 V tp12650 a(g212 V( tp12651 a(g100 Vhigh p12652 tp12653 a(g6 V tp12654 a(g258 V'* p12655 tp12656 a(g212 V) tp12657 a(g212 V) tp12658 a(g6 V tp12659 a(g212 V( tp12660 a(g100 Vyes p12661 tp12662 a(g212 V) tp12663 a(g212 V) tp12664 a(g6 V\u000a p12665 tp12666 a(g212 V( tp12667 a(g138 Vprogn p12668 tp12669 a(g6 V\u000a p12670 tp12671 a(g212 V( tp12672 a(g84 Vunless p12673 tp12674 a(g6 V tp12675 a(g212 V( tp12676 a(g84 Vand p12677 tp12678 a(g6 V tp12679 a(g212 V( tp12680 a(g84 Vintegerp p12681 tp12682 a(g6 V tp12683 a(g100 Vs tp12684 a(g212 V) tp12685 a(g6 V tp12686 a(g212 V( tp12687 a(g84 V>= p12688 tp12689 a(g6 V tp12690 a(g100 Vs tp12691 a(g6 V tp12692 a(g328 V0 tp12693 a(g212 V) tp12694 a(g212 V) tp12695 a(g6 V\u000a p12696 tp12697 a(g212 V( tp12698 a(g100 Vtypespec-error p12699 tp12700 a(g6 V tp12701 a(g258 V'subtypep p12702 tp12703 a(g6 V tp12704 a(g138 Vtype p12705 tp12706 a(g212 V) tp12707 a(g212 V) tp12708 a(g6 V\u000a p12709 tp12710 a(g212 V( tp12711 a(g138 Vlet p12712 tp12713 a(g6 V tp12714 a(g212 V( tp12715 a(g212 V( tp12716 a(g100 Vn tp12717 a(g6 V tp12718 a(g212 V( tp12719 a(g84 Vash p12720 tp12721 a(g6 V tp12722 a(g328 V1 tp12723 a(g6 V tp12724 a(g100 Vs tp12725 a(g212 V) tp12726 a(g212 V) tp12727 a(g212 V) tp12728 a(g6 V tp12729 a(g31 V; (ash 1 *) == (expt 2 *) p12730 tp12731 a(g6 V\u000a p12732 tp12733 a(g212 V( tp12734 a(g138 Vlet p12735 tp12736 a(g6 V tp12737 a(g212 V( tp12738 a(g212 V( tp12739 a(g100 Vlow p12740 tp12741 a(g6 V tp12742 a(g328 V0 tp12743 a(g212 V) tp12744 a(g6 V tp12745 a(g212 V( tp12746 a(g100 Vhigh p12747 tp12748 a(g6 V tp12749 a(g212 V( tp12750 a(g84 V1- p12751 tp12752 a(g6 V tp12753 a(g100 Vn tp12754 a(g212 V) tp12755 a(g212 V) tp12756 a(g212 V) tp12757 a(g6 V\u000a p12758 tp12759 a(g212 V( tp12760 a(g100 Vyes p12761 tp12762 a(g212 V) tp12763 a(g212 V) tp12764 a(g212 V) tp12765 a(g212 V) tp12766 a(g212 V) tp12767 a(g212 V) tp12768 a(g212 V) tp12769 a(g6 V\u000a p12770 tp12771 a(g212 V( tp12772 a(g60 Vt tp12773 a(g6 V tp12774 a(g212 V( tp12775 a(g100 Vno p12776 tp12777 a(g212 V) tp12778 a(g212 V) tp12779 a(g212 V) tp12780 a(g212 V) tp12781 a(g6 V\u000a p12782 tp12783 a(g212 V( tp12784 a(g212 V( tp12785 a(g100 Vclos::defined-class-p p12786 tp12787 a(g6 V tp12788 a(g138 Vtype p12789 tp12790 a(g212 V) tp12791 a(g6 V\u000a p12792 tp12793 a(g212 V( tp12794 a(g138 Vif p12795 tp12796 a(g6 V tp12797 a(g212 V( tp12798 a(g84 Vand p12799 tp12800 a(g6 V tp12801 a(g212 V( tp12802 a(g100 Vclos::built-in-class-p p12803 tp12804 a(g6 V tp12805 a(g138 Vtype p12806 tp12807 a(g212 V) tp12808 a(g6 V\u000a p12809 tp12810 a(g212 V( tp12811 a(g84 Veq p12812 tp12813 a(g6 V tp12814 a(g212 V( tp12815 a(g84 Vget p12816 tp12817 a(g6 V tp12818 a(g212 V( tp12819 a(g100 Vclos:class-name p12820 tp12821 a(g6 V tp12822 a(g138 Vtype p12823 tp12824 a(g212 V) tp12825 a(g6 V tp12826 a(g258 V'CLOS::CLOSCLASS p12827 tp12828 a(g212 V) tp12829 a(g6 V tp12830 a(g138 Vtype p12831 tp12832 a(g212 V) tp12833 a(g212 V) tp12834 a(g6 V\u000a p12835 tp12836 a(g212 V( tp12837 a(g138 Vreturn-from p12838 tp12839 a(g6 V tp12840 a(g100 Vsubtype-integer p12841 tp12842 a(g6 V\u000a p12843 tp12844 a(g212 V( tp12845 a(g100 Vsubtype-integer p12846 tp12847 a(g6 V tp12848 a(g212 V( tp12849 a(g100 Vclos:class-name p12850 tp12851 a(g6 V tp12852 a(g138 Vtype p12853 tp12854 a(g212 V) tp12855 a(g212 V) tp12856 a(g212 V) tp12857 a(g6 V\u000a p12858 tp12859 a(g212 V( tp12860 a(g100 Vno p12861 tp12862 a(g212 V) tp12863 a(g212 V) tp12864 a(g212 V) tp12865 a(g6 V\u000a p12866 tp12867 a(g212 V( tp12868 a(g212 V( tp12869 a(g100 Vclos::eql-specializer-p p12870 tp12871 a(g6 V tp12872 a(g138 Vtype p12873 tp12874 a(g212 V) tp12875 a(g6 V\u000a p12876 tp12877 a(g212 V( tp12878 a(g138 Vlet p12879 tp12880 a(g6 V tp12881 a(g212 V( tp12882 a(g212 V( tp12883 a(g100 Vx tp12884 a(g6 V tp12885 a(g212 V( tp12886 a(g100 Vclos::eql-specializer-singleton p12887 tp12888 a(g6 V tp12889 a(g138 Vtype p12890 tp12891 a(g212 V) tp12892 a(g212 V) tp12893 a(g212 V) tp12894 a(g6 V\u000a p12895 tp12896 a(g212 V( tp12897 a(g138 Vif p12898 tp12899 a(g6 V tp12900 a(g212 V( tp12901 a(g84 Vtypep p12902 tp12903 a(g6 V tp12904 a(g100 Vx tp12905 a(g6 V tp12906 a(g258 V'INTEGER p12907 tp12908 a(g212 V) tp12909 a(g6 V\u000a p12910 tp12911 a(g212 V( tp12912 a(g138 Vlet p12913 tp12914 a(g6 V tp12915 a(g212 V( tp12916 a(g212 V( tp12917 a(g100 Vlow p12918 tp12919 a(g6 V tp12920 a(g212 V( tp12921 a(g84 Vmin p12922 tp12923 a(g6 V tp12924 a(g328 V0 tp12925 a(g6 V tp12926 a(g100 Vx tp12927 a(g212 V) tp12928 a(g212 V) tp12929 a(g6 V tp12930 a(g212 V( tp12931 a(g100 Vhigh p12932 tp12933 a(g6 V tp12934 a(g212 V( tp12935 a(g84 Vmax p12936 tp12937 a(g6 V tp12938 a(g328 V0 tp12939 a(g6 V tp12940 a(g100 Vx tp12941 a(g212 V) tp12942 a(g212 V) tp12943 a(g212 V) tp12944 a(g6 V tp12945 a(g212 V( tp12946 a(g100 Vyes p12947 tp12948 a(g212 V) tp12949 a(g212 V) tp12950 a(g6 V\u000a p12951 tp12952 a(g212 V( tp12953 a(g100 Vno p12954 tp12955 a(g212 V) tp12956 a(g212 V) tp12957 a(g212 V) tp12958 a(g212 V) tp12959 a(g6 V\u000a p12960 tp12961 a(g212 V( tp12962 a(g212 V( tp12963 a(g100 Vencodingp p12964 tp12965 a(g6 V tp12966 a(g138 Vtype p12967 tp12968 a(g212 V) tp12969 a(g6 V tp12970 a(g212 V( tp12971 a(g100 Vno p12972 tp12973 a(g212 V) tp12974 a(g212 V) tp12975 a(g6 V\u000a p12976 tp12977 a(g212 V( tp12978 a(g60 Vt tp12979 a(g6 V tp12980 a(g212 V( tp12981 a(g100 Vtypespec-error p12982 tp12983 a(g6 V tp12984 a(g258 V'subtypep p12985 tp12986 a(g6 V tp12987 a(g138 Vtype p12988 tp12989 a(g212 V) tp12990 a(g212 V) tp12991 a(g212 V) tp12992 a(g212 V) tp12993 a(g212 V) tp12994 a(g6 V\u000a\u000a p12995 tp12996 a(g35 V#| p12997 tp12998 a(g35 V TODO: Fix subtype-integer such that this works.\u000aHenry Baker:\u000a (defun type-null (x)\u000a (values (and (eq 'bit (upgraded-array-element-type `(or bit ,x)))\u000a (not (typep 0 x))\u000a (not (typep 1 x)))\u000a t))\u000a (type-null '(and symbol number))\u000a (type-null '(and integer symbol))\u000a (type-null '(and integer character))\u000a p12999 tp13000 a(g35 V|# p13001 tp13002 a(g6 V\u000a\u000a p13003 tp13004 a(g31 V;; Determines a sequence kind (an atom, as defined in defseq.lisp: one of p13005 tp13006 a(g6 V\u000a tp13007 a(g31 V;; LIST - stands for LIST p13008 tp13009 a(g6 V\u000a tp13010 a(g31 V;; VECTOR - stands for (VECTOR T) p13011 tp13012 a(g6 V\u000a tp13013 a(g31 V;; STRING - stands for (VECTOR CHARACTER) p13014 tp13015 a(g6 V\u000a tp13016 a(g31 V;; 1, 2, 4, 8, 16, 32 - stands for (VECTOR (UNSIGNED-BYTE n)) p13017 tp13018 a(g6 V\u000a tp13019 a(g31 V;; 0 - stands for (VECTOR NIL)) p13020 tp13021 a(g6 V\u000a tp13022 a(g31 V;; that indicates the sequence type meant by the given type. Other possible p13023 tp13024 a(g6 V\u000a tp13025 a(g31 V;; return values are p13026 tp13027 a(g6 V\u000a tp13028 a(g31 V;; SEQUENCE - denoting a type whose intersection with (OR LIST VECTOR) is not p13029 tp13030 a(g6 V\u000a tp13031 a(g31 V;; subtype of LIST or VECTOR, or p13032 tp13033 a(g6 V\u000a tp13034 a(g31 V;; NIL - indicating a type whose intersection with (OR LIST VECTOR) is empty. p13035 tp13036 a(g6 V\u000a tp13037 a(g31 V;; When the type is (OR (VECTOR eltype1) ... (VECTOR eltypeN)), the chosen p13038 tp13039 a(g6 V\u000a tp13040 a(g31 V;; element type is the smallest element type that contains all of eltype1 ... p13041 tp13042 a(g6 V\u000a tp13043 a(g31 V;; eltypeN. p13044 tp13045 a(g6 V\u000a tp13046 a(g31 V;; p13047 tp13048 a(g6 V\u000a tp13049 a(g31 V;; User-defined sequence types are not supported here. p13050 tp13051 a(g6 V\u000a tp13052 a(g31 V;; p13053 tp13054 a(g6 V\u000a tp13055 a(g31 V;; This implementation inlines the (tail-recursive) canonicalize-type p13056 tp13057 a(g6 V\u000a tp13058 a(g31 V;; function. Its advantage is that it doesn't cons as much. Also it employs p13059 tp13060 a(g6 V\u000a tp13061 a(g31 V;; some heuristics and does not have the full power of SUBTYPEP. p13062 tp13063 a(g6 V\u000a tp13064 a(g212 V( tp13065 a(g84 Vdefun p13066 tp13067 a(g6 V tp13068 a(g100 Vsubtype-sequence p13069 tp13070 a(g6 V tp13071 a(g212 V( tp13072 a(g138 Vtype p13073 tp13074 a(g212 V) tp13075 a(g6 V\u000a p13076 tp13077 a(g212 V( tp13078 a(g138 Vsetq p13079 tp13080 a(g6 V tp13081 a(g138 Vtype p13082 tp13083 a(g6 V tp13084 a(g212 V( tp13085 a(g100 Vexpand-deftype p13086 tp13087 a(g6 V tp13088 a(g138 Vtype p13089 tp13090 a(g212 V) tp13091 a(g212 V) tp13092 a(g6 V\u000a p13093 tp13094 a(g212 V( tp13095 a(g84 Vcond p13096 tp13097 a(g6 V tp13098 a(g212 V( tp13099 a(g212 V( tp13100 a(g84 Vsymbolp p13101 tp13102 a(g6 V tp13103 a(g138 Vtype p13104 tp13105 a(g212 V) tp13106 a(g6 V\u000a p13107 tp13108 a(g212 V( tp13109 a(g84 Vcase p13110 tp13111 a(g6 V tp13112 a(g138 Vtype p13113 tp13114 a(g6 V\u000a p13115 tp13116 a(g212 V( tp13117 a(g212 V( tp13118 a(g100 VLIST p13119 tp13120 a(g6 V tp13121 a(g100 VCONS p13122 tp13123 a(g6 V tp13124 a(g100 VNULL p13125 tp13126 a(g212 V) tp13127 a(g6 V tp13128 a(g258 V'LIST p13129 tp13130 a(g212 V) tp13131 a(g6 V\u000a p13132 tp13133 a(g212 V( tp13134 a(g212 V( tp13135 a(g60 VNIL p13136 tp13137 a(g212 V) tp13138 a(g6 V tp13139 a(g258 V'NIL p13140 tp13141 a(g212 V) tp13142 a(g6 V\u000a p13143 tp13144 a(g212 V( tp13145 a(g212 V( tp13146 a(g100 VBIT-VECTOR p13147 tp13148 a(g6 V tp13149 a(g100 VSIMPLE-BIT-VECTOR p13150 tp13151 a(g212 V) tp13152 a(g6 V tp13153 a(g258 V'1 p13154 tp13155 a(g212 V) tp13156 a(g6 V\u000a p13157 tp13158 a(g212 V( tp13159 a(g212 V( tp13160 a(g100 VSTRING p13161 tp13162 a(g6 V tp13163 a(g100 VSIMPLE-STRING p13164 tp13165 a(g6 V tp13166 a(g100 VBASE-STRING p13167 tp13168 a(g6 V tp13169 a(g100 VSIMPLE-BASE-STRING p13170 tp13171 a(g212 V) tp13172 a(g6 V tp13173 a(g258 V'STRING p13174 tp13175 a(g212 V) tp13176 a(g6 V\u000a p13177 tp13178 a(g212 V( tp13179 a(g212 V( tp13180 a(g100 VVECTOR p13181 tp13182 a(g6 V tp13183 a(g100 VSIMPLE-VECTOR p13184 tp13185 a(g6 V tp13186 a(g100 VARRAY p13187 tp13188 a(g6 V tp13189 a(g100 VSIMPLE-ARRAY p13190 tp13191 a(g212 V) tp13192 a(g6 V tp13193 a(g258 V'VECTOR p13194 tp13195 a(g212 V) tp13196 a(g6 V\u000a p13197 tp13198 a(g212 V( tp13199 a(g212 V( tp13200 a(g100 VSEQUENCE p13201 tp13202 a(g212 V) tp13203 a(g6 V tp13204 a(g258 V'SEQUENCE p13205 tp13206 a(g212 V) tp13207 a(g6 V\u000a p13208 tp13209 a(g212 V( tp13210 a(g60 Vt tp13211 a(g6 V tp13212 a(g258 V'NIL p13213 tp13214 a(g212 V) tp13215 a(g212 V) tp13216 a(g212 V) tp13217 a(g6 V\u000a p13218 tp13219 a(g212 V( tp13220 a(g212 V( tp13221 a(g84 Vand p13222 tp13223 a(g6 V tp13224 a(g212 V( tp13225 a(g84 Vconsp p13226 tp13227 a(g6 V tp13228 a(g138 Vtype p13229 tp13230 a(g212 V) tp13231 a(g6 V tp13232 a(g212 V( tp13233 a(g84 Vsymbolp p13234 tp13235 a(g6 V tp13236 a(g212 V( tp13237 a(g84 Vfirst p13238 tp13239 a(g6 V tp13240 a(g138 Vtype p13241 tp13242 a(g212 V) tp13243 a(g212 V) tp13244 a(g212 V) tp13245 a(g6 V\u000a p13246 tp13247 a(g212 V( tp13248 a(g84 Vunless p13249 tp13250 a(g6 V tp13251 a(g212 V( tp13252 a(g84 Vand p13253 tp13254 a(g6 V tp13255 a(g212 V( tp13256 a(g84 Vlist-length p13257 tp13258 a(g6 V tp13259 a(g138 Vtype p13260 tp13261 a(g212 V) tp13262 a(g6 V tp13263 a(g212 V( tp13264 a(g84 Vnull p13265 tp13266 a(g6 V tp13267 a(g212 V( tp13268 a(g84 Vcdr p13269 tp13270 a(g6 V tp13271 a(g212 V( tp13272 a(g84 Vlast p13273 tp13274 a(g6 V tp13275 a(g138 Vtype p13276 tp13277 a(g212 V) tp13278 a(g212 V) tp13279 a(g212 V) tp13280 a(g212 V) tp13281 a(g6 V\u000a p13282 tp13283 a(g212 V( tp13284 a(g100 Vtypespec-error p13285 tp13286 a(g6 V tp13287 a(g258 V'subtypep p13288 tp13289 a(g6 V tp13290 a(g138 Vtype p13291 tp13292 a(g212 V) tp13293 a(g212 V) tp13294 a(g6 V\u000a p13295 tp13296 a(g212 V( tp13297 a(g84 Vcase p13298 tp13299 a(g6 V tp13300 a(g212 V( tp13301 a(g84 Vfirst p13302 tp13303 a(g6 V tp13304 a(g138 Vtype p13305 tp13306 a(g212 V) tp13307 a(g6 V\u000a p13308 tp13309 a(g212 V( tp13310 a(g100 VMEMBER p13311 tp13312 a(g6 V tp13313 a(g31 V; (MEMBER &rest objects) p13314 tp13315 a(g6 V\u000a p13316 tp13317 a(g212 V( tp13318 a(g138 Vlet p13319 tp13320 a(g6 V tp13321 a(g212 V( tp13322 a(g212 V( tp13323 a(g100 Vkind p13324 tp13325 a(g6 V tp13326 a(g258 V'NIL p13327 tp13328 a(g212 V) tp13329 a(g212 V) tp13330 a(g6 V\u000a p13331 tp13332 a(g212 V( tp13333 a(g84 Vdolist p13334 tp13335 a(g6 V tp13336 a(g212 V( tp13337 a(g100 Vx tp13338 a(g6 V tp13339 a(g212 V( tp13340 a(g84 Vrest p13341 tp13342 a(g6 V tp13343 a(g138 Vtype p13344 tp13345 a(g212 V) tp13346 a(g212 V) tp13347 a(g6 V\u000a p13348 tp13349 a(g212 V( tp13350 a(g138 Vsetq p13351 tp13352 a(g6 V tp13353 a(g100 Vkind p13354 tp13355 a(g6 V tp13356 a(g212 V( tp13357 a(g100 Vsequence-type-union p13358 tp13359 a(g6 V tp13360 a(g100 Vkind p13361 tp13362 a(g6 V tp13363 a(g212 V( tp13364 a(g100 Vtype-of-sequence p13365 tp13366 a(g6 V tp13367 a(g100 Vx tp13368 a(g212 V) tp13369 a(g212 V) tp13370 a(g212 V) tp13371 a(g212 V) tp13372 a(g6 V\u000a p13373 tp13374 a(g100 Vkind p13375 tp13376 a(g212 V) tp13377 a(g212 V) tp13378 a(g6 V\u000a p13379 tp13380 a(g212 V( tp13381 a(g100 VEQL p13382 tp13383 a(g6 V tp13384 a(g31 V; (EQL object) p13385 tp13386 a(g6 V\u000a p13387 tp13388 a(g212 V( tp13389 a(g84 Vunless p13390 tp13391 a(g6 V tp13392 a(g212 V( tp13393 a(g84 Veql p13394 tp13395 a(g6 V tp13396 a(g212 V( tp13397 a(g84 Vlength p13398 tp13399 a(g6 V tp13400 a(g138 Vtype p13401 tp13402 a(g212 V) tp13403 a(g6 V tp13404 a(g328 V2 tp13405 a(g212 V) tp13406 a(g6 V\u000a p13407 tp13408 a(g212 V( tp13409 a(g100 Vtypespec-error p13410 tp13411 a(g6 V tp13412 a(g258 V'subtypep p13413 tp13414 a(g6 V tp13415 a(g138 Vtype p13416 tp13417 a(g212 V) tp13418 a(g212 V) tp13419 a(g6 V\u000a p13420 tp13421 a(g212 V( tp13422 a(g100 Vtype-of-sequence p13423 tp13424 a(g6 V tp13425 a(g212 V( tp13426 a(g84 Vsecond p13427 tp13428 a(g6 V tp13429 a(g138 Vtype p13430 tp13431 a(g212 V) tp13432 a(g212 V) tp13433 a(g212 V) tp13434 a(g6 V\u000a p13435 tp13436 a(g212 V( tp13437 a(g100 VOR p13438 tp13439 a(g6 V tp13440 a(g31 V; (OR type*) p13441 tp13442 a(g6 V\u000a p13443 tp13444 a(g212 V( tp13445 a(g138 Vlet p13446 tp13447 a(g6 V tp13448 a(g212 V( tp13449 a(g212 V( tp13450 a(g100 Vkind p13451 tp13452 a(g6 V tp13453 a(g258 V'NIL p13454 tp13455 a(g212 V) tp13456 a(g212 V) tp13457 a(g6 V\u000a p13458 tp13459 a(g212 V( tp13460 a(g84 Vdolist p13461 tp13462 a(g6 V tp13463 a(g212 V( tp13464 a(g100 Vx tp13465 a(g6 V tp13466 a(g212 V( tp13467 a(g84 Vrest p13468 tp13469 a(g6 V tp13470 a(g138 Vtype p13471 tp13472 a(g212 V) tp13473 a(g212 V) tp13474 a(g6 V\u000a p13475 tp13476 a(g212 V( tp13477 a(g138 Vsetq p13478 tp13479 a(g6 V tp13480 a(g100 Vkind p13481 tp13482 a(g6 V tp13483 a(g212 V( tp13484 a(g100 Vsequence-type-union p13485 tp13486 a(g6 V tp13487 a(g100 Vkind p13488 tp13489 a(g6 V tp13490 a(g212 V( tp13491 a(g100 Vsubtype-sequence p13492 tp13493 a(g6 V tp13494 a(g100 Vx tp13495 a(g212 V) tp13496 a(g212 V) tp13497 a(g212 V) tp13498 a(g212 V) tp13499 a(g6 V\u000a p13500 tp13501 a(g100 Vkind p13502 tp13503 a(g212 V) tp13504 a(g212 V) tp13505 a(g6 V\u000a p13506 tp13507 a(g212 V( tp13508 a(g100 VAND p13509 tp13510 a(g6 V tp13511 a(g31 V; (AND type*) p13512 tp13513 a(g6 V\u000a p13514 tp13515 a(g212 V( tp13516 a(g138 Vlet p13517 tp13518 a(g6 V tp13519 a(g212 V( tp13520 a(g212 V( tp13521 a(g100 Vkind p13522 tp13523 a(g6 V tp13524 a(g258 V'SEQUENCE p13525 tp13526 a(g212 V) tp13527 a(g212 V) tp13528 a(g6 V\u000a p13529 tp13530 a(g212 V( tp13531 a(g84 Vdolist p13532 tp13533 a(g6 V tp13534 a(g212 V( tp13535 a(g100 Vx tp13536 a(g6 V tp13537 a(g212 V( tp13538 a(g84 Vrest p13539 tp13540 a(g6 V tp13541 a(g138 Vtype p13542 tp13543 a(g212 V) tp13544 a(g212 V) tp13545 a(g6 V\u000a p13546 tp13547 a(g212 V( tp13548 a(g138 Vsetq p13549 tp13550 a(g6 V tp13551 a(g100 Vkind p13552 tp13553 a(g6 V tp13554 a(g212 V( tp13555 a(g100 Vsequence-type-intersection p13556 tp13557 a(g6 V tp13558 a(g100 Vkind p13559 tp13560 a(g6 V tp13561 a(g212 V( tp13562 a(g100 Vsubtype-sequence p13563 tp13564 a(g6 V tp13565 a(g100 Vx tp13566 a(g212 V) tp13567 a(g212 V) tp13568 a(g212 V) tp13569 a(g212 V) tp13570 a(g6 V\u000a p13571 tp13572 a(g100 Vkind p13573 tp13574 a(g212 V) tp13575 a(g212 V) tp13576 a(g6 V\u000a p13577 tp13578 a(g212 V( tp13579 a(g212 V( tp13580 a(g100 VSIMPLE-BIT-VECTOR p13581 tp13582 a(g6 V tp13583 a(g100 VBIT-VECTOR p13584 tp13585 a(g212 V) tp13586 a(g6 V tp13587 a(g31 V; (SIMPLE-BIT-VECTOR &optional size) p13588 tp13589 a(g6 V\u000a p13590 tp13591 a(g212 V( tp13592 a(g84 Vwhen p13593 tp13594 a(g6 V tp13595 a(g212 V( tp13596 a(g84 Vcddr p13597 tp13598 a(g6 V tp13599 a(g138 Vtype p13600 tp13601 a(g212 V) tp13602 a(g6 V\u000a p13603 tp13604 a(g212 V( tp13605 a(g100 Vtypespec-error p13606 tp13607 a(g6 V tp13608 a(g258 V'subtypep p13609 tp13610 a(g6 V tp13611 a(g138 Vtype p13612 tp13613 a(g212 V) tp13614 a(g212 V) tp13615 a(g6 V\u000a p13616 tp13617 a(g258 V'1 p13618 tp13619 a(g212 V) tp13620 a(g6 V\u000a p13621 tp13622 a(g212 V( tp13623 a(g212 V( tp13624 a(g100 VSIMPLE-STRING p13625 tp13626 a(g6 V tp13627 a(g100 VSTRING p13628 tp13629 a(g6 V tp13630 a(g100 VSIMPLE-BASE-STRING p13631 tp13632 a(g6 V tp13633 a(g100 VBASE-STRING p13634 tp13635 a(g212 V) tp13636 a(g6 V tp13637 a(g31 V; (SIMPLE-STRING &optional size) p13638 tp13639 a(g6 V\u000a p13640 tp13641 a(g212 V( tp13642 a(g84 Vwhen p13643 tp13644 a(g6 V tp13645 a(g212 V( tp13646 a(g84 Vcddr p13647 tp13648 a(g6 V tp13649 a(g138 Vtype p13650 tp13651 a(g212 V) tp13652 a(g6 V\u000a p13653 tp13654 a(g212 V( tp13655 a(g100 Vtypespec-error p13656 tp13657 a(g6 V tp13658 a(g258 V'subtypep p13659 tp13660 a(g6 V tp13661 a(g138 Vtype p13662 tp13663 a(g212 V) tp13664 a(g212 V) tp13665 a(g6 V\u000a p13666 tp13667 a(g258 V'STRING p13668 tp13669 a(g212 V) tp13670 a(g6 V\u000a p13671 tp13672 a(g212 V( tp13673 a(g100 VSIMPLE-VECTOR p13674 tp13675 a(g6 V tp13676 a(g31 V; (SIMPLE-VECTOR &optional size) p13677 tp13678 a(g6 V\u000a p13679 tp13680 a(g212 V( tp13681 a(g84 Vwhen p13682 tp13683 a(g6 V tp13684 a(g212 V( tp13685 a(g84 Vcddr p13686 tp13687 a(g6 V tp13688 a(g138 Vtype p13689 tp13690 a(g212 V) tp13691 a(g6 V\u000a p13692 tp13693 a(g212 V( tp13694 a(g100 Vtypespec-error p13695 tp13696 a(g6 V tp13697 a(g258 V'subtypep p13698 tp13699 a(g6 V tp13700 a(g138 Vtype p13701 tp13702 a(g212 V) tp13703 a(g212 V) tp13704 a(g6 V\u000a p13705 tp13706 a(g258 V'VECTOR p13707 tp13708 a(g212 V) tp13709 a(g6 V\u000a p13710 tp13711 a(g212 V( tp13712 a(g212 V( tp13713 a(g100 VVECTOR p13714 tp13715 a(g6 V tp13716 a(g100 VARRAY p13717 tp13718 a(g6 V tp13719 a(g100 VSIMPLE-ARRAY p13720 tp13721 a(g212 V) tp13722 a(g6 V tp13723 a(g31 V; (VECTOR &optional el-type size), (ARRAY &optional el-type dimensions) p13724 tp13725 a(g6 V\u000a p13726 tp13727 a(g212 V( tp13728 a(g84 Vwhen p13729 tp13730 a(g6 V tp13731 a(g212 V( tp13732 a(g84 Vcdddr p13733 tp13734 a(g6 V tp13735 a(g138 Vtype p13736 tp13737 a(g212 V) tp13738 a(g6 V\u000a p13739 tp13740 a(g212 V( tp13741 a(g100 Vtypespec-error p13742 tp13743 a(g6 V tp13744 a(g258 V'subtypep p13745 tp13746 a(g6 V tp13747 a(g138 Vtype p13748 tp13749 a(g212 V) tp13750 a(g212 V) tp13751 a(g6 V\u000a p13752 tp13753 a(g212 V( tp13754 a(g138 Vlet p13755 tp13756 a(g6 V tp13757 a(g212 V( tp13758 a(g212 V( tp13759 a(g100 Vel-type p13760 tp13761 a(g6 V tp13762 a(g212 V( tp13763 a(g138 Vif p13764 tp13765 a(g6 V tp13766 a(g212 V( tp13767 a(g84 Vcdr p13768 tp13769 a(g6 V tp13770 a(g138 Vtype p13771 tp13772 a(g212 V) tp13773 a(g6 V tp13774 a(g212 V( tp13775 a(g84 Vsecond p13776 tp13777 a(g6 V tp13778 a(g138 Vtype p13779 tp13780 a(g212 V) tp13781 a(g6 V tp13782 a(g258 V'* p13783 tp13784 a(g212 V) tp13785 a(g212 V) tp13786 a(g212 V) tp13787 a(g6 V\u000a p13788 tp13789 a(g212 V( tp13790 a(g138 Vif p13791 tp13792 a(g6 V tp13793 a(g212 V( tp13794 a(g84 Veq p13795 tp13796 a(g6 V tp13797 a(g100 Vel-type p13798 tp13799 a(g6 V tp13800 a(g258 V'* p13801 tp13802 a(g212 V) tp13803 a(g6 V\u000a p13804 tp13805 a(g258 V'VECTOR p13806 tp13807 a(g6 V\u000a p13808 tp13809 a(g212 V( tp13810 a(g138 Vlet p13811 tp13812 a(g6 V tp13813 a(g212 V( tp13814 a(g212 V( tp13815 a(g100 Veltype p13816 tp13817 a(g6 V tp13818 a(g212 V( tp13819 a(g84 Vupgraded-array-element-type p13820 tp13821 a(g6 V tp13822 a(g100 Vel-type p13823 tp13824 a(g212 V) tp13825 a(g212 V) tp13826 a(g212 V) tp13827 a(g6 V\u000a p13828 tp13829 a(g212 V( tp13830 a(g84 Vcond p13831 tp13832 a(g6 V tp13833 a(g212 V( tp13834 a(g212 V( tp13835 a(g84 Veq p13836 tp13837 a(g6 V tp13838 a(g100 Veltype p13839 tp13840 a(g6 V tp13841 a(g258 V'T p13842 tp13843 a(g212 V) tp13844 a(g6 V tp13845 a(g258 V'VECTOR p13846 tp13847 a(g212 V) tp13848 a(g6 V\u000a p13849 tp13850 a(g212 V( tp13851 a(g212 V( tp13852 a(g84 Veq p13853 tp13854 a(g6 V tp13855 a(g100 Veltype p13856 tp13857 a(g6 V tp13858 a(g258 V'CHARACTER p13859 tp13860 a(g212 V) tp13861 a(g6 V tp13862 a(g258 V'STRING p13863 tp13864 a(g212 V) tp13865 a(g6 V\u000a p13866 tp13867 a(g212 V( tp13868 a(g212 V( tp13869 a(g84 Veq p13870 tp13871 a(g6 V tp13872 a(g100 Veltype p13873 tp13874 a(g6 V tp13875 a(g258 V'BIT p13876 tp13877 a(g212 V) tp13878 a(g6 V tp13879 a(g258 V'1 p13880 tp13881 a(g212 V) tp13882 a(g6 V\u000a p13883 tp13884 a(g212 V( tp13885 a(g212 V( tp13886 a(g84 Vand p13887 tp13888 a(g6 V tp13889 a(g212 V( tp13890 a(g84 Vconsp p13891 tp13892 a(g6 V tp13893 a(g100 Veltype p13894 tp13895 a(g212 V) tp13896 a(g6 V tp13897 a(g212 V( tp13898 a(g84 Veq p13899 tp13900 a(g6 V tp13901 a(g212 V( tp13902 a(g84 Vfirst p13903 tp13904 a(g6 V tp13905 a(g100 Veltype p13906 tp13907 a(g212 V) tp13908 a(g6 V tp13909 a(g258 V'UNSIGNED-BYTE p13910 tp13911 a(g212 V) tp13912 a(g212 V) tp13913 a(g6 V tp13914 a(g212 V( tp13915 a(g84 Vsecond p13916 tp13917 a(g6 V tp13918 a(g100 Veltype p13919 tp13920 a(g212 V) tp13921 a(g212 V) tp13922 a(g6 V\u000a p13923 tp13924 a(g212 V( tp13925 a(g212 V( tp13926 a(g84 Veq p13927 tp13928 a(g6 V tp13929 a(g100 Veltype p13930 tp13931 a(g6 V tp13932 a(g258 V'NIL p13933 tp13934 a(g212 V) tp13935 a(g6 V tp13936 a(g258 V'0 p13937 tp13938 a(g212 V) tp13939 a(g6 V\u000a p13940 tp13941 a(g212 V( tp13942 a(g60 Vt tp13943 a(g6 V tp13944 a(g212 V( tp13945 a(g84 Verror p13946 tp13947 a(g6 V tp13948 a(g212 V( tp13949 a(g100 VTEXT p13950 tp13951 a(g6 V tp13952 a(g236 V"~S is not up-to-date with ~S for element type ~S" p13953 tp13954 a(g212 V) tp13955 a(g6 V\u000a p13956 tp13957 a(g258 V'subtypep-sequence p13958 tp13959 a(g6 V tp13960 a(g258 V'upgraded-array-element-type p13961 tp13962 a(g6 V tp13963 a(g100 Veltype p13964 tp13965 a(g212 V) tp13966 a(g212 V) tp13967 a(g212 V) tp13968 a(g212 V) tp13969 a(g212 V) tp13970 a(g212 V) tp13971 a(g212 V) tp13972 a(g6 V\u000a p13973 tp13974 a(g212 V( tp13975 a(g212 V( tp13976 a(g100 VCONS p13977 tp13978 a(g212 V) tp13979 a(g6 V tp13980 a(g31 V; (CONS &optional cartype cdrtype) p13981 tp13982 a(g6 V\u000a p13983 tp13984 a(g212 V( tp13985 a(g84 Vwhen p13986 tp13987 a(g6 V tp13988 a(g212 V( tp13989 a(g84 Vcdddr p13990 tp13991 a(g6 V tp13992 a(g138 Vtype p13993 tp13994 a(g212 V) tp13995 a(g6 V\u000a p13996 tp13997 a(g212 V( tp13998 a(g100 Vtypespec-error p13999 tp14000 a(g6 V tp14001 a(g258 V'subtypep p14002 tp14003 a(g6 V tp14004 a(g138 Vtype p14005 tp14006 a(g212 V) tp14007 a(g212 V) tp14008 a(g6 V\u000a p14009 tp14010 a(g258 V'LIST p14011 tp14012 a(g212 V) tp14013 a(g6 V\u000a p14014 tp14015 a(g212 V( tp14016 a(g60 Vt tp14017 a(g6 V tp14018 a(g258 V'NIL p14019 tp14020 a(g212 V) tp14021 a(g212 V) tp14022 a(g212 V) tp14023 a(g6 V\u000a p14024 tp14025 a(g212 V( tp14026 a(g212 V( tp14027 a(g100 Vclos::defined-class-p p14028 tp14029 a(g6 V tp14030 a(g138 Vtype p14031 tp14032 a(g212 V) tp14033 a(g6 V\u000a p14034 tp14035 a(g212 V( tp14036 a(g138 Vif p14037 tp14038 a(g6 V tp14039 a(g212 V( tp14040 a(g84 Vand p14041 tp14042 a(g6 V tp14043 a(g212 V( tp14044 a(g100 Vclos::built-in-class-p p14045 tp14046 a(g6 V tp14047 a(g138 Vtype p14048 tp14049 a(g212 V) tp14050 a(g6 V\u000a p14051 tp14052 a(g212 V( tp14053 a(g84 Veq p14054 tp14055 a(g6 V tp14056 a(g212 V( tp14057 a(g84 Vget p14058 tp14059 a(g6 V tp14060 a(g212 V( tp14061 a(g100 Vclos:class-name p14062 tp14063 a(g6 V tp14064 a(g138 Vtype p14065 tp14066 a(g212 V) tp14067 a(g6 V tp14068 a(g258 V'CLOS::CLOSCLASS p14069 tp14070 a(g212 V) tp14071 a(g6 V tp14072 a(g138 Vtype p14073 tp14074 a(g212 V) tp14075 a(g212 V) tp14076 a(g6 V\u000a p14077 tp14078 a(g212 V( tp14079 a(g100 Vsubtype-sequence p14080 tp14081 a(g6 V tp14082 a(g212 V( tp14083 a(g100 Vclos:class-name p14084 tp14085 a(g6 V tp14086 a(g138 Vtype p14087 tp14088 a(g212 V) tp14089 a(g212 V) tp14090 a(g6 V\u000a p14091 tp14092 a(g258 V'NIL p14093 tp14094 a(g212 V) tp14095 a(g212 V) tp14096 a(g6 V\u000a p14097 tp14098 a(g212 V( tp14099 a(g212 V( tp14100 a(g100 Vclos::eql-specializer-p p14101 tp14102 a(g6 V tp14103 a(g138 Vtype p14104 tp14105 a(g212 V) tp14106 a(g6 V\u000a p14107 tp14108 a(g212 V( tp14109 a(g100 Vtype-of-sequence p14110 tp14111 a(g6 V tp14112 a(g212 V( tp14113 a(g100 Vclos::eql-specializer-singleton p14114 tp14115 a(g6 V tp14116 a(g138 Vtype p14117 tp14118 a(g212 V) tp14119 a(g212 V) tp14120 a(g212 V) tp14121 a(g6 V\u000a p14122 tp14123 a(g212 V( tp14124 a(g60 Vt tp14125 a(g6 V tp14126 a(g258 V'NIL p14127 tp14128 a(g212 V) tp14129 a(g212 V) tp14130 a(g212 V) tp14131 a(g6 V\u000a tp14132 a(g212 V( tp14133 a(g84 Vdefun p14134 tp14135 a(g6 V tp14136 a(g100 Vtype-of-sequence p14137 tp14138 a(g6 V tp14139 a(g212 V( tp14140 a(g100 Vx tp14141 a(g212 V) tp14142 a(g6 V\u000a p14143 tp14144 a(g212 V( tp14145 a(g84 Vcond p14146 tp14147 a(g6 V tp14148 a(g212 V( tp14149 a(g212 V( tp14150 a(g84 Vlistp p14151 tp14152 a(g6 V tp14153 a(g100 Vx tp14154 a(g212 V) tp14155 a(g6 V tp14156 a(g258 V'LIST p14157 tp14158 a(g212 V) tp14159 a(g6 V\u000a p14160 tp14161 a(g212 V( tp14162 a(g212 V( tp14163 a(g84 Vvectorp p14164 tp14165 a(g6 V tp14166 a(g100 Vx tp14167 a(g212 V) tp14168 a(g6 V\u000a p14169 tp14170 a(g212 V( tp14171 a(g138 Vlet p14172 tp14173 a(g6 V tp14174 a(g212 V( tp14175 a(g212 V( tp14176 a(g100 Veltype p14177 tp14178 a(g6 V tp14179 a(g212 V( tp14180 a(g84 Varray-element-type p14181 tp14182 a(g6 V tp14183 a(g100 Vx tp14184 a(g212 V) tp14185 a(g212 V) tp14186 a(g212 V) tp14187 a(g6 V\u000a p14188 tp14189 a(g212 V( tp14190 a(g84 Vcond p14191 tp14192 a(g6 V tp14193 a(g212 V( tp14194 a(g212 V( tp14195 a(g84 Veq p14196 tp14197 a(g6 V tp14198 a(g100 Veltype p14199 tp14200 a(g6 V tp14201 a(g258 V'T p14202 tp14203 a(g212 V) tp14204 a(g6 V tp14205 a(g258 V'VECTOR p14206 tp14207 a(g212 V) tp14208 a(g6 V\u000a p14209 tp14210 a(g212 V( tp14211 a(g212 V( tp14212 a(g84 Veq p14213 tp14214 a(g6 V tp14215 a(g100 Veltype p14216 tp14217 a(g6 V tp14218 a(g258 V'CHARACTER p14219 tp14220 a(g212 V) tp14221 a(g6 V tp14222 a(g258 V'STRING p14223 tp14224 a(g212 V) tp14225 a(g6 V\u000a p14226 tp14227 a(g212 V( tp14228 a(g212 V( tp14229 a(g84 Veq p14230 tp14231 a(g6 V tp14232 a(g100 Veltype p14233 tp14234 a(g6 V tp14235 a(g258 V'BIT p14236 tp14237 a(g212 V) tp14238 a(g6 V tp14239 a(g258 V'1 p14240 tp14241 a(g212 V) tp14242 a(g6 V\u000a p14243 tp14244 a(g212 V( tp14245 a(g212 V( tp14246 a(g84 Vand p14247 tp14248 a(g6 V tp14249 a(g212 V( tp14250 a(g84 Vconsp p14251 tp14252 a(g6 V tp14253 a(g100 Veltype p14254 tp14255 a(g212 V) tp14256 a(g6 V tp14257 a(g212 V( tp14258 a(g84 Veq p14259 tp14260 a(g6 V tp14261 a(g212 V( tp14262 a(g84 Vfirst p14263 tp14264 a(g6 V tp14265 a(g100 Veltype p14266 tp14267 a(g212 V) tp14268 a(g6 V tp14269 a(g258 V'UNSIGNED-BYTE p14270 tp14271 a(g212 V) tp14272 a(g212 V) tp14273 a(g6 V tp14274 a(g212 V( tp14275 a(g84 Vsecond p14276 tp14277 a(g6 V tp14278 a(g100 Veltype p14279 tp14280 a(g212 V) tp14281 a(g212 V) tp14282 a(g6 V\u000a p14283 tp14284 a(g212 V( tp14285 a(g212 V( tp14286 a(g84 Veq p14287 tp14288 a(g6 V tp14289 a(g100 Veltype p14290 tp14291 a(g6 V tp14292 a(g258 V'NIL p14293 tp14294 a(g212 V) tp14295 a(g6 V tp14296 a(g258 V'0 p14297 tp14298 a(g212 V) tp14299 a(g6 V\u000a p14300 tp14301 a(g212 V( tp14302 a(g60 Vt tp14303 a(g6 V tp14304 a(g212 V( tp14305 a(g84 Verror p14306 tp14307 a(g6 V tp14308 a(g212 V( tp14309 a(g100 VTEXT p14310 tp14311 a(g6 V tp14312 a(g236 V"~S is not up-to-date with ~S for element type ~S" p14313 tp14314 a(g212 V) tp14315 a(g6 V\u000a p14316 tp14317 a(g258 V'type-of-sequence p14318 tp14319 a(g6 V tp14320 a(g258 V'array-element-type p14321 tp14322 a(g6 V tp14323 a(g100 Veltype p14324 tp14325 a(g212 V) tp14326 a(g212 V) tp14327 a(g212 V) tp14328 a(g212 V) tp14329 a(g212 V) tp14330 a(g6 V\u000a p14331 tp14332 a(g212 V( tp14333 a(g60 Vt tp14334 a(g6 V tp14335 a(g258 V'NIL p14336 tp14337 a(g212 V) tp14338 a(g212 V) tp14339 a(g212 V) tp14340 a(g6 V\u000a tp14341 a(g212 V( tp14342 a(g84 Vdefun p14343 tp14344 a(g6 V tp14345 a(g100 Vsequence-type-union p14346 tp14347 a(g6 V tp14348 a(g212 V( tp14349 a(g100 Vt1 p14350 tp14351 a(g6 V tp14352 a(g100 Vt2 p14353 tp14354 a(g212 V) tp14355 a(g6 V\u000a p14356 tp14357 a(g212 V( tp14358 a(g84 Vcond p14359 tp14360 a(g6 V tp14361 a(g31 V; Simple general rules. p14362 tp14363 a(g6 V\u000a p14364 tp14365 a(g212 V( tp14366 a(g212 V( tp14367 a(g84 Veql p14368 tp14369 a(g6 V tp14370 a(g100 Vt1 p14371 tp14372 a(g6 V tp14373 a(g100 Vt2 p14374 tp14375 a(g212 V) tp14376 a(g6 V tp14377 a(g100 Vt1 p14378 tp14379 a(g212 V) tp14380 a(g6 V\u000a p14381 tp14382 a(g212 V( tp14383 a(g212 V( tp14384 a(g84 Veq p14385 tp14386 a(g6 V tp14387 a(g100 Vt1 p14388 tp14389 a(g6 V tp14390 a(g258 V'NIL p14391 tp14392 a(g212 V) tp14393 a(g6 V tp14394 a(g100 Vt2 p14395 tp14396 a(g212 V) tp14397 a(g6 V\u000a p14398 tp14399 a(g212 V( tp14400 a(g212 V( tp14401 a(g84 Veq p14402 tp14403 a(g6 V tp14404 a(g100 Vt2 p14405 tp14406 a(g6 V tp14407 a(g258 V'NIL p14408 tp14409 a(g212 V) tp14410 a(g6 V tp14411 a(g100 Vt1 p14412 tp14413 a(g212 V) tp14414 a(g6 V\u000a p14415 tp14416 a(g31 V; Now the union of two different types. p14417 tp14418 a(g6 V\u000a p14419 tp14420 a(g212 V( tp14421 a(g212 V( tp14422 a(g84 Vor p14423 tp14424 a(g6 V tp14425 a(g212 V( tp14426 a(g84 Veq p14427 tp14428 a(g6 V tp14429 a(g100 Vt1 p14430 tp14431 a(g6 V tp14432 a(g258 V'SEQUENCE p14433 tp14434 a(g212 V) tp14435 a(g6 V tp14436 a(g212 V( tp14437 a(g84 Veq p14438 tp14439 a(g6 V tp14440 a(g100 Vt2 p14441 tp14442 a(g6 V tp14443 a(g258 V'SEQUENCE p14444 tp14445 a(g212 V) tp14446 a(g212 V) tp14447 a(g6 V tp14448 a(g258 V'SEQUENCE p14449 tp14450 a(g212 V) tp14451 a(g6 V\u000a p14452 tp14453 a(g212 V( tp14454 a(g212 V( tp14455 a(g84 Vor p14456 tp14457 a(g6 V tp14458 a(g212 V( tp14459 a(g84 Veq p14460 tp14461 a(g6 V tp14462 a(g100 Vt1 p14463 tp14464 a(g6 V tp14465 a(g258 V'LIST p14466 tp14467 a(g212 V) tp14468 a(g6 V tp14469 a(g212 V( tp14470 a(g84 Veq p14471 tp14472 a(g6 V tp14473 a(g100 Vt2 p14474 tp14475 a(g6 V tp14476 a(g258 V'LIST p14477 tp14478 a(g212 V) tp14479 a(g212 V) tp14480 a(g6 V\u000a p14481 tp14482 a(g31 V; union of LIST and a vector type p14483 tp14484 a(g6 V\u000a p14485 tp14486 a(g258 V'SEQUENCE p14487 tp14488 a(g212 V) tp14489 a(g6 V\u000a p14490 tp14491 a(g212 V( tp14492 a(g212 V( tp14493 a(g84 Vor p14494 tp14495 a(g6 V tp14496 a(g212 V( tp14497 a(g84 Veq p14498 tp14499 a(g6 V tp14500 a(g100 Vt1 p14501 tp14502 a(g6 V tp14503 a(g258 V'VECTOR p14504 tp14505 a(g212 V) tp14506 a(g6 V tp14507 a(g212 V( tp14508 a(g84 Veq p14509 tp14510 a(g6 V tp14511 a(g100 Vt2 p14512 tp14513 a(g6 V tp14514 a(g258 V'VECTOR p14515 tp14516 a(g212 V) tp14517 a(g212 V) tp14518 a(g6 V tp14519 a(g258 V'VECTOR p14520 tp14521 a(g212 V) tp14522 a(g6 V\u000a p14523 tp14524 a(g212 V( tp14525 a(g212 V( tp14526 a(g84 Veql p14527 tp14528 a(g6 V tp14529 a(g100 Vt1 p14530 tp14531 a(g6 V tp14532 a(g328 V0 tp14533 a(g212 V) tp14534 a(g6 V tp14535 a(g100 Vt2 p14536 tp14537 a(g212 V) tp14538 a(g6 V\u000a p14539 tp14540 a(g212 V( tp14541 a(g212 V( tp14542 a(g84 Veql p14543 tp14544 a(g6 V tp14545 a(g100 Vt2 p14546 tp14547 a(g6 V tp14548 a(g328 V0 tp14549 a(g212 V) tp14550 a(g6 V tp14551 a(g100 Vt1 p14552 tp14553 a(g212 V) tp14554 a(g6 V\u000a p14555 tp14556 a(g212 V( tp14557 a(g212 V( tp14558 a(g84 Vor p14559 tp14560 a(g6 V tp14561 a(g212 V( tp14562 a(g84 Veq p14563 tp14564 a(g6 V tp14565 a(g100 Vt1 p14566 tp14567 a(g6 V tp14568 a(g258 V'STRING p14569 tp14570 a(g212 V) tp14571 a(g6 V tp14572 a(g212 V( tp14573 a(g84 Veq p14574 tp14575 a(g6 V tp14576 a(g100 Vt2 p14577 tp14578 a(g6 V tp14579 a(g258 V'STRING p14580 tp14581 a(g212 V) tp14582 a(g212 V) tp14583 a(g6 V\u000a p14584 tp14585 a(g31 V; union of STRING and an integer-vector type p14586 tp14587 a(g6 V\u000a p14588 tp14589 a(g258 V'VECTOR p14590 tp14591 a(g212 V) tp14592 a(g6 V\u000a p14593 tp14594 a(g212 V( tp14595 a(g60 Vt tp14596 a(g6 V tp14597 a(g212 V( tp14598 a(g84 Vmax p14599 tp14600 a(g6 V tp14601 a(g100 Vt1 p14602 tp14603 a(g6 V tp14604 a(g100 Vt2 p14605 tp14606 a(g212 V) tp14607 a(g212 V) tp14608 a(g212 V) tp14609 a(g212 V) tp14610 a(g6 V\u000a tp14611 a(g212 V( tp14612 a(g84 Vdefun p14613 tp14614 a(g6 V tp14615 a(g100 Vsequence-type-intersection p14616 tp14617 a(g6 V tp14618 a(g212 V( tp14619 a(g100 Vt1 p14620 tp14621 a(g6 V tp14622 a(g100 Vt2 p14623 tp14624 a(g212 V) tp14625 a(g6 V\u000a p14626 tp14627 a(g212 V( tp14628 a(g84 Vcond p14629 tp14630 a(g6 V tp14631 a(g31 V; Simple general rules. p14632 tp14633 a(g6 V\u000a p14634 tp14635 a(g212 V( tp14636 a(g212 V( tp14637 a(g84 Veql p14638 tp14639 a(g6 V tp14640 a(g100 Vt1 p14641 tp14642 a(g6 V tp14643 a(g100 Vt2 p14644 tp14645 a(g212 V) tp14646 a(g6 V tp14647 a(g100 Vt1 p14648 tp14649 a(g212 V) tp14650 a(g6 V\u000a p14651 tp14652 a(g212 V( tp14653 a(g212 V( tp14654 a(g84 Vor p14655 tp14656 a(g6 V tp14657 a(g212 V( tp14658 a(g84 Veq p14659 tp14660 a(g6 V tp14661 a(g100 Vt1 p14662 tp14663 a(g6 V tp14664 a(g258 V'NIL p14665 tp14666 a(g212 V) tp14667 a(g6 V tp14668 a(g212 V( tp14669 a(g84 Veq p14670 tp14671 a(g6 V tp14672 a(g100 Vt2 p14673 tp14674 a(g6 V tp14675 a(g258 V'NIL p14676 tp14677 a(g212 V) tp14678 a(g212 V) tp14679 a(g6 V tp14680 a(g258 V'NIL p14681 tp14682 a(g212 V) tp14683 a(g6 V\u000a p14684 tp14685 a(g31 V; Now the intersection of two different types. p14686 tp14687 a(g6 V\u000a p14688 tp14689 a(g212 V( tp14690 a(g212 V( tp14691 a(g84 Veq p14692 tp14693 a(g6 V tp14694 a(g100 Vt1 p14695 tp14696 a(g6 V tp14697 a(g258 V'SEQUENCE p14698 tp14699 a(g212 V) tp14700 a(g6 V tp14701 a(g100 Vt2 p14702 tp14703 a(g212 V) tp14704 a(g6 V\u000a p14705 tp14706 a(g212 V( tp14707 a(g212 V( tp14708 a(g84 Veq p14709 tp14710 a(g6 V tp14711 a(g100 Vt2 p14712 tp14713 a(g6 V tp14714 a(g258 V'SEQUENCE p14715 tp14716 a(g212 V) tp14717 a(g6 V tp14718 a(g100 Vt1 p14719 tp14720 a(g212 V) tp14721 a(g6 V\u000a p14722 tp14723 a(g212 V( tp14724 a(g212 V( tp14725 a(g84 Vor p14726 tp14727 a(g6 V tp14728 a(g212 V( tp14729 a(g84 Veq p14730 tp14731 a(g6 V tp14732 a(g100 Vt1 p14733 tp14734 a(g6 V tp14735 a(g258 V'LIST p14736 tp14737 a(g212 V) tp14738 a(g6 V tp14739 a(g212 V( tp14740 a(g84 Veq p14741 tp14742 a(g6 V tp14743 a(g100 Vt2 p14744 tp14745 a(g6 V tp14746 a(g258 V'LIST p14747 tp14748 a(g212 V) tp14749 a(g212 V) tp14750 a(g6 V\u000a p14751 tp14752 a(g31 V; intersection of LIST and a vector type p14753 tp14754 a(g6 V\u000a p14755 tp14756 a(g258 V'NIL p14757 tp14758 a(g212 V) tp14759 a(g6 V\u000a p14760 tp14761 a(g212 V( tp14762 a(g212 V( tp14763 a(g84 Veq p14764 tp14765 a(g6 V tp14766 a(g100 Vt1 p14767 tp14768 a(g6 V tp14769 a(g258 V'VECTOR p14770 tp14771 a(g212 V) tp14772 a(g6 V tp14773 a(g100 Vt2 p14774 tp14775 a(g212 V) tp14776 a(g6 V\u000a p14777 tp14778 a(g212 V( tp14779 a(g212 V( tp14780 a(g84 Veq p14781 tp14782 a(g6 V tp14783 a(g100 Vt2 p14784 tp14785 a(g6 V tp14786 a(g258 V'VECTOR p14787 tp14788 a(g212 V) tp14789 a(g6 V tp14790 a(g100 Vt1 p14791 tp14792 a(g212 V) tp14793 a(g6 V\u000a p14794 tp14795 a(g212 V( tp14796 a(g212 V( tp14797 a(g84 Vor p14798 tp14799 a(g6 V tp14800 a(g212 V( tp14801 a(g84 Veql p14802 tp14803 a(g6 V tp14804 a(g100 Vt1 p14805 tp14806 a(g6 V tp14807 a(g328 V0 tp14808 a(g212 V) tp14809 a(g6 V tp14810 a(g212 V( tp14811 a(g84 Veql p14812 tp14813 a(g6 V tp14814 a(g100 Vt2 p14815 tp14816 a(g6 V tp14817 a(g328 V0 tp14818 a(g212 V) tp14819 a(g212 V) tp14820 a(g6 V tp14821 a(g258 V'0 p14822 tp14823 a(g212 V) tp14824 a(g6 V\u000a p14825 tp14826 a(g212 V( tp14827 a(g212 V( tp14828 a(g84 Vor p14829 tp14830 a(g6 V tp14831 a(g212 V( tp14832 a(g84 Veq p14833 tp14834 a(g6 V tp14835 a(g100 Vt1 p14836 tp14837 a(g6 V tp14838 a(g258 V'STRING p14839 tp14840 a(g212 V) tp14841 a(g6 V tp14842 a(g212 V( tp14843 a(g84 Veq p14844 tp14845 a(g6 V tp14846 a(g100 Vt2 p14847 tp14848 a(g6 V tp14849 a(g258 V'STRING p14850 tp14851 a(g212 V) tp14852 a(g212 V) tp14853 a(g6 V\u000a p14854 tp14855 a(g31 V; intersection of STRING and an integer-vector type p14856 tp14857 a(g6 V\u000a p14858 tp14859 a(g258 V'0 p14860 tp14861 a(g212 V) tp14862 a(g6 V\u000a p14863 tp14864 a(g212 V( tp14865 a(g60 Vt tp14866 a(g6 V tp14867 a(g212 V( tp14868 a(g84 Vmin p14869 tp14870 a(g6 V tp14871 a(g100 Vt1 p14872 tp14873 a(g6 V tp14874 a(g100 Vt2 p14875 tp14876 a(g212 V) tp14877 a(g212 V) tp14878 a(g212 V) tp14879 a(g212 V) tp14880 a(g6 V\u000a\u000a p14881 tp14882 a(g31 V;; ============================================================================ p14883 tp14884 a(g6 V\u000a\u000a p14885 tp14886 a(g212 V( tp14887 a(g84 Vdefun p14888 tp14889 a(g6 V tp14890 a(g100 Vtype-expand p14891 tp14892 a(g6 V tp14893 a(g212 V( tp14894 a(g100 Vtypespec p14895 tp14896 a(g6 V tp14897 a(g138 V&optional p14898 tp14899 a(g6 V tp14900 a(g100 Vonce-p p14901 tp14902 a(g212 V) tp14903 a(g6 V\u000a p14904 tp14905 a(g212 V( tp14906 a(g84 Vmultiple-value-bind p14907 tp14908 a(g6 V tp14909 a(g212 V( tp14910 a(g100 Vexpanded p14911 tp14912 a(g6 V tp14913 a(g100 Vuser-defined-p p14914 tp14915 a(g212 V) tp14916 a(g6 V\u000a p14917 tp14918 a(g212 V( tp14919 a(g100 Vexpand-deftype p14920 tp14921 a(g6 V tp14922 a(g100 Vtypespec p14923 tp14924 a(g6 V tp14925 a(g100 Vonce-p p14926 tp14927 a(g212 V) tp14928 a(g6 V\u000a p14929 tp14930 a(g212 V( tp14931 a(g138 Vif p14932 tp14933 a(g6 V tp14934 a(g100 Vuser-defined-p p14935 tp14936 a(g6 V tp14937 a(g212 V( tp14938 a(g84 Vvalues p14939 tp14940 a(g6 V tp14941 a(g100 Vexpanded p14942 tp14943 a(g6 V tp14944 a(g100 Vuser-defined-p p14945 tp14946 a(g212 V) tp14947 a(g6 V\u000a p14948 tp14949 a(g212 V( tp14950 a(g84 Vcond p14951 tp14952 a(g6 V tp14953 a(g212 V( tp14954 a(g212 V( tp14955 a(g84 Vsymbolp p14956 tp14957 a(g6 V tp14958 a(g100 Vtypespec p14959 tp14960 a(g212 V) tp14961 a(g6 V\u000a p14962 tp14963 a(g212 V( tp14964 a(g84 Vcond p14965 tp14966 a(g6 V tp14967 a(g212 V( tp14968 a(g212 V( tp14969 a(g84 Vor p14970 tp14971 a(g6 V tp14972 a(g212 V( tp14973 a(g84 Vget p14974 tp14975 a(g6 V tp14976 a(g100 Vtypespec p14977 tp14978 a(g6 V tp14979 a(g258 V'TYPE-SYMBOL p14980 tp14981 a(g212 V) tp14982 a(g6 V tp14983 a(g212 V( tp14984 a(g84 Vget p14985 tp14986 a(g6 V tp14987 a(g100 Vtypespec p14988 tp14989 a(g6 V tp14990 a(g258 V'TYPE-LIST p14991 tp14992 a(g212 V) tp14993 a(g212 V) tp14994 a(g6 V\u000a p14995 tp14996 a(g212 V( tp14997 a(g84 Vvalues p14998 tp14999 a(g6 V tp15000 a(g100 Vtypespec p15001 tp15002 a(g6 V tp15003 a(g60 Vnil p15004 tp15005 a(g212 V) tp15006 a(g212 V) tp15007 a(g6 V\u000a p15008 tp15009 a(g212 V( tp15010 a(g212 V( tp15011 a(g84 Vor p15012 tp15013 a(g6 V tp15014 a(g212 V( tp15015 a(g84 Vget p15016 tp15017 a(g6 V tp15018 a(g100 Vtypespec p15019 tp15020 a(g6 V tp15021 a(g258 V'DEFSTRUCT-DESCRIPTION p15022 tp15023 a(g212 V) tp15024 a(g6 V\u000a p15025 tp15026 a(g212 V( tp15027 a(g100 Vclos-class p15028 tp15029 a(g6 V tp15030 a(g100 Vtypespec p15031 tp15032 a(g212 V) tp15033 a(g212 V) tp15034 a(g6 V\u000a p15035 tp15036 a(g212 V( tp15037 a(g84 Vvalues p15038 tp15039 a(g6 V tp15040 a(g100 Vtypespec p15041 tp15042 a(g6 V tp15043 a(g60 Vnil p15044 tp15045 a(g212 V) tp15046 a(g212 V) tp15047 a(g6 V\u000a p15048 tp15049 a(g212 V( tp15050 a(g60 Vt tp15051 a(g6 V tp15052 a(g212 V( tp15053 a(g100 Vtypespec-error p15054 tp15055 a(g6 V tp15056 a(g258 V'type-expand p15057 tp15058 a(g6 V tp15059 a(g100 Vtypespec p15060 tp15061 a(g212 V) tp15062 a(g212 V) tp15063 a(g212 V) tp15064 a(g212 V) tp15065 a(g6 V\u000a p15066 tp15067 a(g212 V( tp15068 a(g212 V( tp15069 a(g84 Vand p15070 tp15071 a(g6 V tp15072 a(g212 V( tp15073 a(g84 Vconsp p15074 tp15075 a(g6 V tp15076 a(g100 Vtypespec p15077 tp15078 a(g212 V) tp15079 a(g6 V tp15080 a(g212 V( tp15081 a(g84 Vsymbolp p15082 tp15083 a(g6 V tp15084 a(g212 V( tp15085 a(g84 Vfirst p15086 tp15087 a(g6 V tp15088 a(g100 Vtypespec p15089 tp15090 a(g212 V) tp15091 a(g212 V) tp15092 a(g212 V) tp15093 a(g6 V\u000a p15094 tp15095 a(g212 V( tp15096 a(g84 Vcase p15097 tp15098 a(g6 V tp15099 a(g212 V( tp15100 a(g84 Vfirst p15101 tp15102 a(g6 V tp15103 a(g100 Vtypespec p15104 tp15105 a(g212 V) tp15106 a(g6 V\u000a p15107 tp15108 a(g212 V( tp15109 a(g212 V( tp15110 a(g100 VSATISFIES p15111 tp15112 a(g6 V tp15113 a(g100 VMEMBER p15114 tp15115 a(g6 V tp15116 a(g100 VEQL p15117 tp15118 a(g6 V tp15119 a(g100 VNOT p15120 tp15121 a(g6 V tp15122 a(g100 VAND p15123 tp15124 a(g6 V tp15125 a(g100 VOR p15126 tp15127 a(g212 V) tp15128 a(g6 V tp15129 a(g212 V( tp15130 a(g84 Vvalues p15131 tp15132 a(g6 V tp15133 a(g100 Vtypespec p15134 tp15135 a(g6 V tp15136 a(g60 Vnil p15137 tp15138 a(g212 V) tp15139 a(g212 V) tp15140 a(g6 V\u000a p15141 tp15142 a(g212 V( tp15143 a(g60 Vt tp15144 a(g6 V tp15145 a(g212 V( tp15146 a(g84 Vcond p15147 tp15148 a(g6 V tp15149 a(g212 V( tp15150 a(g212 V( tp15151 a(g84 Vget p15152 tp15153 a(g6 V tp15154 a(g212 V( tp15155 a(g84 Vfirst p15156 tp15157 a(g6 V tp15158 a(g100 Vtypespec p15159 tp15160 a(g212 V) tp15161 a(g6 V tp15162 a(g258 V'TYPE-LIST p15163 tp15164 a(g212 V) tp15165 a(g6 V\u000a p15166 tp15167 a(g212 V( tp15168 a(g84 Vvalues p15169 tp15170 a(g6 V tp15171 a(g100 Vtypespec p15172 tp15173 a(g6 V tp15174 a(g60 Vnil p15175 tp15176 a(g212 V) tp15177 a(g212 V) tp15178 a(g6 V\u000a p15179 tp15180 a(g212 V( tp15181 a(g60 Vt tp15182 a(g6 V tp15183 a(g212 V( tp15184 a(g100 Vtypespec-error p15185 tp15186 a(g6 V tp15187 a(g258 V'type-expand p15188 tp15189 a(g6 V tp15190 a(g100 Vtypespec p15191 tp15192 a(g212 V) tp15193 a(g212 V) tp15194 a(g212 V) tp15195 a(g212 V) tp15196 a(g212 V) tp15197 a(g212 V) tp15198 a(g6 V\u000a p15199 tp15200 a(g212 V( tp15201 a(g212 V( tp15202 a(g100 Vclos::defined-class-p p15203 tp15204 a(g6 V tp15205 a(g100 Vtypespec p15206 tp15207 a(g212 V) tp15208 a(g6 V tp15209 a(g212 V( tp15210 a(g84 Vvalues p15211 tp15212 a(g6 V tp15213 a(g100 Vtypespec p15214 tp15215 a(g6 V tp15216 a(g60 Vnil p15217 tp15218 a(g212 V) tp15219 a(g212 V) tp15220 a(g6 V\u000a p15221 tp15222 a(g212 V( tp15223 a(g60 Vt tp15224 a(g6 V tp15225 a(g212 V( tp15226 a(g100 Vtypespec-error p15227 tp15228 a(g6 V tp15229 a(g258 V'type-expand p15230 tp15231 a(g6 V tp15232 a(g100 Vtypespec p15233 tp15234 a(g212 V) tp15235 a(g212 V) tp15236 a(g212 V) tp15237 a(g212 V) tp15238 a(g212 V) tp15239 a(g212 V) tp15240 a(g6 V\u000a\u000a p15241 tp15242 a(g31 V;; ============================================================================ p15243 tp15244 a(g6 V\u000a\u000a p15245 tp15246 a(g212 V( tp15247 a(g84 Vunless p15248 tp15249 a(g6 V tp15250 a(g212 V( tp15251 a(g100 Vclos::funcallable-instance-p p15252 tp15253 a(g6 V tp15254 a(g48 V#' p15255 tp15256 a(g100 Vclos::class-name p15257 tp15258 a(g212 V) tp15259 a(g6 V\u000a p15260 tp15261 a(g212 V( tp15262 a(g84 Vfmakunbound p15263 tp15264 a(g6 V tp15265 a(g258 V'clos::class-name p15266 tp15267 a(g212 V) tp15268 a(g212 V) tp15269 a(g6 V\u000a tp15270 a.