hưs8€p€,€ì€LAMBDAF€€2€D€p€,€l�FASD-DATA€D€¬€jim€¬€Love†€µ¦àF€~F€9D€p€,�COMPILER,‚NEW-DESTINATIONSp€ì€GLOBALl€T€p€B€ ¬€SITEl‚Gigamos Cambridge€p€B€ ,�PACKAGE€ì�LISP-INTERNALSp€B€ l�READTABLE€¬‚standard Common-Lisp1€D€C�IN-PACKAGED€ÀQUOTE€B€51€D€ƒ�DEFCONSTANT€‚CHAR-CODE-LIMIT€F€ì…Character code values must be less than this.€1€D€B€?‚CHAR-FONT-LIMIT€F€,†Font codes in characters must be less than this.1€D€B€?‚CHAR-BITS-LIMIT€F€¬ŒAll the special bits in a character must be less than this.�They are Control, Meta, Super and Hyper.1€D€B€?C�%%CH-CHAR€D€ƒ€BYTEF€€¬ƒPosition of character value€1€D€B€?C�%%CH-BITS€D€B€PF€F€ì‚Position of bits value1€D€B€?C�%%CH-FONT€D€B€PF€F€ ì‚Position of font value1€D€B€?C‚%%CH-FONT-AND-BITSD€B€PF€F€,„Position of font and bits value€1€D€B€?�%%CH-FATD€B€PF€€,…Position of all the stuff in a character1€D€B€?‚CHAR-CONTROL-BITF€¬‡This bit within the bits of a character, is the Control bit.1€D€B€?Ã�CHAR-META-BIT€F€l‡This bit, within the bits of a character, is the Meta bit.1€D€B€?Ã�CHAR-SUPER-BITF€¬‡This bit, within the bits of a character, is the Super bit.€1€D€B€?Ã�CHAR-HYPER-BITF€¬‡This bit, within the bits of a character, is the Hyper bit.€1€D€B€?C�CHAR-INT-0F€01€D€B€?C�CHAR-INT-9F€91€D€B€?‚CHAR-INT-LOWER-AF€a1€D€B€?‚CHAR-INT-LOWER-ZF€z1€D€B€?‚CHAR-INT-UPPER-AF€A1€D€B€?‚CHAR-INT-UPPER-ZF€Z1€D€pÀl€NC,‚DEF-DECLARATION€C�CHAR-CODE€Ã€SUBST€D€B€;D€pÀB€Ÿ¬�NAMED-LAMBDAB€¢D€C€C€D€Â%TRAP-IF-NOT-CHARACTERB€¦D€pÀ,�HARDWARE¬€LDB€B€¦B€O€1€D€B€¡C�CHAR-BITS€B€£D€B€;D€B€¥B€³D€B€¦D€B€¨B€¦D€B€¬B€¦B€W€1€D€B€¡C�CHAR-FONT€B€£D€B€;D€B€¥B€¼D€B€¦D€B€¨B€¦D€B€¬B€¦B€^€1€D€B€¡�CHAR-INTB€£D€B€;D€B€¥B€ÅD€B€¦D€B€¨B€¦D€pÀB€ªl�DPB-BOXED€B€¦B€l€1€D€B€¡�INT-CHARB€£D€B€;D€B€¥B€ÐD€C€I€D€B€ÉB€ÑB€lp€,‚GLOBAL-REGISTERS,‚*DTP-CHARACTER*€1€D€B€¡ƒ�UPPER-CASE-PB€£D€B€;D€B€¥B€ÛD€B€¦¬…Return T if c is an upper case character A-ZD€ÀCHAR<=e€AB€¦e€Z1€D€B€¡ƒ�LOWER-CASE-PB€£D€B€;D€B€¥B€æD€B€¦¬…Return t if c is a lower case character a-z€D€B€Þe€aB€¦e€z1€D€�DEFMACROÃDEFINE-N-ARG-COMPARE-FUNCTION€D€�FUNCTIOND€pÀl€SIl�XR-BQ-LISTD€B€;ÀDEFUN€B€òD€B€;D€À&REST€ƒ€ARGSD€B€öD€B€;ƒ€CONDD€B€;D€D€ƒ€NULLB€úB€-D€B€;D€D€B€ÿD€ƒ€CDR€B€úB€-D€B€öB€-D€B€öD€B€;C€DOD€B€;D€D€B€úB€úD€B€B€úD€B€;D€D€B€ÿD€B€B€úB€-D€pÀB€ô¬�XR-BQ-LIST*€D€B€;ÀUNLESSD€B€B€òD€B€;D€D€ÀFIRST€B€úD€ÀSECONDB€úD€B€;D€D€ÀRETURNƒ€NIL€1€D€B€ðƒ„DEFINE-CHAR-????-PREDICATE-FUNCTIONSD€C�N-ARG-NAMEC�2-ARG-NAMEC�3-ARG-NAMEC�PRIMITIVE€D€B€öD€B€;ÀPROGN€D€B€öD€B€;B€÷B€+D€B€;D€ÀCHAR1€Ã€CHAR2€D€B€B€-D€B€;D€D€ƒ�CHAR-UPCASE€B€2D€B€6B€3D€B€öD€B€;B€÷B€,D€B€;D€B€2B€3ÀCHAR3€D€B€öD€B€;ƒ€LET€D€B€;D€D€C€C2D€B€6B€3D€B€öD€B€;ƒ€AND€D€B€B€-D€B€;D€D€B€6B€2B€CD€B€B€-D€B€;D€B€CD€B€6B€>D€B€öD€B€;B€÷B€*D€B€;D€C�FIRST-CHARB€ùÀCHARS€D€B€öD€B€;C€IFD€B€;D€B€ÿB€WB€-D€B€öD€B€;ƒ€DO*€D€B€;D€D€ƒ€CHARD€B€6B€VC�NEXT-CHAR€D€B€WB€WD€B€B€WD€B€bD€B€6D€ƒ€CAR€B€WD€B€6D€B€fB€WD€B€öD€B€;D€B€ÿD€B€B€WD€B€B€-D€B€;D€B€`B€bD€B€D€B€;B€D€B€B€-D€B€;D€B€`B€bD€B€;D€D€B€B€€€