(FILECREATED "19-Aug-86 20:59:36" ("compiled on " {QV}LISP>CMLSTRING.;6) "15-Aug-86 21:01:02" "COMPILE-FILEd" in "Xerox Lisp 15-Aug-86 ..." dated "15-Aug-86 21:12:23") (FILECREATED "19-Aug-86 20:59:07" {QV}LISP>CMLSTRING.;6 24896 changes to: (FUNCTIONS STRING \STRING-LENGTH STRING-NOT-EQUAL STRING/= MAKE-STRING) (VARS CMLSTRINGCOMS) previous date: "18-Aug-86 23:24:35" {QV}LISP>CMLSTRING.;5) (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ó²I¿h¼Hl¾½NdMó²N¿h_¿jIó¥nÿþIó¨oI ¿IghO _¿LžIj_¿_¿OOó³+Oagð•KkØa°±KlÔ[°£agð•NkØa°¬NlÔ^°žLOO·¿OkÔ_¿°Â(103Q \MAKE-ONED-ARRAY 70Q CL:ERROR) (161Q :FATP 136Q :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)) m@d‘¿‚˜@dÊ0jð¡@²6@ AH ¹Hj»ºJKó¡I@KkÔ \nÿÿóhð´lLÑIK·¿KkÔ»°Þ@dlð“  ˜kg@ o (152Q CL:ERROR 142Q MAKE-STRING 131Q CHARACTERP 125Q SYMBOL-NAME 64Q NTHCHARCODE 42Q MAKE-STRING 33Q NCHARS) (136Q :INITIAL-ELEMENT) ( 147Q "~S cannot be coerced into a string") 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 ‹gOo Yd _¿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 ‹gOo YO¦d _¿J_ d “¿J°g ´J ‹gO o ZO¦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 ‹gOo YO¦d _¿J_ d “¿J°g ´J ‹gO o ZO¦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)) 3@d‘¿ƒ²@dÊ0jð­dÊ`jð¢ÈÈ@”@ o@ (60Q CL:ERROR 47Q NCHARS) NIL ( 54Q "~S not a string") (PUTPROPS CMLSTRING FILETYPE COMPILE-FILE) (PUTPROPS CMLSTRING COPYRIGHT ("Xerox Corporation" 1985 1986)) STOP