(FILECREATED "18-Sep-86 22:20:07" ("compiled on " {ERIS}LIBRARY>CMLSTRING.;22) "16-Sep-86 11:57:30" in "Xerox Lisp 16-Sep-86 ..." dated "16-Sep-86 12:29:41") (FILECREATED "18-Sep-86 22:19:00" {ERIS}LIBRARY>CMLSTRING.;22 24732 changes to: (FUNCTIONS STRING MAKE-STRING) previous date: " 4-Sep-86 23:28:34" {ERIS}LIBRARY>CMLSTRING.;21) (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) (* * 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-)) u eka iHlLdK7hZHl_OdN8h_IgggO _JOM OagLkaLl\agOkaOl_(107Q FILL-ARRAY 74Q MAKE-VECTOR) (141Q :FATP 116Q :INITIAL-ELEMENT 66Q :FATP 63Q STRING-CHAR 60Q :ELEMENT-TYPE) () NSTRING-CAPITALIZE D1 (L (0 -args-)) eka HlKdJPjHlNdMUh_Id oI I _OO_LdOo L1OO:*IagKkaKl[agNkaNl^IO_ _I_O_O(O$lO _laOOdlz)l հ$O lO _lAOOdlZl ԁOOOOkO__d(220Q ALPHANUMERICP 123Q CL:ERROR 72Q VECTOR-LENGTH 65Q CL:ERROR 53Q CL:STRINGP) (315Q CHARACTER 253Q CHARACTER 170Q :END 145Q :START) ( 120Q "Improper substring bounds" 61Q "Not a string ~S") NSTRING-DOWNCASE D1 (L (0 -args-)) eka HlKdJMjHlNdMRh_Id oI I _OO_LdOo L_O:*IagKkaKl[agNkaNl^I_O_lIO_lAOOdlZl ԁOOOOk԰(123Q CL:ERROR 72Q VECTOR-LENGTH 65Q CL:ERROR 53Q CL:STRINGP) (226Q CHARACTER 165Q :END 142Q :START) ( 120Q "Improper substring bounds" 61Q "Not a string ~S") NSTRING-UPCASE D1 (L (0 -args-)) eka HlKdJMjHlNdMRh_Id oI I _OO_LdOo L_O:*IagKkaKl[agNkaNl^I_O_lIO_laOOdlzl ՁOOOOk԰(123Q CL:ERROR 72Q VECTOR-LENGTH 65Q CL:ERROR 53Q CL:STRINGP) (226Q CHARACTER 165Q :END 142Q :START) ( 120Q "Improper substring bounds" 61Q "Not a string ~S") STRING D1 (L (0 X)) r@d@d0j@9@ AH HjJKI@Kk \ jLhlLIKKkԻ@dl l kg@ o@ (157Q CL:ERROR 146Q MAKE-STRING 130Q SYMBOL-NAME 64Q NTHCHARCODE 42Q MAKE-STRING 33Q NCHARS) (142Q :INITIAL-ELEMENT) ( 153Q "~S cannot be coerced into a string") STRING-CAPITALIZE D1 (L (0 -args-)) jekaPHlKdJ"jHlNdM'h_I_d ,I?agKkaKl[agNkaNl^lI gOo Yd _OO_LOo O _Lj__OOO_O_IOOOOk_L1O,O:tIO,_2 _.O_$O,_"O.(O0$lO2_laOOdlz)l հ$O lO2_ lAO O dlZl ԁO O$O"O,kO._0_,O_*O:O_(O*_&IO*O(O&O*k԰O(330Q ALPHANUMERICP 225Q MAKE-STRING 217Q CL:ERROR 170Q VECTOR-LENGTH 163Q CHECK-TYPE-FAIL 146Q SYMBOL-NAME 60Q CL:STRINGP) (426Q CHARACTER 364Q CHARACTER 152Q STRING 115Q :END 72Q :START) ( 214Q "Improper substring bounds" 160Q (OR STRING SYMBOL)) STRING-DOWNCASE D1 (L (0 -args-)) ekaHlKdJ"jHlNdM'h_I_d ,I?agKkaKl[agNkaNl^lI gOo Yd _OO_LOo O _Oj_"_ O O"]LO":OO"3O_O"_lIO"_lAOOdlZl ԁOOOO_O"_IO"OOO"k_"O(225Q MAKE-STRING 217Q CL:ERROR 170Q VECTOR-LENGTH 163Q CHECK-TYPE-FAIL 146Q SYMBOL-NAME 60Q CL:STRINGP) (310Q CHARACTER 152Q STRING 115Q :END 72Q :START) ( 214Q "Improper substring bounds" 160Q (OR STRING SYMBOL)) STRING-EQUAL D1 (L (0 -args-)) Ieka laHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o O"O$:OIJMOOO :(505Q %%STRING-COMPARE-EQUAL 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING-GREATERP D1 (L (0 -args-)) ekaPlaHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o IJMOOO _&dMO$:O"O$QO&O:hIO&_(laO(O(dlzl ՁO(JOO&MԶ_*laO*O*dlzl ՁO*O&(474Q %%STRING-COMPARE-EQUAL 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (600Q CHARACTER 535Q CHARACTER 372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING-LEFT-TRIM D1 (L (1 STRING 0 CHAR-BAG)) LAHd AlA gHo bd !jYdH:AI@ IAJH Ik԰(104Q SUBSEQ 73Q CL:FIND 52Q VECTOR-LENGTH 43Q CHECK-TYPE-FAIL 27Q SYMBOL-NAME 10Q CL:STRINGP) (33Q STRING) ( 40Q (OR STRING SYMBOL)) STRING-LESSP D1 (L (0 -args-)) ekaPlaHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o IJMOOO _&dO:O$O"TO&MO$:hIO&_(laO(O(dlzl ՁO(JOO&MԶ_*laO*O*dlzl ՁO*O&(474Q %%STRING-COMPARE-EQUAL 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (600Q CHARACTER 535Q CHARACTER 372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING-NOT-EQUAL D1 (L (0 -args-)) Meka laHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o O"O$:hOIJMOOO :h(507Q %%STRING-COMPARE-EQUAL 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING-NOT-GREATERP D1 (L (0 -args-)) ekaPlaHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o IJMOOO _&dO:iMO$:hIO&_(laO(O(dlzl ՁO(JOO&MԶ_*laO*O*dlzl ՁO*O&(474Q %%STRING-COMPARE-EQUAL 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (567Q CHARACTER 524Q CHARACTER 372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING-NOT-LESSP D1 (L (0 -args-)) ekaPlaHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o IJMOOO _&dMO$:iO:hIO&_(laO(O(dlzl ՁO(JOO&MԶ_*laO*O*dlzl ՁO*O&(474Q %%STRING-COMPARE-EQUAL 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (567Q CHARACTER 524Q CHARACTER 372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING-RIGHT-TRIM D1 (L (1 STRING 0 CHAR-BAG)) QAHd AlA gHo bd kjHAH@ HkAjH Hkո(110Q SUBSEQ 72Q CL:FIND 52Q VECTOR-LENGTH 43Q CHECK-TYPE-FAIL 27Q SYMBOL-NAME 10Q CL:STRINGP) (33Q STRING) ( 40Q (OR STRING SYMBOL)) STRING-TRIM D1 (L (1 STRING 0 CHAR-BAG)) dAHd AlA gHo bd AjYdH:AI@ IHkջJKAK@ KkԼAJL Ik԰K(131Q SUBSEQ 116Q CL:FIND 73Q CL:FIND 52Q VECTOR-LENGTH 43Q CHECK-TYPE-FAIL 27Q SYMBOL-NAME 10Q CL:STRINGP) (33Q STRING) ( 40Q (OR STRING SYMBOL)) STRING-UPCASE D1 (L (0 -args-)) ekaHlKdJ"jHlNdM'h_I_d ,I?agKkaKl[agNkaNl^lI gOo Yd _OO_LOo O _Oj_"_ O O"]LO":OO"3O_O"_lIO"_laOOdlzl ՁOOOO_O"_IO"OOO"k_"O(225Q MAKE-STRING 217Q CL:ERROR 170Q VECTOR-LENGTH 163Q CHECK-TYPE-FAIL 146Q SYMBOL-NAME 60Q CL:STRINGP) (310Q CHARACTER 152Q STRING 115Q :END 72Q :START) ( 214Q "Improper substring bounds" 160Q (OR STRING SYMBOL)) STRING/= D1 (L (0 -args-)) Meka laHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o O"O$:hOIJMOOO :h(507Q %%STRING-COMPARE 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING< D1 (L (0 -args-)) teka0laHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o IJMOOO _&dO:O$O"(O&MO$:hIO&JOO&MԶO&(474Q %%STRING-COMPARE 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (552Q CHARACTER 535Q CHARACTER 372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING<= D1 (L (0 -args-)) jeka0laHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o IJMOOO _&dO:iMO$:hIO&JOO&MԶO&(474Q %%STRING-COMPARE 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (541Q CHARACTER 524Q CHARACTER 372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING= D1 (L (0 -args-)) Ieka laHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o O"O$:OIJMOOO :(505Q %%STRING-COMPARE 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING> D1 (L (0 -args-)) seka0laHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o IJMOOO _&dMO$:O"O$%O&O:hIO&JOO&MԶO&(474Q %%STRING-COMPARE 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (552Q CHARACTER 535Q CHARACTER 372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) STRING>= D1 (L (0 -args-)) keka0laHlLdKQjHl_OdNSh_Hl__OdOSj_Hl__OdOSh_I_d [InagLkaLl\agOkaOl_agOkaOl_agOkaOl_lI gOo YOd _J_ d JlJ gO o ZOd _OMOO_$_"jO"jO$o IJMOOO _&dMO$:iO:hIO&JOO&MԶO&(474Q %%STRING-COMPARE 456Q CL:ERROR 413Q VECTOR-LENGTH 403Q CHECK-TYPE-FAIL 366Q SYMBOL-NAME 347Q CL:STRINGP 335Q VECTOR-LENGTH 325Q CHECK-TYPE-FAIL 310Q SYMBOL-NAME 143Q CL:STRINGP) (541Q CHARACTER 524Q CHARACTER 372Q STRING2 314Q STRING1 254Q :END2 226Q :START2 200Q :END1 155Q :START1) ( 453Q "improper substring bounds" 400Q (OR STRING SYMBOL) 322Q (OR STRING SYMBOL)) expand-WITH-ONE-STRING D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @aHHZJ\LggIgIgIhggIhhhhgggIhhhggMhgMohggKMhoNhNIL (154Q > 151Q CL:IF 133Q SETQ 124Q NULL 121Q CL:IF 105Q VECTOR-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@aHHZJ\LggggIhhogggIhhhggMhgMohggKMhoNhNIL (135Q > 132Q CL:IF 114Q SETQ 105Q NULL 102Q CL:IF 66Q VECTOR-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@!HHggIgIgIhggIhhhhgoJhNIL (65Q LET 42Q SYMBOL-NAME 37Q SYMBOL 30Q STRING 24Q ETYPECASE 20Q SETQ 15Q PROGN) ( 71Q ((SLEN (VECTOR-LENGTH STRING)))) (SETF-MACRO-FUNCTION (QUOTE WITH-STRING) (QUOTE expand-WITH-STRING)) expand-WITH-TWO-STRINGS D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @ HHZJ\L^_N__O__O_ggIgIgIhggIhhhhggOhgOgIhhhgKgKgKhggKhhhhggOhgOgKhhhgggOMhhggOOhhhoOhNIL (323Q - 320Q SLEN2 303Q - 300Q SLEN1 275Q LET 256Q VECTOR-LENGTH 251Q SETQ 241Q NULL 236Q CL:IF 213Q SYMBOL-NAME 210Q SYMBOL 201Q STRING 175Q ETYPECASE 171Q SETQ 152Q VECTOR-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:$BEdCCHdI:@HAH:HHkXDHdC:IE:@HAI:HHkIkԹXNIL NIL () %%STRING-COMPARE-EQUAL D1 (L (5 END2 4 START2 3 END1 2 START1 1 STRING2 0 STRING1)) BdD:UBEdCC"HdI: