(FILECREATED "18-Aug-86 22:50:42" ("compiled on " {ERIS}LIBRARY>CMLSTRING.;17) "18-Aug-86 12:42:20" "COMPILE-FILEd" in "Xerox Lisp 18-Aug-86 ..." dated "18-Aug-86 13:55:08") (FILECREATED "18-Aug-86 22:49:41" {ERIS}LIBRARY>CMLSTRING.;17 24482 changes to: (VARS CMLSTRINGCOMS) (FUNCTIONS STRING-NOT-EQUAL STRING/=) previous date: "13-Aug-86 18:27:22" {ERIS}LIBRARY>CMLSTRING.;16) (RPAQQ CMLSTRINGCOMS ((* * User entry points) (FUNCTIONS MAKE-STRING NSTRING-CAPITALIZE NSTRING-DOWNCASE NSTRING-UPCASE STRING STRING-CAPITALIZE STRING-DOWNCASE STRING-EQUAL STRING-GREATERP STRING-LEFT-TRIM STRING-LESSP STRING-NOT-EQUAL STRING-NOT-GREATERP STRING-NOT-LESSP STRING-RIGHT-TRIM STRING-TRIM STRING-UPCASE STRING/= STRING< STRING<= STRING= STRING> STRING>=) (* * Internal stuff) ( FUNCTIONS WITH-ONE-STRING WITH-ONE-STRING-ONLY WITH-STRING WITH-TWO-STRINGS \STRING-COMPARE \STRING-COMPARE-EQUAL \STRING-LENGTH) (* * Compiler options) (PROP FILETYPE CMLSTRING) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) MAKE-STRING D1 (L (0 -args-)) Ÿ eka±Hl»ºKdJó²L¿h¼Hl¾½NdMó²Q¿h_¿jIó¥nÿýIó¨oI ¿IghddO _¿LžIj_¿_¿OOó³+Oagð•KkØa°®KlÔ[° agð•NkØa°©NlÔ^°›O_¿O_¿LOO·¿OkÔ_¿°¸(106Q \MAKE-ONED-ARRAY 70Q CL:ERROR) (164Q :FATP 141Q :INITIAL-ELEMENT 75Q STRING-CHAR) ( 64Q "Size out of bounds: ~A") NSTRING-CAPITALIZE D1 (L (0 -args-)) Âeka‘ Hl»ºKdJó²P¿j¼Hl¾½NdMó²U¿h_¿Id ª¿oI ¿I _¿O¤O_¿LdOó™¿o ¿L1OO:²*Iagð•KkØa°ªKlÔ[°œagð•NkØa°¥NlÔ^°—IO¶_ _¿I_¿O_¿O˜O¥O „O OO·¿OkÔO_¿_°œ(255Q CHAR-DOWNCASE 247Q CHAR-UPCASE 220Q ALPHANUMERICP 123Q CL:ERROR 72Q \STRING-LENGTH 65Q CL:ERROR 53Q CL:STRINGP) (170Q :END 145Q :START) ( 120Q "Improper substring bounds" 61Q "Not a string ~S") NSTRING-DOWNCASE D1 (L (0 -args-)) ¢eka¡Hl»ºKdJó²M¿j¼Hl¾½NdMó²R¿h_¿Id ª¿oI ¿I _¿O¤O_¿LdOó™¿o ¿L_O:²*Iagð•KkØa°KlÔ[°Ÿagð•NkØa°¨NlÔ^°šI_¿O_¿IO¶ OO·¿OkÔ°·(224Q CHAR-DOWNCASE 123Q CL:ERROR 72Q \STRING-LENGTH 65Q CL:ERROR 53Q CL:STRINGP) (165Q :END 142Q :START) ( 120Q "Improper substring bounds" 61Q "Not a string ~S") NSTRING-UPCASE D1 (L (0 -args-)) ¢eka¡Hl»ºKdJó²M¿j¼Hl¾½NdMó²R¿h_¿Id ª¿oI ¿I _¿O¤O_¿LdOó™¿o ¿L_O:²*Iagð•KkØa°KlÔ[°Ÿagð•NkØa°¨NlÔ^°šI_¿O_¿IO¶ OO·¿OkÔ°·(224Q CHAR-UPCASE 123Q CL:ERROR 72Q \STRING-LENGTH 65Q CL:ERROR 53Q CL:STRINGP) (165Q :END 142Q :START) ( 120Q "Improper substring bounds" 61Q "Not a string ~S") STRING D1 (L (0 X)) 8@HYd ‘@g ”@ Ig ´kg@gHo(65Q CHECK-TYPE-FAIL 51Q MAKE-STRING 37Q \INSTANCE-P 27Q SYMBOL-NAME 22Q \INSTANCE-P 11Q CL:STRINGP) (55Q X 45Q :INITIAL-ELEMENT 34Q CHARACTER 17Q LITATOM) ( 62Q (OR STRING SYMBOL CHARACTER)) STRING-CAPITALIZE D1 (L (0 -args-)) 4ekañ0Hl»ºKdJó²"¿j¼Hl¾½NdMó²'¿h_¿I_d ²,¿I°Aagð•KkØa°ØKlÔ[°Êagð•NkØa°ÓNlÔ^°Åg ´I ‹gOoYd _¿O¤O_¿LOó—o ¿O _¿Lj_¿_¿OOó²O_¿O_¿IO¶OO·¿OkÔ_¿°ÞL1O(O:³ D1 (L (0 -args-)) qekañ0laºHl¼»LdKó²Q¿j½Hl_¿¾OdNó²S¿h_¿Hl_¿_¿OdOó²S¿j_¿Hl_¿_¿OdOó²S¿h_¿I_d ²[¿I°pagð•LkØa°©LlÔ\°›agð–OkØa°¦OlÔ_°–agð–OkØa°¦OlÔ_°•agð–OkØa°¦OlÔ_°•g ´I ‹gOoYO¦d _¿J_ d “¿J°g ´J ‹gO oZO¦d _¿OMÕOOÕ_$¿_"¿jO"ó¤jO$ó—o ¿IJMOOO _&dMÕO$:š¿O"O$ó´O&O:‘hIO&¶JOO&MÕÔ¶ ´O&(552Q CHAR> 500Q \STRING-COMPARE 462Q CL:ERROR 417Q \STRING-LENGTH 407Q CHECK-TYPE-FAIL 372Q SYMBOL-NAME 364Q \INSTANCE-P 351Q CL:STRINGP 337Q \STRING-LENGTH 327Q CHECK-TYPE-FAIL 312Q SYMBOL-NAME 304Q \INSTANCE-P 143Q CL:STRINGP) (376Q STRING2 361Q LITATOM 316Q STRING1 301Q LITATOM 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 457Q "improper substring bounds" 404Q (OR STRING SYMBOL) 324Q (OR STRING SYMBOL)) STRING>= D1 (L (0 -args-)) hekañ0laºHl¼»LdKó²Q¿j½Hl_¿¾OdNó²S¿h_¿Hl_¿_¿OdOó²S¿j_¿Hl_¿_¿OdOó²S¿h_¿I_d ²[¿I°pagð•LkØa°©LlÔ\°›agð–OkØa°¦OlÔ_°–agð–OkØa°¦OlÔ_°•agð–OkØa°¦OlÔ_°•g ´I ‹gOoYO¦d _¿J_ d “¿J°g ´J ‹gO oZO¦d _¿OMÕOOÕ_$¿_"¿jO"ó¤jO$ó—o ¿IJMOOO _&dMÕO$:‘iO:‘hIO&¶JOO&MÕÔ¶ ´O&(541Q CHAR>= 500Q \STRING-COMPARE 462Q CL:ERROR 417Q \STRING-LENGTH 407Q CHECK-TYPE-FAIL 372Q SYMBOL-NAME 364Q \INSTANCE-P 351Q CL:STRINGP 337Q \STRING-LENGTH 327Q CHECK-TYPE-FAIL 312Q SYMBOL-NAME 304Q \INSTANCE-P 143Q CL:STRINGP) (376Q STRING2 361Q LITATOM 316Q STRING1 301Q LITATOM 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 457Q "improper substring bounds" 404Q (OR STRING SYMBOL) 324Q (OR STRING SYMBOL)) expand-WITH-ONE-STRING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) „@aH¹HZ»J\½L¾ggIgIgIhggIhhhhgggIhhhggMhgMohggKMhoNhNIL (154Q > 151Q CL:IF 133Q SETQ 124Q NULL 121Q CL:IF 105Q \STRING-LENGTH 102Q SLEN 77Q LET 54Q SYMBOL-NAME 51Q SYMBOL 42Q STRING 36Q ETYPECASE 32Q SETQ 27Q PROGN) ( 166Q ((CL:ERROR "Improper substring bounds")) 140Q (SLEN)) (SETF-MACRO-FUNCTION (QUOTE WITH-ONE-STRING) (QUOTE expand-WITH-ONE-STRING)) expand-WITH-ONE-STRING-ONLY D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) u@aH¹HZ»J\½L¾ggggIhhogggIhhhggMhgMohggKMhoNhNIL (135Q > 132Q CL:IF 114Q SETQ 105Q NULL 102Q CL:IF 66Q \STRING-LENGTH 63Q SLEN 60Q LET 40Q CL:STRINGP 35Q NOT 32Q CL:IF 27Q PROGN) ( 147Q ((CL:ERROR "Improper substring bounds")) 121Q (SLEN) 53Q ((CL:ERROR "Not a string ~S" STRING))) (SETF-MACRO-FUNCTION (QUOTE WITH-ONE-STRING-ONLY) (QUOTE expand-WITH-ONE-STRING-ONLY)) expand-WITH-STRING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) C@!H¹HºggIgIgIhggIhhhhgoJhNIL (65Q LET 42Q SYMBOL-NAME 37Q SYMBOL 30Q STRING 24Q ETYPECASE 20Q SETQ 15Q PROGN) ( 71Q ((SLEN (\STRING-LENGTH STRING)))) (SETF-MACRO-FUNCTION (QUOTE WITH-STRING) (QUOTE expand-WITH-STRING)) expand-WITH-TWO-STRINGS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ô @ÁH¹HZ»J\½L^_¿N__¿O__¿O_¿ggIgIgIhggIhhhhggOhgOgIhhhgKgKgKhggKhhhhggOhgOgKhhhgggOMhhggOOhhhoOhNIL (323Q - 320Q SLEN2 303Q - 300Q SLEN1 275Q LET 256Q \STRING-LENGTH 251Q SETQ 241Q NULL 236Q CL:IF 213Q SYMBOL-NAME 210Q SYMBOL 201Q STRING 175Q ETYPECASE 171Q SETQ 152Q \STRING-LENGTH 145Q SETQ 135Q NULL 132Q CL:IF 107Q SYMBOL-NAME 104Q SYMBOL 75Q STRING 71Q ETYPECASE 65Q SETQ 62Q PROGN) ( 345Q (CL:IF (OR (MINUSP SLEN1) (MINUSP SLEN2)) (CL:ERROR "improper substring bounds"))) (SETF-MACRO-FUNCTION (QUOTE WITH-TWO-STRINGS) (QUOTE expand-WITH-TWO-STRINGS)) \STRING-COMPARE D1 (L (5 END2 4 START2 3 END1 2 START1 1 STRING2 0 STRING1)) KBdD:²$¿BEdCó‘¿CHdI:©¿@H¶AH¶:¡HHkÔX°íDHdC:¿IE:§@H¶AI¶:¡HHkÔIkÔ¹X°åNIL NIL () \STRING-COMPARE-EQUAL D1 (L (5 END2 4 START2 3 END1 2 START1 1 STRING2 0 STRING1)) XBdD:²*¿BEdCó‘¿CHdI:¯¿@H¶ AH¶ :¡HHkÔX°çDHdC:³¿IE:@H¶ AI¶ :¡HHkÔIkÔ¹X°Þ(110Q CHAR-UPCASE 102Q CHAR-UPCASE 43Q CHAR-UPCASE 35Q CHAR-UPCASE) NIL () \STRING-LENGTH D1 (L (0 STRING)) 4@Hµ HµH@dÊ`jð¢ÈÈ@”@ o@ (61Q CL:ERROR 50Q NCHARS) NIL ( 55Q "~S not a string") (PUTPROPS CMLSTRING FILETYPE COMPILE-FILE) (PUTPROPS CMLSTRING COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP