(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 3-Nov-93 15:41:51" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLSTRING.;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 15:18:00" "{Pele:mv:envos}Sources>CLTL2>CMLSTRING.;2" 30461 previous date%: "29-Aug-91 22:57:51" "{Pele:mv:envos}Sources>CLTL2>CMLSTRING.;1") (RPAQQ CMLSTRINGCOMS ((* ;; "run-time support ") (FUNCTIONS CL::SIMPLE-STRING= CL::SIMPLE-STRING-EQUAL ) (FUNCTIONS %%STRING-BASE-COMPARE %%STRING-BASE-COMPARE-EQUAL %%STRING-UPCASE %%STRING-DOWNCASE) (* ;; "User entry points ") (FUNCTIONS CL:MAKE-STRING CL:NSTRING-CAPITALIZE CL:NSTRING-DOWNCASE CL:NSTRING-UPCASE STRING CL:STRING-CAPITALIZE CL:STRING-DOWNCASE STRING-EQUAL CL:STRING-GREATERP CL:STRING-LEFT-TRIM CL:STRING-LESSP CL:STRING-NOT-EQUAL CL:STRING-NOT-GREATERP CL:STRING-NOT-LESSP CL:STRING-RIGHT-TRIM CL:STRING-TRIM CL:STRING-UPCASE CL:STRING/= CL:STRING< CL:STRING<= CL:STRING= CL:STRING> CL:STRING>=) (OPTIMIZERS CL:STRING= STRING-EQUAL) (* ;; "Internal macros ") (DECLARE%: DONTCOPY DOEVAL@COMPILE (FUNCTIONS WITH-ONE-STRING WITH-ONE-STRING-ONLY WITH-STRING WITH-TWO-UNPACKED-STRINGS %%UNPACK-STRING %%ADJUST-FOR-OFFSET %%CHECK-BOUNDS %%PARSE-STRING-ARGS %%STRING-LENGTH)) (* ;; "Compiler options") (PROP FILETYPE CMLSTRING) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)))) CL::SIMPLE-STRING= :D8 (L (1 STRING2 0 STRING1)) @dd@d0jl Rd3@@C@@ b -ggog@g@go AdAd0jl SAd3@ACAA b -ggogAgAgo HI`@dd3@@k@ jlD+lC'@@@@ @ @ Add3@AkA jlD+lC'AAAA A A _LjHLԸMjIMԹHJNKOLHMI (409 %%STRING-BASE-COMPARE 374 %%ARRAY-TYPE-NUMBER 367 %%ARRAY-OFFSET 360 %%ARRAY-BASE 302 %%ARRAY-TYPE-NUMBER 295 %%ARRAY-OFFSET 288 %%ARRAY-BASE 216 CL:ERROR 171 VECTOR-LENGTH 164 STRING 133 \GETBASEFIXP 107 CL:ERROR 62 VECTOR-LENGTH 55 STRING 25 \GETBASEFIXP) (205 :MESSAGE 199 :VALUE 193 :NAME 183 :EXPECTED-TYPE 178 XCL:TYPE-MISMATCH 157 CHARACTER 96 :MESSAGE 90 :VALUE 84 :NAME 74 :EXPECTED-TYPE 69 XCL:TYPE-MISMATCH 48 CHARACTER) ( 210 "a string, symbol or character" 188 (OR STRING CL:SYMBOL CL:CHARACTER) 101 "a string, symbol or character" 79 (OR STRING CL:SYMBOL CL:CHARACTER)) CL::SIMPLE-STRING-EQUAL :D8 (L (1 STRING2 0 STRING1)) @dd@d0jl Rd3@@C@@ b -ggog@g@go AdAd0jl SAd3@ACAA b -ggogAgAgo HI`@dd3@@k@ jlD+lC'@@@@ @ @ Add3@AkA jlD+lC'AAAA A A _LjHLԸMjIMԹHJNKOLHMI (409 %%STRING-BASE-COMPARE-EQUAL 374 %%ARRAY-TYPE-NUMBER 367 %%ARRAY-OFFSET 360 %%ARRAY-BASE 302 %%ARRAY-TYPE-NUMBER 295 %%ARRAY-OFFSET 288 %%ARRAY-BASE 216 CL:ERROR 171 VECTOR-LENGTH 164 STRING 133 \GETBASEFIXP 107 CL:ERROR 62 VECTOR-LENGTH 55 STRING 25 \GETBASEFIXP) (205 :MESSAGE 199 :VALUE 193 :NAME 183 :EXPECTED-TYPE 178 XCL:TYPE-MISMATCH 157 CHARACTER 96 :MESSAGE 90 :VALUE 84 :NAME 74 :EXPECTED-TYPE 69 XCL:TYPE-MISMATCH 48 CHARACTER) ( 210 "a string, symbol or character" 188 (OR STRING CL:SYMBOL CL:CHARACTER) 101 "a string, symbol or character" 79 (OR STRING CL:SYMBOL CL:CHARACTER)) %%STRING-BASE-COMPARE :D8 (L (7 END2 6 START2 5 END1 4 START1 3 TYPENUMBER2 2 BASE2 1 TYPENUMBER1 0 BASE1)) `DdF'GdEEHdI@AH BCH HHkXFEDGFIdHHHdJ@AH BCI HHkIkԹXNIL NIL () %%STRING-BASE-COMPARE-EQUAL :D8 (L (7 END2 6 START2 5 END1 4 START1 3 TYPENUMBER2 2 BASE2 1 TYPENUMBER1 0 BASE1)) DdFLGdEE"HdI4@AH ӺlaJJdlzl ՀJBCH ӻlaKKdlzl ՀKHHkXFEDGFIdHH#HdJ4@AH ӻlaKKdlzl ՀKBCI ӼlaLLdlzl ՀLHHkIkԹXNIL NIL () %%STRING-UPCASE :D8 (L (2 END 1 START 0 STRING)) W@ @ @ #IjAIbBIbA[B@lHJK ӼlaLLdlzl ՀLHJKKk԰(17 %%ARRAY-TYPE-NUMBER 11 %%ARRAY-OFFSET 5 %%ARRAY-BASE) (55 CHARACTER) () %%STRING-DOWNCASE :D8 (L (2 END 1 START 0 STRING)) W@ @ @ #IjAIbBIbA[B@lHJK ӼlALLdlZl ԀLHJKKk԰(17 %%ARRAY-TYPE-NUMBER 11 %%ARRAY-OFFSET 5 %%ARRAY-BASE) (55 CHARACTER) () CL:MAKE-STRING :D8 (L (0 -args-)) eka HlKJYgiHl_OdNXh]_Hl__OdOYh_IgLgO _MOO OKdagl[kaagOkaOl_agOkaOl_(102 FILL-ARRAY 88 MAKE-VECTOR) (156 :FATP 132 :INITIAL-ELEMENT 113 :ELEMENT-TYPE 80 :FATP 74 :ELEMENT-TYPE 23 CL:CHARACTER) () (SET-DOCUMENTATION (QUOTE CL:MAKE-STRING) (QUOTE CL:FUNCTION) "Makes a simple string") CL:NSTRING-CAPITALIZE :D8 (L (0 -args-)) <eka HlKJMhHlNdMUh_Id ggggI I _O2O_") CL:STRING-LEFT-TRIM :D8 (L (1 STRING 0 CHAR-BAG)) 2A b !jYdHAI@ IAJH Ik԰(42 CL:SUBSEQ 31 CL:FIND 12 VECTOR-LENGTH 5 STRING) NIL () (SET-DOCUMENTATION (QUOTE CL:STRING-LEFT-TRIM) (QUOTE CL:FUNCTION) "Trim only on left") CL:STRING-LESSP :D8 (L (0 -args-)) eka@laHlLKLhHl_OdNQh_Hl__OdOSh_Hl__OdOUh_IdbcLdagl\kaagOkaOl_agOkaOl_agOkaOl_Id0jl RId3@IBII Y -ggogIgIgo JdJd0jl RJd3@JBJJ Z -ggogJgJgo _ _OO_OoO Mj]jMMOoMO OO _O oO Oj_jOOOoOO OM_OO_ `Idd3@ I_*k_.I jlD4lC0I_*I_.II _*I _.I _2Jdd3@ J_,k_0J jlD4lC0J_,J_0JJ _,J _0J _4O.jMO.ԽOO._O0jOO0_OO0_O*O2O,O4MOOO _"M_$O"dOO OdO"O.MO hO*O2O" _&laO&O&dlzl ՁO&O,O4OO$ _(laO(O(dlzl ՁO(O"O.(772 %%STRING-BASE-COMPARE-EQUAL 709 %%ARRAY-TYPE-NUMBER 700 %%ARRAY-OFFSET 691 %%ARRAY-BASE 622 %%ARRAY-TYPE-NUMBER 613 %%ARRAY-OFFSET 604 %%ARRAY-BASE 521 CL:ERROR 487 CL:ERROR 461 CL:ERROR 432 CL:ERROR 401 CL:ERROR 356 VECTOR-LENGTH 350 STRING 319 \GETBASEFIXP 293 CL:ERROR 248 VECTOR-LENGTH 242 STRING 211 \GETBASEFIXP) (860 CHARACTER 821 CHARACTER 390 :MESSAGE 384 :VALUE 378 :NAME 368 :EXPECTED-TYPE 363 XCL:TYPE-MISMATCH 343 CHARACTER 282 :MESSAGE 276 :VALUE 270 :NAME 260 :EXPECTED-TYPE 255 XCL:TYPE-MISMATCH 235 CHARACTER 174 :END2 150 :START2 126 :END1 107 :START1) ( 512 "Improper substring bounds: ~s ~s" 480 "End out of bounds: ~S" 453 "Improper substring bounds: ~s ~s" 425 "End out of bounds: ~S" 395 "a string, symbol or character" 373 (OR STRING CL:SYMBOL CL:CHARACTER) 287 "a string, symbol or character" 265 (OR STRING CL:SYMBOL CL:CHARACTER)) (SET-DOCUMENTATION (QUOTE CL:STRING-LESSP) (QUOTE CL:FUNCTION) "Case insensitive version of STRING<") CL:STRING-NOT-EQUAL :D8 (L (0 -args-)) ekalaHlLKLhHl_OdNQh_Hl__OdOSh_Hl__OdOUh_IdbcLdagl\kaagOkaOl_agOkaOl_agOkaOl_Id0jl RId3@IBII Y -ggogIgIgo JdJd0jl RJd3@JBJJ Z -ggogJgJgo _ _OO_OoO Mj]jMMOoMO OO _O oO Oj_jOOOoOO OM_OO_ `Idd3@ I_$k_(I jlD4lC0I_$I_(II _$I _(I _,Jdd3@ J_&k_*J jlD4lC0J_&J_*JJ _&J _*J _.O(jMO(ԽOO(_O*jOO*_OO*_O$O,O&O.MOOO _"dOOO hO"O((772 %%STRING-BASE-COMPARE-EQUAL 709 %%ARRAY-TYPE-NUMBER 700 %%ARRAY-OFFSET 691 %%ARRAY-BASE 622 %%ARRAY-TYPE-NUMBER 613 %%ARRAY-OFFSET 604 %%ARRAY-BASE 521 CL:ERROR 487 CL:ERROR 461 CL:ERROR 432 CL:ERROR 401 CL:ERROR 356 VECTOR-LENGTH 350 STRING 319 \GETBASEFIXP 293 CL:ERROR 248 VECTOR-LENGTH 242 STRING 211 \GETBASEFIXP) (390 :MESSAGE 384 :VALUE 378 :NAME 368 :EXPECTED-TYPE 363 XCL:TYPE-MISMATCH 343 CHARACTER 282 :MESSAGE 276 :VALUE 270 :NAME 260 :EXPECTED-TYPE 255 XCL:TYPE-MISMATCH 235 CHARACTER 174 :END2 150 :START2 126 :END1 107 :START1) ( 512 "Improper substring bounds: ~s ~s" 480 "End out of bounds: ~S" 453 "Improper substring bounds: ~s ~s" 425 "End out of bounds: ~S" 395 "a string, symbol or character" 373 (OR STRING CL:SYMBOL CL:CHARACTER) 287 "a string, symbol or character" 265 (OR STRING CL:SYMBOL CL:CHARACTER)) (SET-DOCUMENTATION (QUOTE CL:STRING-NOT-EQUAL) (QUOTE CL:FUNCTION) "Compare two string for case insensitive equality") CL:STRING-NOT-GREATERP :D8 (L (0 -args-)) qeka@laHlLKLhHl_OdNQh_Hl__OdOSh_Hl__OdOUh_IdbcLdagl\kaagOkaOl_agOkaOl_agOkaOl_Id0jl RId3@IBII Y -ggogIgIgo JdJd0jl RJd3@JBJJ Z -ggogJgJgo _ _OO_OoO Mj]jMMOoMO OO _O oO Oj_jOOOoOO OM_OO_ `Idd3@ I_*k_.I jlD4lC0I_*I_.II _*I _.I _2Jdd3@ J_,k_0J jlD4lC0J_,J_0JJ _,J _0J _4O.jMO.ԽOO._O0jOO0_OO0_O*O2O,O4MOOO _"M_$O"dOZMO hO*O2O" _&laO&O&dlzl ՁO&O,O4OO$ _(laO(O(dlzl ՁO(O"O.(772 %%STRING-BASE-COMPARE-EQUAL 709 %%ARRAY-TYPE-NUMBER 700 %%ARRAY-OFFSET 691 %%ARRAY-BASE 622 %%ARRAY-TYPE-NUMBER 613 %%ARRAY-OFFSET 604 %%ARRAY-BASE 521 CL:ERROR 487 CL:ERROR 461 CL:ERROR 432 CL:ERROR 401 CL:ERROR 356 VECTOR-LENGTH 350 STRING 319 \GETBASEFIXP 293 CL:ERROR 248 VECTOR-LENGTH 242 STRING 211 \GETBASEFIXP) (847 CHARACTER 808 CHARACTER 390 :MESSAGE 384 :VALUE 378 :NAME 368 :EXPECTED-TYPE 363 XCL:TYPE-MISMATCH 343 CHARACTER 282 :MESSAGE 276 :VALUE 270 :NAME 260 :EXPECTED-TYPE 255 XCL:TYPE-MISMATCH 235 CHARACTER 174 :END2 150 :START2 126 :END1 107 :START1) ( 512 "Improper substring bounds: ~s ~s" 480 "End out of bounds: ~S" 453 "Improper substring bounds: ~s ~s" 425 "End out of bounds: ~S" 395 "a string, symbol or character" 373 (OR STRING CL:SYMBOL CL:CHARACTER) 287 "a string, symbol or character" 265 (OR STRING CL:SYMBOL CL:CHARACTER)) (SET-DOCUMENTATION (QUOTE CL:STRING-NOT-GREATERP) (QUOTE CL:FUNCTION) "Case insensitive version of STRING<=") CL:STRING-NOT-LESSP :D8 (L (0 -args-)) neka@laHlLKLhHl_OdNQh_Hl__OdOSh_Hl__OdOUh_IdbcLdagl\kaagOkaOl_agOkaOl_agOkaOl_Id0jl RId3@IBII Y -ggogIgIgo JdJd0jl RJd3@JBJJ Z -ggogJgJgo _ _OO_OoO Mj]jMMOoMO OO _O oO Oj_jOOOoOO OM_OO_ `Idd3@ I_*k_.I jlD4lC0I_*I_.II _*I _.I _2Jdd3@ J_,k_0J jlD4lC0J_,J_0JJ _,J _0J _4O.jMO.ԽOO._O0jOO0_OO0_O*O2O,O4MOOO _"M_$O YO"OhO*O2O" _&laO&O&dlzl ՁO&O,O4OO$ _(laO(O(dlzl ՁO(O"O.(772 %%STRING-BASE-COMPARE-EQUAL 709 %%ARRAY-TYPE-NUMBER 700 %%ARRAY-OFFSET 691 %%ARRAY-BASE 622 %%ARRAY-TYPE-NUMBER 613 %%ARRAY-OFFSET 604 %%ARRAY-BASE 521 CL:ERROR 487 CL:ERROR 461 CL:ERROR 432 CL:ERROR 401 CL:ERROR 356 VECTOR-LENGTH 350 STRING 319 \GETBASEFIXP 293 CL:ERROR 248 VECTOR-LENGTH 242 STRING 211 \GETBASEFIXP) (843 CHARACTER 804 CHARACTER 390 :MESSAGE 384 :VALUE 378 :NAME 368 :EXPECTED-TYPE 363 XCL:TYPE-MISMATCH 343 CHARACTER 282 :MESSAGE 276 :VALUE 270 :NAME 260 :EXPECTED-TYPE 255 XCL:TYPE-MISMATCH 235 CHARACTER 174 :END2 150 :START2 126 :END1 107 :START1) ( 512 "Improper substring bounds: ~s ~s" 480 "End out of bounds: ~S" 453 "Improper substring bounds: ~s ~s" 425 "End out of bounds: ~S" 395 "a string, symbol or character" 373 (OR STRING CL:SYMBOL CL:CHARACTER) 287 "a string, symbol or character" 265 (OR STRING CL:SYMBOL CL:CHARACTER)) (SET-DOCUMENTATION (QUOTE CL:STRING-NOT-LESSP) (QUOTE CL:FUNCTION) "Case insensitive version of STRING>=") CL:STRING-RIGHT-TRIM :D8 (L (1 STRING 0 CHAR-BAG)) 7A b kjHAH@ HkAjH Hkո(46 CL:SUBSEQ 30 CL:FIND 12 VECTOR-LENGTH 5 STRING) NIL () (SET-DOCUMENTATION (QUOTE CL:STRING-RIGHT-TRIM) (QUOTE CL:FUNCTION) "Trim only on right") CL:STRING-TRIM :D8 (L (1 STRING 0 CHAR-BAG)) MA b AjYdHAI@ $IHkջJKAK@ KkԼAJL Ik԰K(66 CL:SUBSEQ 52 CL:FIND 31 CL:FIND 12 VECTOR-LENGTH 5 STRING) NIL () CL:STRING-UPCASE :D8 (L (0 -args-)) ekaqHlKJ-hHlNdM5h_I Y _O2O_ :D8 (L (0 -args-)) Meka laHlLKLhHl_OdNQh_Hl__OdOSh_Hl__OdOUh_IdbcLdagl\kaagOkaOl_agOkaOl_agOkaOl_Id0jl RId3@IBII Y -ggogIgIgo JdJd0jl RJd3@JBJJ Z -ggogJgJgo _ _OO_OoO Mj]jMMOoMO OO _O oO Oj_jOOOoOO OM_OO_ `Idd3@ I_&k_*I jlD4lC0I_&I_*II _&I _*I _.Jdd3@ J_(k_,J jlD4lC0J_(J_,JJ _(J _,J _0O*jMO*ԽOO*_O,jOO,_OO,_O&O.O(O0MOOO _"M_$O OO 7O"O*O"OhO&O.O" O(O0OO$ O"O*(772 %%STRING-BASE-COMPARE 709 %%ARRAY-TYPE-NUMBER 700 %%ARRAY-OFFSET 691 %%ARRAY-BASE 622 %%ARRAY-TYPE-NUMBER 613 %%ARRAY-OFFSET 604 %%ARRAY-BASE 521 CL:ERROR 487 CL:ERROR 461 CL:ERROR 432 CL:ERROR 401 CL:ERROR 356 VECTOR-LENGTH 350 STRING 319 \GETBASEFIXP 293 CL:ERROR 248 VECTOR-LENGTH 242 STRING 211 \GETBASEFIXP) (833 CHARACTER 816 CHARACTER 390 :MESSAGE 384 :VALUE 378 :NAME 368 :EXPECTED-TYPE 363 XCL:TYPE-MISMATCH 343 CHARACTER 282 :MESSAGE 276 :VALUE 270 :NAME 260 :EXPECTED-TYPE 255 XCL:TYPE-MISMATCH 235 CHARACTER 174 :END2 150 :START2 126 :END1 107 :START1) ( 512 "Improper substring bounds: ~s ~s" 480 "End out of bounds: ~S" 453 "Improper substring bounds: ~s ~s" 425 "End out of bounds: ~S" 395 "a string, symbol or character" 373 (OR STRING CL:SYMBOL CL:CHARACTER) 287 "a string, symbol or character" 265 (OR STRING CL:SYMBOL CL:CHARACTER)) CL:STRING>= :D8 (L (0 -args-)) Beka laHlLKLhHl_OdNQh_Hl__OdOSh_Hl__OdOUh_IdbcLdagl\kaagOkaOl_agOkaOl_agOkaOl_Id0jl RId3@IBII Y -ggogIgIgo JdJd0jl RJd3@JBJJ Z -ggogJgJgo _ _OO_OoO Mj]jMMOoMO OO _O oO Oj_jOOOoOO OM_OO_ `Idd3@ I_&k_*I jlD4lC0I_&I_*II _&I _*I _.Jdd3@ J_(k_,J jlD4lC0J_(J_,JJ _(J _,J _0O*jMO*ԽOO*_O,jOO,_OO,_O&O.O(O0MOOO _"M_$O -O"OhO&O.O" O(O0OO$ O"O*(772 %%STRING-BASE-COMPARE 709 %%ARRAY-TYPE-NUMBER 700 %%ARRAY-OFFSET 691 %%ARRAY-BASE 622 %%ARRAY-TYPE-NUMBER 613 %%ARRAY-OFFSET 604 %%ARRAY-BASE 521 CL:ERROR 487 CL:ERROR 461 CL:ERROR 432 CL:ERROR 401 CL:ERROR 356 VECTOR-LENGTH 350 STRING 319 \GETBASEFIXP 293 CL:ERROR 248 VECTOR-LENGTH 242 STRING 211 \GETBASEFIXP) (821 CHARACTER 804 CHARACTER 390 :MESSAGE 384 :VALUE 378 :NAME 368 :EXPECTED-TYPE 363 XCL:TYPE-MISMATCH 343 CHARACTER 282 :MESSAGE 276 :VALUE 270 :NAME 260 :EXPECTED-TYPE 255 XCL:TYPE-MISMATCH 235 CHARACTER 174 :END2 150 :START2 126 :END1 107 :START1) ( 512 "Improper substring bounds: ~s ~s" 480 "End out of bounds: ~S" 453 "Improper substring bounds: ~s ~s" 425 "End out of bounds: ~S" 395 "a string, symbol or character" 373 (OR STRING CL:SYMBOL CL:CHARACTER) 287 "a string, symbol or character" 265 (OR STRING CL:SYMBOL CL:CHARACTER)) CL::optimize-STRING= :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@1HHZJggIKhNIL (26 CL::SIMPLE-STRING= 20 COMPILER:PASS) () (CL:ADJOIN (QUOTE CL::optimize-STRING=) NIL) CL::optimize-STRING-EQUAL :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@1HHZJggIKhNIL (26 CL::SIMPLE-STRING-EQUAL 20 COMPILER:PASS) () (CL:ADJOIN (QUOTE CL::optimize-STRING-EQUAL) NIL) (PUTPROPS CMLSTRING FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLSTRING COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1990 1991 1993)) NIL