hưs8p,LAMBDAF2Dp,lFASD-DATADsmhOrson WelleslF~FDp,COMPILER,NEW-DESTINATIONSpGLOBALlTpB SITElGigamos CambridgepB ,PACKAGELISP-INTERNALSpB lREADTABLEstandard Common-Lisp1DCIN-PACKAGEDÀQUOTEB51DDEFCONSTANTCHAR-CODE-LIMITFCharacter code values must be less than this.1DB?CHAR-FONT-LIMITF,Font codes in characters must be less than this.1DB?CHAR-BITS-LIMITFAll the special bits in a character must be less than this.They are Control, Meta, Super and Hyper.1DB?C%%CH-CHARDBYTEFPosition of character value1DB?C%%CH-BITSDBPFFPosition of bits value1DB?C%%CH-FONTDBPFF Position of font value1DB?C%%CH-FONT-AND-BITSDBPFF,Position of font and bits value1DB?%%CH-FATDBPF,Position of all the stuff in a character1DB?CHAR-CONTROL-BITFThis bit within the bits of a character, is the Control bit.1DB?ÁCHAR-META-BITFlThis bit, within the bits of a character, is the Meta bit.1DB?ÁCHAR-SUPER-BITFThis bit, within the bits of a character, is the Super bit.1DB?ÁCHAR-HYPER-BITFThis bit, within the bits of a character, is the Hyper bit.1DB?CCHAR-INT-0F01DB?CCHAR-INT-9F91DB?CHAR-INT-LOWER-AFa1DB?CHAR-INT-LOWER-ZFz1DB?CHAR-INT-UPPER-AFA1DB?CHAR-INT-UPPER-ZFZ1DplNC,DEF-DECLARATIONCCHAR-CODEÀSUBSTDB;DpBNAMED-LAMBDABDCCDÂ%TRAP-IF-NOT-CHARACTERBDp,HARDWARELDBBBO1DBCCHAR-BITSBDB;DBBDBDBBDBBBW1DBCCHAR-FONTBDB;DBBDBDBBDBBB^1DBCHAR-INTBDB;DBBDBDBBDpBlDPB-BOXEDBBl1DBINT-CHARBDB;DBBDCIDBBBlp,GLOBAL-REGISTERS,*DTP-CHARACTER*1DBUPPER-CASE-PBDB;DBBDBReturn T if c is an upper case character A-ZDÀCHAR<=eABeZ1DBLOWER-CASE-PBDB;DBBDBReturn t if c is a lower case character a-zDBeaBez1DDEFMACROÃDEFINE-N-ARG-COMPARE-FUNCTIONDFUNCTIONDplSIlXR-BQ-LISTDB;ÀDEFUNBDB;DÀ&RESTARGSDBDB;CONDDB;DDNULLBB-DB;DDBDCDRBB-DBB-DBDB;CDODB;DDBBDBBDB;DDBDBBB-DpBXR-BQ-LIST*DB;ÀUNLESSDBBDB;DDÀFIRSTBDÀSECONDBDB;DDÀRETURNNIL1DBDEFINE-CHAR-????-PREDICATE-FUNCTIONSDCN-ARG-NAMEC2-ARG-NAMEC3-ARG-NAMECPRIMITIVEDBDB;ÀPROGNDBDB;BB+DB;DÀCHAR1ÀCHAR2DBB-DB;DDCHAR-UPCASEB2DB6B3DBDB;BB,DB;DB2B3ÀCHAR3DBDB;LETDB;DDCC2DB6B3DBDB;ANDDBB-DB;DDB6B2BCDBB-DB;DBCDB6B>DBDB;BB*DB;DCFIRST-CHARBÀCHARSDBDB;CIFDB;DBBWB-DBDB;DO*DB;DDCHARDB6BVCNEXT-CHARDBWBWDBBWDBbDB6DCARBWDB6DBfBWDBDB;DBDBBWDBB-DB;DB`BbDBDB;BDBB-DB;DB`BbDB;DDBB