(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "30-Oct-2023 18:04:36" ("compiled on " {DSK}matt>Interlisp>medley>sources>CMLCHARACTER.;4) "23-Oct-2023 02:04:03" "COMPILE-FILEd" in "FULL 23-Oct-2023 ..." dated "23-Oct-2023 02:04:07") (FILECREATED "30-Oct-2023 18:04:29" {DSK}matt>Interlisp>medley>sources>CMLCHARACTER.;4 32004 :EDIT-BY "mth" :CHANGES-TO (FNS CL:CHAR-NAME) :PREVIOUS-DATE "17-Oct-2023 13:16:14" {DSK}matt>Interlisp>medley>sources>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) (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))))) CHARCODE :D8 (L (0 CHAR)) @ (5 CHARCODE.DECODE) NIL () CHARCODE.UNDECODE :D8 (L (0 CODE)) @HÒlð´lHÑ d” (27 MKSTRING 20 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ð´lHÑNIL NIL () CL:CODE-CHAR :D8 (L (0 -args-)) 6eka!lHñ‘j‚laºlHñ‘j‚la»Jjð´Kjð´ IÒlð´lIÑNIL 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)) ]@QH¹HZµj»J–Jƒ°÷j¼Kjð²8Ljð²3I ´I ]Òlð”lMÑggIhhog(50 CL:EVAL 42 CL:CONSTANTP) (90 COMPILER:PASS 71 %%CODE 66 LET) ( 82 ((AND (EQ (\HILOC %%CODE) 14) (%%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 1 \THISFILELINELENGTH F 2 *PRINT-ESCAPE* F 3 *READTABLE*) tR²c@ Q²lHµCkÔAÈØQñ–A ¿ASÊ ¿Al\ ¿HµA@Ó ° °»A °ðA@Ó i(112 \OUTCHAR 97 WRITE-STRING* 89 CL:LENGTH 81 \OUTCHAR 64 \OUTCHAR 55 \OUTCHAR 39 FRESHLINE 8 CL:CHAR-NAME) (106 CHARACTER 75 CHARACTER 47 READTABLEP 27 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µ2hµbHãYHlÿåXIjð²6dló³0oHl@ä[Òlð´lKÑ dHð¤¿J°Â °¿`\µI oH dIð¤¿L°Û°â(140 CONCAT 135 OCTALSTRING 124 OCTALSTRING 107 STRING 88 CONCAT 20 CL:GRAPHIC-CHAR-P) (114 CHARACTERSETNAMES 37 CHARACTERNAMES 28 CHARACTER) ( 129 "-" 68 "^" 13 "Space" 6 #\Space) CL:CHAR-UPCASE :D8 (L (0 CHAR)) l@ÓlaHó©Hdlzó¤l Õ€HÑNIL (7 CHARACTER) () CL:CHARACTER :D8 (L (0 OBJECT)) L@dÃ‘@džHÒlð´lHÑ §@Ã²@ b kð“@j¶o@ (73 CL:ERROR 55 CL:LENGTH 48 STRING 33 CL:STRINGP) (40 LITATOM 6 CHARACTER) ( 67 "Object cannot be coerced to a character: ~S") CL:NAME-CHAR :D8 (L (0 NAME)) @ i dHÒlð´lHÑ(11 CHARCODE.DECODE 5 STRING) NIL () CL:SET-CHAR-BIT :D8 (L (2 NEWVALUE 1 NAME 0 CHAR)) oA (10 CL:ERROR) NIL ( 4 "Bit ~A not supported") CL:DIGIT-CHAR :D8 (L (0 -args-)) IekalHñ’l ‚laºlHñ‘j‚lajð´&mÿIJl%´l Ió—ll0IÔÑllAIl ÕÔÑ(45 <) NIL () CL:MAKE-CHAR :D8 (L (0 -args-)) ,eka!lHñ‘j‚laºlHñ‘j‚la»Jjð´Kjð´INIL NIL () CL::optimize-CHAR-UPCASE :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@gggHhhhNIL (20 CL:CHAR-CODE 15 %%CHAR-UPCASE-CODE 10 %%CODE-CHAR) () (PUTPROP (QUOTE CL:CHAR-UPCASE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR-UPCASE) (GET (QUOTE CL:CHAR-UPCASE) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CHAR-DOWNCASE :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@gggHhhhNIL (20 CL:CHAR-CODE 15 %%CHAR-DOWNCASE-CODE 10 %%CODE-CHAR) () (PUTPROP (QUOTE CL:CHAR-DOWNCASE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CHAR-DOWNCASE) (GET (QUOTE CL:CHAR-DOWNCASE) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-MAKE-CHAR :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) ,@AH¹HZd»J´J¼K“Kjð—L“Ljð‘IgNIL (41 COMPILER:PASS) () (PUTPROP (QUOTE CL:MAKE-CHAR) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-MAKE-CHAR ) (GET (QUOTE CL:MAKE-CHAR) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL:ALPHA-CHAR-P :D8 (L (0 CHAR)) '@ÓlAHó§HlZóhðµlaHóhð´HlzóhðNIL (5 CHARACTER) () CL:ALPHANUMERICP :D8 (L (0 CHAR)) @ µ@ hðhð(13 CL:DIGIT-CHAR-P 5 CL:ALPHA-CHAR-P) NIL () CL:BOTH-CASE-P :D8 (L (0 CHAR)) 5@ÓlAHóhð´HlZóhðµ@ÓlaHóhð´HlzóhðNIL (32 CHARACTER 5 CHARACTER) () CL:CHARACTERP :D8 (L (0 OBJECT)) @ÃNIL (5 CHARACTER) () CL:GRAPHIC-CHAR-P :D8 (L (0 CHAR)) ?@ÓHãYjð³IlåYl ó´$Ilðhð´HlÿåXl ðµHlåXl ó´HlðhðNIL (5 CHARACTER) () CL:LOWER-CASE-P :D8 (L (0 CHAR)) @ÓlaHóhð´HlzóhðNIL (5 CHARACTER) () CL:STANDARD-CHAR-P :D8 (L (0 CHAR)) @o´iNIL NIL ( 5 (#\! #\" #\# #\$ #\% #\& #\' #$ #$ #\* #\+ #\, #\- #\. #\/ #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\: #\; #\< #\= #\> #\? #\@ #\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) (PUTPROPS CMLCHARACTER COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1995 1999 2023)) NIL