(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "29-Oct-93 09:51:35" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLCHARACTER.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 10:35:22" "{Pele:mv:envos}Sources>CLTL2>CMLCHARACTER.;2" 39407 previous date%: "24-Mar-92 14:42:50" "{Pele:mv:envos}Sources>CLTL2>CMLCHARACTER.;1") (RPAQQ CMLCHARACTERCOMS ((COMS (* ; "Interlisp CHARCODE; Some is here, the rest is in LLREAD.") (FNS CHARCODE CHARCODE.UNDECODE) (PROP MACRO SELCHARQ ALPHACHARP DIGITCHARP UCASECODE) (OPTIMIZERS CHARCODE ) (ALISTS (DWIMEQUIVLST SELCHARQ) (PRETTYEQUIVLST SELCHARQ))) (COMS (* ; "Common Lisp CHARACTER type") (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS CHARACTER)) (VARIABLES \CHARHI) (VARIABLES CL:CHAR-BITS-LIMIT CL:CHAR-CODE-LIMIT CL:CHAR-CONTROL-BIT CL:CHAR-FONT-LIMIT CL:CHAR-HYPER-BIT CL:CHAR-META-BIT CL:CHAR-SUPER-BIT)) (COMS (* ; "Basic character fns") (FNS CL:CHAR-CODE CL:CHAR-INT CL:INT-CHAR) ( FUNCTIONS CL:CODE-CHAR) (OPTIMIZERS CL:CHAR-CODE CL:CHAR-INT CL:CODE-CHAR CL:INT-CHAR)) (COMS (* ; "I/O; Some is here, the rest is in LLREAD.") (FNS CHARACTER.PRINT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (SETTOPVAL (\TYPEGLOBALVARIABLE (QUOTE CHARACTER) T) (NTYPX (CL:CODE-CHAR 0 0 0))) (DEFPRINT (QUOTE CHARACTER) (QUOTE CHARACTER.PRINT))))) (COMS (* ;; "Common lisp character functions") (FNS CL:CHAR-BIT CL:CHAR-BITS CL:CHAR-DOWNCASE CL:CHAR-FONT CL:CHAR-NAME CL:CHAR-UPCASE CL:CHARACTER CL:NAME-CHAR CL:SET-CHAR-BIT) (FUNCTIONS CL:DIGIT-CHAR CL:MAKE-CHAR CL::BASE-CHARACTER-P CL::EXTENDED-CHARACTER-P) (OPTIMIZERS CL:CHAR-UPCASE CL:CHAR-DOWNCASE CL:MAKE-CHAR)) (COMS (* ;; "Predicates") (FNS CL:ALPHA-CHAR-P CL:ALPHANUMERICP CL:BOTH-CASE-P CL:CHARACTERP CL:GRAPHIC-CHAR-P CL:LOWER-CASE-P CL:STANDARD-CHAR-P CL:STRING-CHAR-P CL:UPPER-CASE-P) (FNS CL:CHAR-EQUAL CL:CHAR-GREATERP CL:CHAR-LESSP CL:CHAR-NOT-EQUAL CL:CHAR-NOT-GREATERP CL:CHAR-NOT-LESSP CL:CHAR/= CL:CHAR< CL:CHAR<= CL:CHAR= CL:CHAR> CL:CHAR>=) (FUNCTIONS CL:DIGIT-CHAR-P) (OPTIMIZERS CL:CHAR-EQUAL CL:CHAR-GREATERP CL:CHAR-LESSP CL:CHAR-NOT-EQUAL CL:CHAR-NOT-GREATERP CL:CHAR-NOT-LESSP CL:CHAR/= CL:CHAR< CL:CHAR<= CL:CHAR= CL:CHAR> CL:CHAR>= CL:CHARACTERP CL:LOWER-CASE-P CL:STRING-CHAR-P CL:UPPER-CASE-P)) (COMS (* ;; "Internals") ( FUNCTIONS %%CHAR-DOWNCASE-CODE %%CHAR-UPCASE-CODE %%CODE-CHAR)) (COMS (* ;; "Compiler options") (PROP FILETYPE CMLCHARACTER) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:CHAR>= CL:CHAR> CL:CHAR= CL:CHAR<= CL:CHAR< CL:CHAR/= CL:CHAR-NOT-LESSP CL:CHAR-NOT-GREATERP CL:CHAR-NOT-EQUAL CL:CHAR-LESSP CL:CHAR-GREATERP CL:CHAR-EQUAL))))) CHARCODE :D8 (L (0 CHAR)) @ (5 CHARCODE.DECODE) NIL () CHARCODE.UNDECODE :D8 (L (0 CODE)) )@HÒlð´Hlÿålÿðhð´lHÑ d” (38 MKSTRING 31 CL:CHAR-NAME) NIL () (PUTPROPS SELCHARQ MACRO (F (CONS (QUOTE SELECTQ) (CONS (CAR F) (MAPLIST (CDR F) (FUNCTION (LAMBDA (I) (COND ((CDR I) (CONS (CHARCODE.DECODE (CAAR I)) (CDAR I))) (T (CAR I)))))))))) (PUTPROPS ALPHACHARP MACRO ((CHAR) ((LAMBDA (UCHAR) (DECLARE (LOCALVARS UCHAR)) (AND (IGEQ UCHAR ( CHARCODE A)) (ILEQ UCHAR (CHARCODE Z)))) (LOGAND CHAR 95)))) (PUTPROPS DIGITCHARP MACRO (LAMBDA (CHAR) (AND (IGEQ CHAR (CHARCODE 0)) (ILEQ CHAR (CHARCODE 9))))) (PUTPROPS UCASECODE MACRO (OPENLAMBDA (CHAR) (COND ((AND (IGEQ CHAR (CHARCODE a)) (ILEQ CHAR (CHARCODE z))) (LOGAND CHAR 95)) (T CHAR)))) optimize-CHARCODE :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@i Hd²dið¬3µgHh(8 CHARCODE.DECODE) (28 QUOTE) () (PUTPROP (QUOTE CHARCODE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-CHARCODE) (GET ( QUOTE CHARCODE) (QUOTE COMPILER:OPTIMIZER-LIST)))) (ADDTOVAR DWIMEQUIVLST (SELCHARQ . SELECTQ)) (ADDTOVAR PRETTYEQUIVLST (SELCHARQ . SELECTQ)) (XCL::SET-CONSTANTP (QUOTE \CHARHI) NIL) (SETQ \CHARHI 7) (CL:PROCLAIM (QUOTE (SI::CONSTANT \CHARHI))) (XCL::SET-CONSTANTP (QUOTE CL:CHAR-BITS-LIMIT) NIL) (SETQ CL:CHAR-BITS-LIMIT 1) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-BITS-LIMIT))) (XCL::SET-CONSTANTP (QUOTE CL:CHAR-CODE-LIMIT) NIL) (SETQ CL:CHAR-CODE-LIMIT 65536) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-CODE-LIMIT))) (XCL::SET-CONSTANTP (QUOTE CL:CHAR-CONTROL-BIT) NIL) (SETQ CL:CHAR-CONTROL-BIT 0) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-CONTROL-BIT))) (XCL::SET-CONSTANTP (QUOTE CL:CHAR-FONT-LIMIT) NIL) (SETQ CL:CHAR-FONT-LIMIT 1) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-FONT-LIMIT))) (XCL::SET-CONSTANTP (QUOTE CL:CHAR-HYPER-BIT) NIL) (SETQ CL:CHAR-HYPER-BIT 0) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-HYPER-BIT))) (XCL::SET-CONSTANTP (QUOTE CL:CHAR-META-BIT) NIL) (SETQ CL:CHAR-META-BIT 0) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-META-BIT))) (XCL::SET-CONSTANTP (QUOTE CL:CHAR-SUPER-BIT) NIL) (SETQ CL:CHAR-SUPER-BIT 0) (CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-SUPER-BIT))) CL:CHAR-CODE :D8 (L (0 CHAR)) @ÓNIL (5 CHARACTER) () CL:CHAR-INT :D8 (L (0 CHAR)) @ÓNIL (5 CHARACTER) () CL:INT-CHAR :D8 (L (0 INTEGER)) @HÒlð´Hlÿålÿðhð´lHÑNIL NIL () CL:CODE-CHAR :D8 (L (0 -args-)) @eka!lHñ‘j‚laºlHñ‘j‚la»Jjð´Kjð´IÒlð´Ilÿålÿð¤lIÑhNIL NIL () CL::optimize-CHAR-CODE :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 5@H ´H YÃ’IÓggHoh(19 CL:EVAL 11 CL:CONSTANTP) (39 \DTEST 34 \LOLOC 25 CHARACTER) ( 45 ((QUOTE CHARACTER))) (PUTPROP (QUOTE CL:CHAR-CODE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR-CODE ) (GET (QUOTE CL:CHAR-CODE) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR-INT :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHhNIL (10 CL:CHAR-CODE) () (PUTPROP (QUOTE CL:CHAR-INT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR-INT) (GET (QUOTE CL:CHAR-INT) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CODE-CHAR :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) g@QH¹HZµj»J–Jƒ°÷j¼Kjð²BLjð²=I ´I ]ÒlðžMlÿålÿð¤lMÑhggIhhog(50 CL:EVAL 42 CL:CONSTANTP) (100 COMPILER:PASS 81 %%CODE 76 LET) ( 92 ((AND (EQ (\HILOC %%CODE) 14) (NOT (EQ (LDB (BYTE 8 0) %%CODE) 255)) (%%CODE-CHAR %%CODE)))) (PUTPROP (QUOTE CL:CODE-CHAR) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CODE-CHAR ) (GET (QUOTE CL:CODE-CHAR) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-INT-CHAR :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHhNIL (10 CL:CODE-CHAR) () (PUTPROP (QUOTE CL:INT-CHAR) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-INT-CHAR) (GET (QUOTE CL:INT-CHAR) (QUOTE COMPILER:OPTIMIZER-LIST)))) CHARACTER.PRINT :D8 (L (1 STREAM 0 CHAR) F 9 \THISFILELINELENGTH F 10 *PRINT-ESCAPE* F 11 *READTABLE*) W¢±@ W²lHµhkÔAÈØWñ–A ¿AWÊ¼[É(ºKLlJ¿AÉ(½Al\lM¿Hµ*A@Ó_¿_É(¾OOlN°. Y°•AjI°íA@ÓHÉ(ºHIlJi(141 WRITE-STRING* 130 CL:LENGTH 44 FRESHLINE 11 CL:CHAR-NAME) (160 STREAM 150 CHARACTER 111 STREAM 100 CHARACTER 79 STREAM 63 STREAM 53 READTABLEP 31 STREAM) () (SETTOPVAL (\TYPEGLOBALVARIABLE (QUOTE CHARACTER) T) (NTYPX (CL:CODE-CHAR 0 0 0))) (DEFPRINT (QUOTE CHARACTER) (QUOTE CHARACTER.PRINT)) CL:CHAR-BIT :D8 (L (1 NAME 0 CHAR)) oA (10 CL:ERROR) NIL ( 4 "Bit ~A not supported") CL:CHAR-BITS :D8 (L (0 CHAR)) @Ã´jNIL (5 CHARACTER) () CL:CHAR-DOWNCASE :D8 (L (0 CHAR)) l@ÓlAHó©HdlZó¤l Ô€HÑNIL (7 CHARACTER) () CL:CHAR-FONT :D8 (L (0 CHAR)) @Ã´jNIL (5 CHARACTER) () CL:CHAR-NAME :D8 (L (0 CHAR)) ¤@doð•od ‘hÓA`Zµ=hµhHãYHlÿåXIjð² #\? #\@ #\A #\B #\C #\D #\E #\F #\G #\H #\I #\J #\K #\L #\M #\N #\O #\P #\Q #\R #\S #\T #\U #\V #\W #\X #\Y #\Z #\[ #\\ #\] #\^ #\_ #\` #\a #\b #\c #\d #\e #\f #\g #\h #\i #\j #\k #\l #\m #\n #\o #\p #\q #\r #\s #\t #\u #\v #\w #\x #\y #\z #\{ #\| #\} #\~ #\Space #\Newline)) CL:STRING-CHAR-P :D8 (L (0 CHAR)) @NIL (5 CHARACTER) () CL:UPPER-CASE-P :D8 (L (0 CHAR)) @ÓlAHóhð´HlZóhðNIL (5 CHARACTER) () CL:CHAR-EQUAL :D8 (L (0 N)) eekHóšo ¿lkaÓlaIó©Idlzó¤l Õ€IÑlJHó‘iIlJaÓ»laKó©Kdlzó¤l Õ€KÑð¡hJkÔZ°Ö(17 CL:ERROR) (70 CHARACTER 27 CHARACTER) ( 12 "CHAR-EQUAL takes at least one arg") CL:CHAR-GREATERP :D8 (L (0 N)) cekHóšo ¿kaÓlaIó©Idlzó¤l Õ€Il"JdHó‘iaÓ¼laLó©Ldlzó¤l Õ€L»IKó¡hK¹JkÔZ°Õ(17 CL:ERROR) (64 CHARACTER 25 CHARACTER) ( 12 "CHAR-LESSP takes at least one arg") CL:CHAR-LESSP :D8 (L (0 N)) aekHóšo ¿kaÓlaIó©Idlzó¤l Õ€IlJdHó‘iaÓ»laKó©Kdlzó¤l Õ€KdIó¡h¹JkÔZ°×(17 CL:ERROR) (64 CHARACTER 25 CHARACTER) ( 12 "CHAR-LESSP takes at least one arg") CL:CHAR-NOT-EQUAL :D8 (L (0 N)) qekHóšo ¿kAIHó‘ilIaÓ»laKó©Kdlzó¤l Õ€KÑºIkÔ]Hó’h°"JlMaÓ¼laLó©Ldlzó¤l Õ€LÑð“i”hM°ÓIkÔY°ª(17 CL:ERROR) (77 CHARACTER 37 CHARACTER) ( 12 "CHAR-NOT-EQUAL takes at least one arg") CL:CHAR-NOT-GREATERP :D8 (L (0 N)) cekHóšo ¿kaÓlaIó©Idlzó¤l Õ€Il"JdHó‘iaÓ¼laLó©Ldlzó¤l Õ€L»IKó‘hK¹JkÔZ°Õ(17 CL:ERROR) (64 CHARACTER 25 CHARACTER) ( 12 "CHAR-LESSP takes at least one arg") CL:CHAR-NOT-LESSP :D8 (L (0 N)) aekHóšo ¿kaÓlaIó©Idlzó¤l Õ€IlJdHó‘iaÓ»laKó©Kdlzó¤l Õ€KdIó‘h¹JkÔZ°×(17 CL:ERROR) (64 CHARACTER 25 CHARACTER) ( 12 "CHAR-LESSP takes at least one arg") CL:CHAR/= :D8 (L (0 N)) HekHóšo ¿k!IdHó‘iaÓºIkÔ[Hó‘h‹JKaÓð“i”hK°èIkÔY°Ó(17 CL:ERROR) (54 CHARACTER 35 CHARACTER) ( 12 "CHAR/= takes at least one arg") CL:CHAR< :D8 (L (0 N)) <ekHóšo ¿kaÓlJdHó‘iaÓdIó¡h¹JkÔZ°è(17 CL:ERROR) (44 CHARACTER 25 CHARACTER) ( 12 "CHAR< takes at least one arg") CL:CHAR<= :D8 (L (0 N)) >ekHóšo ¿kaÓlJdHó‘iaÓ»IKó‘hK¹JkÔZ°æ(17 CL:ERROR) (44 CHARACTER 25 CHARACTER) ( 12 "CHAR< takes at least one arg") CL:CHAR= :D8 (L (0 N)) :ekHóšo ¿kaÓlJHó‘iIJaÓð¡hJkÔZ°ê(17 CL:ERROR) (45 CHARACTER 25 CHARACTER) ( 12 "CHAR= takes at least one arg") CL:CHAR> :D8 (L (0 N)) >ekHóšo ¿kaÓlJdHó‘iaÓ»IKó¡hK¹JkÔZ°æ(17 CL:ERROR) (44 CHARACTER 25 CHARACTER) ( 12 "CHAR< takes at least one arg") CL:CHAR>= :D8 (L (0 N)) <ekHóšo ¿kaÓlJdHó‘iaÓdIó‘h¹JkÔZ°è(17 CL:ERROR) (44 CHARACTER 25 CHARACTER) ( 12 "CHAR< takes at least one arg") CL:DIGIT-CHAR-P :D8 (L (0 -args-)) ^eka1lHñ’l ‚laºIÓ»l0KóªKl9ó¥Kl0Õ°(lAKóKlZó¨l KlAÕÔ°laKó¬Klzó§l KlaÕÔ€h\´JLó´LNIL (26 CHARACTER) () (SET-DOCUMENTATION (QUOTE CL:DIGIT-CHAR-P) (QUOTE CL:FUNCTION) "Returns the weigh of CHAR in radix RADIX, or NIL if CHAR is not a digit char in that radix.") CL::optimize-CHAR-EQUAL :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) H@!H¹HZ kð²/gggIhhggJhhhg(15 CL:LENGTH) (69 COMPILER:PASS 51 CL:CHAR-CODE 46 %%CHAR-UPCASE-CODE 34 CL:CHAR-CODE 29 %%CHAR-UPCASE-CODE 24 EQ) () (PUTPROP (QUOTE CL:CHAR-EQUAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR-EQUAL ) (GET (QUOTE CL:CHAR-EQUAL) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR-GREATERP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) Q@qH¹HºgggIhhJ^µM_¿ggOhh»M”LK&¼„Kh\½N°ÔNIL (54 CL:CHAR-CODE 49 %%CHAR-UPCASE-CODE 25 CL:CHAR-CODE 20 %%CHAR-UPCASE-CODE 15 >) () (PUTPROP (QUOTE CL:CHAR-GREATERP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR-GREATERP) (GET (QUOTE CL:CHAR-GREATERP) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR-LESSP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) Q@qH¹HºgggIhhJ^µM_¿ggOhh»M”LK&¼„Kh\½N°ÔNIL (54 CL:CHAR-CODE 49 %%CHAR-UPCASE-CODE 25 CL:CHAR-CODE 20 %%CHAR-UPCASE-CODE 15 <) () (PUTPROP (QUOTE CL:CHAR-LESSP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR-LESSP ) (GET (QUOTE CL:CHAR-LESSP) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR-NOT-EQUAL :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) P@!H¹HZ kð²7ggggIhhggJhhhhg(15 CL:LENGTH) (77 COMPILER:PASS 56 CL:CHAR-CODE 51 %%CHAR-UPCASE-CODE 39 CL:CHAR-CODE 34 %%CHAR-UPCASE-CODE 29 EQ 24 NOT) () (PUTPROP (QUOTE CL:CHAR-NOT-EQUAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR-NOT-EQUAL) (GET (QUOTE CL:CHAR-NOT-EQUAL) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR-NOT-GREATERP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) Q@qH¹HºgggIhhJ^µM_¿ggOhh»M”LK&¼„Kh\½N°ÔNIL (54 CL:CHAR-CODE 49 %%CHAR-UPCASE-CODE 25 CL:CHAR-CODE 20 %%CHAR-UPCASE-CODE 15 <=) () (PUTPROP (QUOTE CL:CHAR-NOT-GREATERP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR-NOT-GREATERP) (GET (QUOTE CL:CHAR-NOT-GREATERP) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR-NOT-LESSP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) Q@qH¹HºgggIhhJ^µM_¿ggOhh»M”LK&¼„Kh\½N°ÔNIL (54 CL:CHAR-CODE 49 %%CHAR-UPCASE-CODE 25 CL:CHAR-CODE 20 %%CHAR-UPCASE-CODE 15 >=) () (PUTPROP (QUOTE CL:CHAR-NOT-LESSP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR-NOT-LESSP) (GET (QUOTE CL:CHAR-NOT-LESSP) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR/= :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@!H¹HZ•ggIJhNIL (23 NEQ 17 COMPILER:PASS) () (PUTPROP (QUOTE CL:CHAR/=) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR/=) (GET (QUOTE CL:CHAR/=) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR< :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) A@qH¹HºggIhJ^µM_¿gOh»M”LK&¼„Kh\½N°ÜNIL (41 CL:CHAR-CODE 20 CL:CHAR-CODE 15 <) () (PUTPROP (QUOTE CL:CHAR<) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR<) (GET ( QUOTE CL:CHAR<) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR<= :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) A@qH¹HºggIhJ^µM_¿gOh»M”LK&¼„Kh\½N°ÜNIL (41 CL:CHAR-CODE 20 CL:CHAR-CODE 15 <=) () (PUTPROP (QUOTE CL:CHAR<=) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR<=) (GET (QUOTE CL:CHAR<=) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR= :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) a@AH¹HZ²G»gKIhhg0J°d¼gKLh½NµMh_M&¾µãOhgIJh(18 GENSYM) (87 EQ 50 EQ 36 AND 24 LET) () (PUTPROP (QUOTE CL:CHAR=) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR=) (GET ( QUOTE CL:CHAR=) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR> :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) A@qH¹HºggIhJ^µM_¿gOh»M”LK&¼„Kh\½N°ÜNIL (41 CL:CHAR-CODE 20 CL:CHAR-CODE 15 >) () (PUTPROP (QUOTE CL:CHAR>) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR>) (GET ( QUOTE CL:CHAR>) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR>= :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) A@qH¹HºggIhJ^µM_¿gOh»M”LK&¼„Kh\½N°ÜNIL (41 CL:CHAR-CODE 20 CL:CHAR-CODE 15 >=) () (PUTPROP (QUOTE CL:CHAR>=) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR>=) (GET (QUOTE CL:CHAR>=) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHARACTERP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHoNIL (10 TYPENAMEP) ( 16 ((QUOTE CHARACTER))) (PUTPROP (QUOTE CL:CHARACTERP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHARACTERP ) (GET (QUOTE CL:CHARACTERP) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-LOWER-CASE-P :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@gogHhoNIL (20 CL:CHAR-CODE 10 <=) ( 29 ((CONSTANT (CL:CHAR-CODE #\z))) 15 (CONSTANT (CL:CHAR-CODE #\a))) (PUTPROP (QUOTE CL:LOWER-CASE-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-LOWER-CASE-P) (GET (QUOTE CL:LOWER-CASE-P) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-STRING-CHAR-P :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHoNIL (10 \DTEST) ( 16 ((QUOTE CHARACTER))) (PUTPROP (QUOTE CL:STRING-CHAR-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-STRING-CHAR-P) (GET (QUOTE CL:STRING-CHAR-P) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-UPPER-CASE-P :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@gogHhoNIL (20 CL:CHAR-CODE 10 <=) ( 29 ((CONSTANT (CL:CHAR-CODE #\Z))) 15 (CONSTANT (CL:CHAR-CODE #\A))) (PUTPROP (QUOTE CL:UPPER-CASE-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-UPPER-CASE-P) (GET (QUOTE CL:UPPER-CASE-P) (QUOTE COMPILER:OPTIMIZER-LIST)))) expand-%%CHAR-DOWNCASE-CODE :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhhoNIL (15 %%CODE 10 LET) ( 26 ((CL:IF (<= (CONSTANT (CL:CHAR-CODE #\A)) %%CODE (CONSTANT (CL:CHAR-CODE #\Z))) (+ %%CODE (- (CONSTANT (CL:CHAR-CODE #\a)) (CONSTANT (CL:CHAR-CODE #\A)))) %%CODE))) (SETF-MACRO-FUNCTION (QUOTE %%CHAR-DOWNCASE-CODE) (QUOTE expand-%%CHAR-DOWNCASE-CODE)) expand-%%CHAR-UPCASE-CODE :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhhoNIL (15 %%CODE 10 LET) ( 26 ((CL:IF (<= (CONSTANT (CL:CHAR-CODE #\a)) %%CODE (CONSTANT (CL:CHAR-CODE #\z))) (- %%CODE (- (CONSTANT (CL:CHAR-CODE #\a)) (CONSTANT (CL:CHAR-CODE #\A)))) %%CODE))) (SETF-MACRO-FUNCTION (QUOTE %%CHAR-UPCASE-CODE) (QUOTE expand-%%CHAR-UPCASE-CODE)) expand-%%CODE-CHAR :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @ggHhNIL (15 \CHARHI 10 \VAG2) () (SETF-MACRO-FUNCTION (QUOTE %%CODE-CHAR) (QUOTE expand-%%CODE-CHAR)) (PUTPROPS CMLCHARACTER FILETYPE CL:COMPILE-FILE) (RPAQQ CMLCHARACTERCOMS ((COMS (* ; "Interlisp CHARCODE; Some is here, the rest is in LLREAD.") (FNS CHARCODE CHARCODE.UNDECODE) (PROP MACRO SELCHARQ ALPHACHARP DIGITCHARP UCASECODE) (OPTIMIZERS CHARCODE ) (ALISTS (DWIMEQUIVLST SELCHARQ) (PRETTYEQUIVLST SELCHARQ))) (COMS (* ; "Common Lisp CHARACTER type") (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS CHARACTER)) (VARIABLES \CHARHI) (VARIABLES CL:CHAR-BITS-LIMIT CL:CHAR-CODE-LIMIT CL:CHAR-CONTROL-BIT CL:CHAR-FONT-LIMIT CL:CHAR-HYPER-BIT CL:CHAR-META-BIT CL:CHAR-SUPER-BIT)) (COMS (* ; "Basic character fns") (FNS CL:CHAR-CODE CL:CHAR-INT CL:INT-CHAR) ( FUNCTIONS CL:CODE-CHAR) (OPTIMIZERS CL:CHAR-CODE CL:CHAR-INT CL:CODE-CHAR CL:INT-CHAR)) (COMS (* ; "I/O; Some is here, the rest is in LLREAD.") (FNS CHARACTER.PRINT) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (SETTOPVAL (\TYPEGLOBALVARIABLE (QUOTE CHARACTER) T) (NTYPX (CL:CODE-CHAR 0 0 0))) (DEFPRINT (QUOTE CHARACTER) (QUOTE CHARACTER.PRINT))))) (COMS (* ;; "Common lisp character functions") (FNS CL:CHAR-BIT CL:CHAR-BITS CL:CHAR-DOWNCASE CL:CHAR-FONT CL:CHAR-NAME CL:CHAR-UPCASE CL:CHARACTER CL:NAME-CHAR CL:SET-CHAR-BIT) (FUNCTIONS CL:DIGIT-CHAR CL:MAKE-CHAR CL::BASE-CHARACTER-P CL::EXTENDED-CHARACTER-P) (OPTIMIZERS CL:CHAR-UPCASE CL:CHAR-DOWNCASE CL:MAKE-CHAR)) (COMS (* ;; "Predicates") (FNS CL:ALPHA-CHAR-P CL:ALPHANUMERICP CL:BOTH-CASE-P CL:CHARACTERP CL:GRAPHIC-CHAR-P CL:LOWER-CASE-P CL:STANDARD-CHAR-P CL:STRING-CHAR-P CL:UPPER-CASE-P) (FNS CL:CHAR-EQUAL CL:CHAR-GREATERP CL:CHAR-LESSP CL:CHAR-NOT-EQUAL CL:CHAR-NOT-GREATERP CL:CHAR-NOT-LESSP CL:CHAR/= CL:CHAR< CL:CHAR<= CL:CHAR= CL:CHAR> CL:CHAR>=) (FUNCTIONS CL:DIGIT-CHAR-P) (OPTIMIZERS CL:CHAR-EQUAL CL:CHAR-GREATERP CL:CHAR-LESSP CL:CHAR-NOT-EQUAL CL:CHAR-NOT-GREATERP CL:CHAR-NOT-LESSP CL:CHAR/= CL:CHAR< CL:CHAR<= CL:CHAR= CL:CHAR> CL:CHAR>= CL:CHARACTERP CL:LOWER-CASE-P CL:STRING-CHAR-P CL:UPPER-CASE-P)) (COMS (* ;; "Internals") ( FUNCTIONS %%CHAR-DOWNCASE-CODE %%CHAR-UPCASE-CODE %%CODE-CHAR)) (COMS (* ;; "Compiler options") (PROP FILETYPE CMLCHARACTER) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML CHARCODE) (LAMA CL:CHAR>= CL:CHAR> CL:CHAR= CL:CHAR<= CL:CHAR< CL:CHAR/= CL:CHAR-NOT-LESSP CL:CHAR-NOT-GREATERP CL:CHAR-NOT-EQUAL CL:CHAR-LESSP CL:CHAR-GREATERP CL:CHAR-EQUAL))))) (PUTPROPS CMLCHARACTER COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1991 1992 1993)) NIL