home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / strings.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  17.7 KB  |  1,147 lines
  1.  
  2. (CHAR  "abcdef-dg1ndh" 0)
  3. #\a
  4.  
  5. (CHAR  "abcdef-dg1ndh" 1)
  6. #\b
  7.  
  8. (CHAR  "abcdef-dg1ndh" 6)
  9. #\-
  10.  
  11. (CHAR  "abcdef-dg1ndh" 20)
  12. error
  13.  
  14. (CHAR  "abcdef-dg1ndh")
  15. error
  16.  
  17. (CHAR  "abcdef-dg1ndh" -3)
  18. error
  19.  
  20. (CHAR)
  21. error
  22.  
  23. (CHAR 2)
  24. error
  25.  
  26. (CHAR  "abcde" 2 4)
  27. error
  28.  
  29. (CHAR 'A 0)
  30. #+XCL #\A #-XCL ERROR
  31.  
  32. (CHAR 'ANNA 0)
  33. #+XCL #\A #-XCL ERROR
  34.  
  35. (SCHAR 'A 0)
  36. #+XCL #\A #-XCL ERROR
  37.  
  38. (SCHAR 'ANNA 0)
  39. #+XCL #\A #-XCL ERROR
  40.  
  41. (SCHAR  "abcdef-dg1ndh" 0)
  42. #\a
  43.  
  44. (SCHAR  "abcdef-dg1ndh" 1)
  45. #\b
  46.  
  47. (SCHAR  "abcdef-dg1ndh" 6)
  48. #\-
  49.  
  50. (SCHAR  "abcdef-dg1ndh" 20)
  51. error
  52.  
  53. (SCHAR  "abcdef-dg1ndh")
  54. error
  55.  
  56. (SCHAR  "abcdef-dg1ndh" -3)
  57. error
  58.  
  59. (SCHAR2)
  60. error
  61.  
  62. (SCHAR2 2)
  63. error
  64.  
  65. (SCHAR  "abcde" 2 4)
  66. error
  67.  
  68. (STRING=  "foo" "foo")
  69. T
  70.  
  71. (STRING=  "foo" "Foo")
  72. NIL
  73.  
  74. (STRING=  "foo" "FOO")
  75. NIL
  76.  
  77. (STRING=  "foo" "bar")
  78. NIL
  79.  
  80. (STRING=  "together" "frog" :START1 1 :END1 3 :START2 2)
  81. T
  82.  
  83. (STRING=  "abcdef" "defghi" :START1 3 :END2 3)
  84. T
  85.  
  86. (STRING=  "abcdefghi" "uvdefmgnj" :START1 3 :END1 6 :START2 2 :END2
  87. 5)
  88. T
  89.  
  90. (STRING=  "abcdefg" "abcdefg" :END2 4)
  91. NIL
  92.  
  93. (STRING=  "abcdef" "abcdef" :START1 1 :END1 4 :START2 4 :END2 1)
  94. error
  95.  
  96. (STRING-EQUAL  "foo" "foo")
  97. T
  98.  
  99. (STRING-EQUAL  "foo" "Foo")
  100. T
  101.  
  102. (STRING-EQUAL  "foo" "FOO")
  103. T
  104.  
  105. (STRING-EQUAL  "foo" "bar")
  106. NIL
  107.  
  108. (STRING-EQUAL  "absDEfg-HijM1#r" "udEFG-hIfvd" :START1 3 :END1 10 :START2
  109. 1 :END2
  110. 8)
  111. T
  112.  
  113. (STRING-EQUAL  "ABCdefg" "abcDEFG")
  114. T
  115.  
  116. (STRING-EQUAL  "ABCdefg" "abcDEFG" :START1 3)
  117. NIL
  118.  
  119. (STRING-EQUAL  "AbCdEf" "aBcDeF" :START1 5 :END1 3)
  120. error
  121.  
  122. (STRING<  "" "abcdefgh")
  123. 0
  124.  
  125. (STRING<  "a" "abcdefgh")
  126. 1
  127.  
  128. (STRING<  "abc" "abcdefgh")
  129. 3
  130.  
  131. (STRING<  "cabc" "abcdefgh")
  132. NIL
  133.  
  134. (STRING<  "abcdefgh" "abcdefgh")
  135. NIL
  136.  
  137. (STRING<  "xyzabc" "abcdefgh")
  138. NIL
  139.  
  140. (STRING<  "abc" "xyzabcdefgh")
  141. 0
  142.  
  143. (STRING<  "abcdefgh" "abcdefgh" :END1 4)
  144. 4
  145.  
  146. (STRING<  "xyzabc" "abcdefgh" :START1 3)
  147. 6
  148.  
  149. (STRING<  "abc" "xyzabcdefgh" :START2 3)
  150. 3
  151.  
  152. (STRING<  "abc" "xyzabcdefgh" :START2 3 :END2 8)
  153. 3
  154.  
  155. (STRING<  "abc" "xyzabcdefgh" :START2 3 :END2 5)
  156. NIL
  157.  
  158. (STRING<  "abcdefgh" "")
  159. NIL
  160.  
  161. (STRING<  "abcdefgh" "a")
  162. NIL
  163.  
  164. (STRING<  "abcdefgh" "abc")
  165. NIL
  166.  
  167. (STRING<  "abcdefgh" "cabc")
  168. 0
  169.  
  170. (STRING<  "abcdefgh" "xyzabc")
  171. 0
  172.  
  173. (STRING<  "xyzabcdefgh" "abc")
  174. NIL
  175.  
  176. (STRING<  "abcdefgh" "abcdefgh" :END2 4)
  177. NIL
  178.  
  179. (STRING<  "xyzabc" "abcdefgh" :START2 3)
  180. NIL
  181.  
  182. (STRING<  "abc" "xyzabcdefgh" :START2 3)
  183. 3
  184.  
  185. (STRING<  "abc" "xyzabcdefgh" :START2 3 :END2 8)
  186. 3
  187.  
  188. (STRING<  "abc" "xyzabcdefgh" :START2 3 :END2 5)
  189. NIL
  190.  
  191. (STRING<  "abcdef" "bcdefgh")
  192. 0
  193.  
  194. (STRING<  "abcdef" "abcdefgh" :START2 2)
  195. 0
  196.  
  197. (STRING<  "abcdef" "bngdabcdef" :START2 9 :END2 5)
  198. error
  199.  
  200. (STRING>  "" "abcdefgh")
  201. NIL
  202.  
  203. (STRING>  "a" "abcdefgh")
  204. NIL
  205.  
  206. (STRING>  "abc" "abcdefgh")
  207. NIL
  208.  
  209. (STRING>  "cabc" "abcdefgh")
  210. 0
  211.  
  212. (STRING>  "abcdefgh" "abcdefgh")
  213. NIL
  214.  
  215. (STRING>  "xyzabc" "abcdefgh")
  216. 0
  217.  
  218. (STRING>  "abc" "xyzabcdefgh")
  219. NIL
  220.  
  221. (STRING>  "abcdefgh" "abcdefgh" :END1 4)
  222. NIL
  223.  
  224. (STRING>  "xyzabc" "abcdefgh" :START1 3)
  225. NIL
  226.  
  227. (STRING>  "abc" "xyzabcdefgh" :START2 3)
  228. NIL
  229.  
  230. (STRING>  "abc" "xyzabcdefgh" :START2 3 :END2 8)
  231. NIL
  232.  
  233. (STRING>  "abc" "xyzabcdefgh" :START2 3 :END2 5)
  234. 2
  235.  
  236. (STRING>  "abcdefgh" "")
  237. 0
  238.  
  239. (STRING>  "abcdefgh" "a")
  240. 1
  241.  
  242. (STRING>  "abcdefgh" "abc")
  243. 3
  244.  
  245. (STRING>  "abcdefgh" "cabc")
  246. NIL
  247.  
  248. (STRING>  "abcdefgh" "xyzabc")
  249. NIL
  250.  
  251. (STRING>  "xyzabcdefgh" "abc")
  252. 0
  253.  
  254. (STRING>  "abcdefgh" "abcdefgh" :END2 4)
  255. 4
  256.  
  257. (STRING>  "xyzabc" "abcdefgh" :START2 3)
  258. 0
  259.  
  260. (STRING>  "abc" "xyzabcdefgh" :START2 3)
  261. NIL
  262.  
  263. (STRING>  "abc" "xyzabcdefgh" :START2 3 :END2 8)
  264. NIL
  265.  
  266. (STRING>  "abc" "xyzabcdefgh" :START2 3 :END2 5)
  267. 2
  268.  
  269. (STRING>  "abcde" "bc")
  270. NIL
  271.  
  272. (STRING>  "bcdef" "abcde")
  273. 0
  274.  
  275. (STRING>  "bcdef" "abcdef")
  276. 0
  277.  
  278. (STRING>  "abcdefghij" "abcdefgh" :START1 1)
  279. 1
  280.  
  281. (STRING>  "ghijkl" "xyzabcd" :START2 6 :END2 4)
  282. error
  283.  
  284. (STRING<  "" "abcdefgh")
  285. 0
  286.  
  287. (STRING<=  "a" "abcdefgh")
  288. 1
  289.  
  290. (STRING<=  "abc" "abcdefgh")
  291. 3
  292.  
  293. (STRING<=  "aaabce" "aaabcdefgh")
  294. NIL
  295.  
  296. (STRING<=  "cabc" "abcdefgh")
  297. NIL
  298.  
  299. (STRING<=  "abcdefgh" "abcdefgh")
  300. 8
  301.  
  302. (STRING<=  "xyzabc" "abcdefgh")
  303. NIL
  304.  
  305. (STRING<=  "abc" "xyzabcdefgh")
  306. 0
  307.  
  308. (STRING<=  "abcdefgh" "abcdefgh" :END1 4)
  309. 4
  310.  
  311. (STRING<=  "xyzabc" "abcdefgh" :START1 3)
  312. 6
  313.  
  314. (STRING<=  "abc" "xyzabcdefgh" :START2 3)
  315. 3
  316.  
  317. (STRING<=  "abc" "xyzabcdefgh" :START2 3 :END2 8)
  318. 3
  319.  
  320. (STRING<=  "abc" "xyzabcdefgh" :START2 3 :END2 5)
  321. NIL
  322.  
  323. (STRING<=  "abcdefgh" "")
  324. NIL
  325.  
  326. (STRING<=  "abcdefgh" "a")
  327. NIL
  328.  
  329. (STRING<=  "abcdefgh" "abc")
  330. NIL
  331.  
  332. (STRING<=  "abcdefgh" "cabc")
  333. 0
  334.  
  335. (STRING<=  "abcdefgh" "xyzabc")
  336. 0
  337.  
  338. (STRING<=  "xyzabcdefgh" "abc")
  339. NIL
  340.  
  341. (STRING<=  "abcdefgh" "abcdefgh" :END2 4)
  342. NIL
  343.  
  344. (STRING<=  "xyzabc" "abcdefgh" :START2 3)
  345. NIL
  346.  
  347. (STRING<=  "abc" "xyzabcdefgh" :START2 3)
  348. 3
  349.  
  350. (STRING<=  "abc" "xyzabcdefgh" :START2 3 :END2 8)
  351. 3
  352.  
  353. (STRING<=  "abc" "xyzabcdefgh" :START2 3 :END2 5)
  354. NIL
  355.  
  356. (STRING<=  "abcdef" "bcdefgh")
  357. 0
  358.  
  359. (STRING<=  "abcdef" "abcdefgh" :START2 2)
  360. 0
  361.  
  362. (STRING<=  "abcdef" "bngdabcdef" :START2 9 :END2 5)
  363. error
  364.  
  365.  
  366. (STRING>= "" "abcdefgh")
  367. NIL
  368.  
  369. (STRING>= "a" "abcdefgh")
  370. NIL
  371.  
  372. (STRING>= "abc" "abcdefgh")
  373. NIL
  374.  
  375. (STRING>= "cabc" "abcdefgh")
  376. 0
  377.  
  378. (STRING>= "abcdefgh" "abcdefgh")
  379. 8
  380.  
  381. (STRING>= "xyzabc" "abcdefgh")
  382. 0
  383.  
  384. (STRING>= "abc" "xyzabcdefgh")
  385. NIL
  386.  
  387. (STRING>= "abcdefgh" "abcdefgh" :END1 4)
  388. NIL
  389.  
  390. (STRING>= "xyzabc" "abcdefgh" :START1 3)
  391. NIL
  392.  
  393. (STRING>= "abc" "xyzabcdefgh" :START2 3)
  394. NIL
  395.  
  396. (STRING>= "abc" "xyzabcdefgh" :START2 3 :END2 8)
  397. NIL
  398.  
  399. (STRING>= "abc" "xyzabcdefgh" :START2 3 :END2 5)
  400. 2
  401.  
  402. (STRING>= "abcdefgh" "")
  403. 0
  404.  
  405. (STRING>= "abcdefgh" "a")
  406. 1
  407.  
  408. (STRING>= "abcdefgh" "abc")
  409. 3
  410.  
  411. (STRING>= "abcdefgh" "cabc")
  412. NIL
  413.  
  414. (STRING>= "abcdefgh" "xyzabc")
  415. NIL
  416.  
  417. (STRING>= "xyzabcdefgh" "abc")
  418. 0
  419.  
  420. (STRING>= "abcdefgh" "abcdefgh" :END2 4)
  421. 4
  422.  
  423. (STRING>= "xyzabc" "abcdefgh" :START2 3)
  424. 0
  425.  
  426. (STRING>= "xyzabc" "abcdefgh" :START1 3)
  427. NIL
  428.  
  429. (STRING>= "abc" "xyzabcdefgh" :START2 3)
  430. NIL
  431.  
  432. (STRING>= "abc" "xyzabcdefgh" :START2 3 :END2 8)
  433. NIL
  434.  
  435. (STRING>= "abc" "xyzabcdefgh" :START2 3 :END2 5)
  436. 2
  437.  
  438. (STRING>= "bcdef" "abcdef")
  439. 0
  440.  
  441. (STRING>= "abcdefghij" "abcdefgh" :START1 1)
  442. 1
  443.  
  444. (STRING>= "ghijkl" "xyzabcd" :START2 6 :END2 4)
  445. ERROR
  446.  
  447. (STRING/= "" "abcdefgh")
  448. 0
  449.  
  450. (STRING/= "a" "abcdefgh")
  451. 1
  452.  
  453. (STRING/= "abc" "abcdefgh")
  454. 3
  455.  
  456. (STRING/= "cabc" "abcdefgh")
  457. 0
  458.  
  459. (STRING/= "abcdefgh" "abcdefgh")
  460. NIL
  461.  
  462. (STRING/= "xyzabc" "abcdefgh")
  463. 0
  464.  
  465. (STRING/= "abc" "xyzabcdefgh")
  466. 0
  467.  
  468. (STRING/= "abcdefgh" "abcdefgh" :END1 4)
  469. 4
  470.  
  471. (STRING/= "xyzabc" "abcdefgh" :START1 3)
  472. 6
  473.  
  474. (STRING/= "abc" "xyzabcdefgh" :START2 3)
  475. 3
  476.  
  477. (STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 8)
  478. 3
  479.  
  480. (STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 5)
  481. 2
  482.  
  483. (STRING/= "abcdefgh" "")
  484. 0
  485.  
  486. (STRING/= "abcdefgh" "a")
  487. 1
  488.  
  489. (STRING/= "abcdefgh" "abc")
  490. 3
  491.  
  492. (STRING/= "abcdefgh" "cabc")
  493. 0
  494.  
  495. (STRING/= "abcdefgh" "xyzabc")
  496. 0
  497.  
  498. (STRING/= "xyzabcdefgh" "abc")
  499. 0
  500.  
  501. (STRING/= "abcdefgh" "abcdefgh" :END2 4)
  502. 4
  503.  
  504. (STRING/= "xyzabc" "abcdefgh" :START2 3)
  505. 0
  506.  
  507. (STRING/= "abc" "xyzabcdefgh" :START2 3)
  508. 3
  509.  
  510. (STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 8)
  511. 3
  512.  
  513. (STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 5)
  514. 2
  515.  
  516. (STRING/= "abcdefghi" "uvdefmgnj" :START1 3 :END1 6 :START2 2 :END2 5)
  517. NIL
  518.  
  519. (STRING/= "abcdefg" "abcdefg" :END2 4)
  520. 4
  521.  
  522. (STRING/= "abcdef" "abcdef" :START1 1 :END1 4 :START2 4 :END2 1)
  523. ERROR
  524.  
  525. (STRING-LESSP "" "abcDEFgh")
  526. 0
  527.  
  528. (STRING-LESSP "a" "Abcdefgh")
  529. 1
  530.  
  531. (STRING-LESSP "abc" "aBcDEfgh")
  532. 3
  533.  
  534. (STRING-LESSP "cABc" "aBCDefgh")
  535. NIL
  536.  
  537. (STRING-LESSP "abCDeFgh" "abCDEfgh")
  538. NIL
  539.  
  540. (STRING-LESSP "xyzAbc" "ABcCDfgh")
  541. NIL
  542.  
  543. (STRING-LESSP "aBC" "xYZAbcdEfgh")
  544. 0
  545.  
  546. (STRING-LESSP "abcDEfgh" "abcDEfgh" :END1 4)
  547. 4
  548.  
  549. (STRING-LESSP "XYZabc" "ABcdefgh" :START1 3)
  550. 6
  551.  
  552. (STRING-LESSP "aBc" "xyZABcdefgh" :START2 3)
  553. 3
  554.  
  555. (STRING-LESSP "abc" "xyzabCDEcdefgh" :START2 3 :END2 8)
  556. 3
  557.  
  558. (STRING-LESSP "abc" "xyzABcdefgh" :START2 3 :END2 5)
  559. NIL
  560.  
  561. (STRING-LESSP "abcdefgh" "")
  562. NIL
  563.  
  564. (STRING-LESSP "Abcdefgh" "a")
  565. NIL
  566.  
  567. (STRING-LESSP "ABCdefgh" "abc")
  568. NIL
  569.  
  570. (STRING-LESSP "ABCdefgh" "cabc")
  571. 0
  572.  
  573. (STRING-LESSP "abcdefgh" "xyzABC")
  574. 0
  575.  
  576. (STRING-LESSP "xyzABCdefgh" "abc")
  577. NIL
  578.  
  579. (STRING-LESSP "abcdEFgh" "abcdeFGh" :END2 4)
  580. NIL
  581.  
  582. (STRING-LESSP "xyzaBC" "abCDefgh" :START2 3)
  583. NIL
  584.  
  585. (STRING-LESSP "ABC" "xyzabcdefgh" :START2 3)
  586. 3
  587.  
  588. (STRING-LESSP "ABC" "xyzabcdefgh" :START2 3 :END2 8)
  589. 3
  590.  
  591. (STRING-LESSP "ABC" "xyzabcdefgh" :START2 3 :END2 5)
  592. NIL
  593.  
  594. (STRING-LESSP "aBCDef" "bcdefgh")
  595. 0
  596.  
  597. (STRING-LESSP "aBCDef" "abcdefgh" :START2 2)
  598. 0
  599.  
  600. (STRING-LESSP "aBCDef" "bngdabcdef" :START2 9 :END2 5)
  601. ERROR
  602.  
  603. (STRING-GREATERP "" "abcdefgh")
  604. NIL
  605.  
  606. (STRING-GREATERP "A" "abcdefgh")
  607. NIL
  608.  
  609. (STRING-GREATERP "ABc" "abcdefgh")
  610. NIL
  611.  
  612. (STRING-GREATERP "CAbc" "abcdefgh")
  613. 0
  614.  
  615. (STRING-GREATERP "abcdefgh" "abcDEFgh")
  616. NIL
  617.  
  618. (STRING-GREATERP "xyzabc" "abCDEfgh")
  619. 0
  620.  
  621. (STRING-GREATERP "ABC" "xyzabcdefgh")
  622. NIL
  623.  
  624. (STRING-GREATERP "ABCdefgh" "abcdefgh" :END1 4)
  625. NIL
  626.  
  627. (STRING-GREATERP "xyzaBc" "ABCdefgh" :START1 3)
  628. NIL
  629.  
  630. (STRING-GREATERP "abc" "xyzABcdefgh" :START2 3)
  631. NIL
  632.  
  633. (STRING-GREATERP "abc" "xyzABcdefgh" :START2 3 :END2 8)
  634. NIL
  635.  
  636. (STRING-GREATERP "abc" "xyZAbcdefgh" :START2 3 :END2 5)
  637. 2
  638.  
  639. (STRING-GREATERP "abcdefgh" "")
  640. 0
  641.  
  642. (STRING-GREATERP "Abcdefgh" "a")
  643. 1
  644.  
  645. (STRING-GREATERP "ABCdefgh" "abc")
  646. 3
  647.  
  648. (STRING-GREATERP "ABCdefgh" "cabc")
  649. NIL
  650.  
  651. (STRING-GREATERP "ABCdefgh" "xyzabc")
  652. NIL
  653.  
  654. (STRING-GREATERP "xyzabcdefgh" "Abc")
  655. 0
  656.  
  657. (STRING-GREATERP "abcdefgh" "aBCDefgh" :END2 4)
  658. 4
  659.  
  660. (STRING-GREATERP "xyzabc" "abcdEFgh" :START2 3)
  661. 0
  662.  
  663. (STRING-GREATERP "ABC" "xyzabcdefgh" :START2 3)
  664. NIL
  665.  
  666. (STRING-GREATERP "ABC" "xyzabcdefgh" :START2 3 :END2 8)
  667. NIL
  668.  
  669. (STRING-GREATERP "ABC" "xyzabcdefgh" :START2 3 :END2 5)
  670. 2
  671.  
  672. (STRING-GREATERP "bCDEf" "abcde")
  673. 0
  674.  
  675. (STRING-GREATERP "bcDEF" "abcdef")
  676. 0
  677.  
  678. (STRING-GREATERP "abCDEfghij" "abcdefgh" :START1 1)
  679. 1
  680.  
  681. (STRING-GREATERP "ghijKl" "xyzabcd" :START2 6 :END2 4)
  682. ERROR
  683.  
  684. (STRING-NOT-GREATERP  "" "abcdefgh")
  685. 0
  686.  
  687. (STRING-NOT-GREATERP  "A" "abcdefgh")
  688. 1
  689.  
  690. (STRING-NOT-GREATERP  "aBC" "abcdefgh")
  691. 3
  692.  
  693. (STRING-NOT-GREATERP  "CABc" "abcdefgh")
  694. NIL
  695.  
  696. (STRING-NOT-GREATERP  "abcDEFgh" "abcdefgh")
  697. 8
  698.  
  699. (STRING-NOT-GREATERP  "xyzabc" "ABcdefgh")
  700. NIL
  701.  
  702. (STRING-NOT-GREATERP  "abc" "xyzABcdefgh")
  703. 0
  704.  
  705. (STRING-NOT-GREATERP  "ABCDEFgh" "abcdefgh" :END1 4)
  706. 4
  707.  
  708. (STRING-NOT-GREATERP  "xyzabc" "aBCDefgh" :START1 3)
  709. 6
  710.  
  711. (STRING-NOT-GREATERP  "ABC" "xyzabcdefgh" :START2 3)
  712. 3
  713.  
  714. (STRING-NOT-GREATERP  "ABC" "xyzabcdefgh" :START2 3 :END2 8)
  715. 3
  716.  
  717. (STRING-NOT-GREATERP  "ABC" "xyzabcdefgh" :START2 3 :END2 5)
  718. NIL
  719.  
  720. (STRING-NOT-GREATERP  "abcdefgh" "")
  721. NIL
  722.  
  723. (STRING-NOT-GREATERP  "Abcdefgh" "a")
  724. NIL
  725.  
  726. (STRING-NOT-GREATERP  "ABCdefgh" "abc")
  727. NIL
  728.  
  729. (STRING-NOT-GREATERP  "ABCdefgh" "cabc")
  730. 0
  731.  
  732. (STRING-NOT-GREATERP  "ABCdefgh" "xyzabc")
  733. 0
  734.  
  735. (STRING-NOT-GREATERP  "xyzABCdefgh" "abc")
  736. NIL
  737.  
  738. (STRING-NOT-GREATERP  "abcdeFgh" "abcdefgh" :END2 4)
  739. NIL
  740.  
  741. (STRING-NOT-GREATERP  "xyzABC" "abcdefgh" :START2 3)
  742. NIL
  743.  
  744. (STRING-NOT-GREATERP  "ABC" "xyzabcdefgh" :START2 3)
  745. 3
  746.  
  747. (STRING-NOT-GREATERP  "ABC" "xyzabcdefgh" :START2 3 :END2 8)
  748. 3
  749.  
  750. (STRING-NOT-GREATERP  "ABC" "xyzabcdefgh" :START2 3 :END2 5)
  751. NIL
  752.  
  753. (STRING-NOT-GREATERP  "abcDEF" "bcdefgh")
  754. 0
  755.  
  756. (STRING-NOT-GREATERP  "abcDEF" "abcdefgh" :START2 2)
  757. 0
  758.  
  759. (STRING-NOT-GREATERP  "abcdef" "bngDAbcdef" :START2 9 :END2 5)
  760. error
  761.  
  762. (STRING-NOT-LESSP  "" "abcdefgh")
  763. NIL
  764.  
  765. (STRING-NOT-LESSP  "a" "Abcdefgh")
  766. NIL
  767.  
  768. (STRING-NOT-LESSP  "ABC" "abcdefgh")
  769. NIL
  770.  
  771. (STRING-NOT-LESSP  "CABc" "abcdefgh")
  772. 0
  773.  
  774. (STRING-NOT-LESSP  "ABCdefgh" "abcdefgh")
  775. 8
  776.  
  777. (STRING-NOT-LESSP  "xyzABC" "abcdefgh")
  778. 0
  779.  
  780. (STRING-NOT-LESSP  "ABC" "xyzabcdefgh")
  781. NIL
  782.  
  783. (STRING-NOT-LESSP  "ABCdefgh" "abcdefgh" :END1 4)
  784. NIL
  785.  
  786. (STRING-NOT-LESSP  "xyzABC" "abcdefgh" :START1 3)
  787. NIL
  788.  
  789. (STRING-NOT-LESSP  "ABC" "xyzabcdefgh" :START2 3)
  790. NIL
  791.  
  792. (STRING-NOT-LESSP  "ABC" "xyzabcdefgh" :START2 3 :END2 8)
  793. NIL
  794.  
  795. (STRING-NOT-LESSP  "ABC" "xyzabcdefgh" :START2 3 :END2 5)
  796. 2
  797.  
  798. (STRING-NOT-LESSP  "abcdefgh" "")
  799. 0
  800.  
  801. (STRING-NOT-LESSP  "Abcdefgh" "a")
  802. 1
  803.  
  804. (STRING-NOT-LESSP  "ABCdefgh" "abc")
  805. 3
  806.  
  807. (STRING-NOT-LESSP  "abCDEfgh" "cabc")
  808. NIL
  809.  
  810. (STRING-NOT-LESSP  "aBCdefgh" "xyzabc")
  811. NIL
  812.  
  813. (STRING-NOT-LESSP  "xyzABcdefgh" "abc")
  814. 0
  815.  
  816. (STRING-NOT-LESSP  "abCDEfgh" "abcdefgh" :END2 4)
  817. 4
  818.  
  819. (STRING-NOT-LESSP  "xyzABc" "abcdefgh" :START2 3)
  820. 0
  821.  
  822. (STRING-NOT-LESSP  "ABC" "xyzabcdefgh" :START2 3)
  823. NIL
  824.  
  825. (STRING-NOT-LESSP  "ABC" "xyzabcdefgh" :START2 3 :END2 8)
  826. NIL
  827.  
  828. (STRING-NOT-LESSP  "ABC" "xyzabcdefgh" :START2 3 :END2 5)
  829. 2
  830.  
  831. (STRING-NOT-LESSP  "bCDef" "abcdef")
  832. 0
  833.  
  834. (STRING-NOT-LESSP  "ABCdefghij" "abcdefgh" :START1 1)
  835. 1
  836.  
  837. (STRING-NOT-LESSP  "ghIjkl" "xyzabcd" :START2 6 :END2 4)
  838. error
  839.  
  840. (STRING-NOT-EQUAL  "" "abcdefgh")
  841. 0
  842.  
  843. (STRING-NOT-EQUAL  "A" "abcdefgh")
  844. 1
  845.  
  846. (STRING-NOT-EQUAL  "ABc" "abcdefgh")
  847. 3
  848.  
  849. (STRING-NOT-EQUAL  "cABc" "abcdefgh")
  850. 0
  851.  
  852. (STRING-NOT-EQUAL  "ABCdefgh" "abcdefgh")
  853. NIL
  854.  
  855. (STRING-NOT-EQUAL  "xyzABc" "abcdefgh")
  856. 0
  857.  
  858. (STRING-NOT-EQUAL  "ABC" "xyzabcdefgh")
  859. 0
  860.  
  861. (STRING-NOT-EQUAL  "ABCdefgh" "abcdefgh" :END1 4)
  862. 4
  863.  
  864. (STRING-NOT-EQUAL  "xyzaBC" "abcdefgh" :START1 3)
  865. 6
  866.  
  867. (STRING-NOT-EQUAL  "ABC" "xyzabcdefgh" :START2 3)
  868. 3
  869.  
  870. (STRING-NOT-EQUAL  "ABC" "xyzabcdefgh" :START2 3 :END2 8)
  871. 3
  872.  
  873. (STRING-NOT-EQUAL  "ABC" "xyzabcdefgh" :START2 3 :END2 5)
  874. 2
  875.  
  876. (STRING-NOT-EQUAL  "abcdefgh" "")
  877. 0
  878.  
  879. (STRING-NOT-EQUAL  "Abcdefgh" "a")
  880. 1
  881.  
  882. (STRING-NOT-EQUAL  "aBCdefgh" "abc")
  883. 3
  884.  
  885. (STRING-NOT-EQUAL  "abcdefgh" "cABc")
  886. 0
  887.  
  888. (STRING-NOT-EQUAL  "abcdefgh" "xyzAbc")
  889. 0
  890.  
  891. (STRING-NOT-EQUAL  "xyzabcdefgh" "ABC")
  892. 0
  893.  
  894. (STRING-NOT-EQUAL  "abcdefgh" "abcDEFgh" :END2 4)
  895. 4
  896.  
  897. (STRING-NOT-EQUAL  "xyzabc" "aBCDefgh" :START2 3)
  898. 0
  899.  
  900. (STRING-NOT-EQUAL  "abc" "xyzABCdefgh" :START2 3)
  901. 3
  902.  
  903. (STRING-NOT-EQUAL  "abc" "xyzABCdefgh" :START2 3 :END2 8)
  904. 3
  905.  
  906. (STRING-NOT-EQUAL  "abc" "xyzABCdefgh" :START2 3 :END2 5)
  907. 2
  908.  
  909. (STRING/=  "abcdefghi" "uvdEFmgnj" :START1 3 :END1 6 :START2 2 :END2 5)
  910. 4
  911.  
  912. (STRING/=  "abcdefg" "abcDEfg" :END2 4)
  913. 3
  914.  
  915. (STRING/=  "abcdef" "abCDef" :START1 1 :END1 4 :START2 4 :END2 1)
  916. error
  917.  
  918. (STRING-TRIM   (QUOTE (#\SPACE #\TAB #\NEWLINE)) " garbanzo beans
  919.    ")
  920. "garbanzo beans"
  921.  
  922. (STRING-TRIM   " (*)" " ( *three(siily) words* ) ")
  923. "three(siily) words"
  924.  
  925. (STRING-TRIM   (QUOTE A) "ababa")
  926. error
  927.  
  928. (STRING-TRIM   (QUOTE (A)) "ababa")
  929. #+XCL error #+CLISP "ababa" #-(or XCL CLISP) UNKNOWN
  930.  
  931. (STRING-TRIM   "a" "ababa")
  932. "bab"
  933.  
  934. (STRING-TRIM   "c e" "    ceabceabce    c")
  935. "abceab"
  936.  
  937. (STRING-TRIM   (QUOTE (#\a)) "abcd")
  938. "bcd"
  939.  
  940. (STRING-TRIM   (QUOTE (#\a)) "xyzabcd")
  941. "xyzabcd"
  942.  
  943. (STRING-TRIM   (QUOTE (#\a)) "abcda")
  944. "bcd"
  945.  
  946. (STRING-LEFT-TRIM   (QUOTE (#\SPACE #\TAB #\NEWLINE)) " garbanzo beans
  947.    ")
  948. "garbanzo beans
  949.    "
  950.  
  951. (STRING-LEFT-TRIM   " (*)" " ( *three(siily) words* ) ")
  952. "three(siily) words* ) "
  953.  
  954. (STRING-LEFT-TRIM   (QUOTE A) "ababa")
  955. error
  956.  
  957. (STRING-LEFT-TRIM   (QUOTE (A)) "ababa")
  958. #+XCL error #+CLISP "ababa" #-(or XCL CLISP) UNKNOWN
  959.  
  960. (STRING-LEFT-TRIM   "a" "ababa")
  961. "baba"
  962.  
  963. (STRING-LEFT-TRIM   "c e" "    ceabceabce    c")
  964. "abceabce    c"
  965.  
  966. (STRING-LEFT-TRIM   (QUOTE (#\a)) "abcd")
  967. "bcd"
  968.  
  969. (STRING-LEFT-TRIM   (QUOTE (#\a)) "xyzabcd")
  970. "xyzabcd"
  971.  
  972. (STRING-LEFT-TRIM   (QUOTE (#\a)) "abcda")
  973. "bcda"
  974.  
  975. (STRING-RIGHT-TRIM   (QUOTE (#\SPACE #\TAB #\NEWLINE)) " garbanzo beans
  976.    ")
  977. " garbanzo beans"
  978.  
  979. (STRING-RIGHT-TRIM   " (*)" " ( *three(siily) words* ) ")
  980. " ( *three(siily) words"
  981.  
  982. (STRING-RIGHT-TRIM   (QUOTE A) "ababa")
  983. error
  984.  
  985. (STRING-RIGHT-TRIM   (QUOTE (A)) "ababa")
  986. #+XCL error #+CLISP "ababa" #-(or XCL CLISP) UNKNOWN
  987.  
  988. (STRING-RIGHT-TRIM   "a" "ababa")
  989. "abab"
  990.  
  991. (STRING-RIGHT-TRIM   "c e" "    ceabceabce    c")
  992. "    ceabceab"
  993.  
  994. (STRING-RIGHT-TRIM   (QUOTE (#\a)) "abcd")
  995. "abcd"
  996.  
  997. (STRING-RIGHT-TRIM   (QUOTE (#\a)) "xyzabcd")
  998. "xyzabcd"
  999.  
  1000. (STRING-RIGHT-TRIM   (QUOTE (#\a)) "abcda")
  1001. "abcd"
  1002.  
  1003. (STRING-UPCASE  "abCD efGh-ij")
  1004. "ABCD EFGH-IJ"
  1005.  
  1006. (STRING-UPCASE  "abCD efGh-ij" :START 5)
  1007. "abCD EFGH-IJ"
  1008.  
  1009. (STRING-UPCASE  "abCD efGh-ij" :END 5)
  1010. "ABCD efGh-ij"
  1011.  
  1012. (STRING-UPCASE  "abCD efGh-ij" :START 1 :END 6)
  1013. "aBCD EfGh-ij"
  1014.  
  1015. (STRING-UPCASE  "abCD efGh-ij" :START 6 :END 1)
  1016. error
  1017.  
  1018. (STRING-UPCASE  "abCD efGh-ij" :START 3 :END 3)
  1019. "abCD efGh-ij"
  1020.  
  1021. (STRING-DOWNCASE  "abCD efGh-ij")
  1022. "abcd efgh-ij"
  1023.  
  1024. (STRING-DOWNCASE  "abCD efGh-ij" :START 3)
  1025. "abCd efgh-ij"
  1026.  
  1027. (STRING-DOWNCASE  "abCD efGh-ij" :END 3)
  1028. "abcD efGh-ij"
  1029.  
  1030. (STRING-DOWNCASE  "abCD efGh-ij" :START 3 :END 3)
  1031. "abCD efGh-ij"
  1032.  
  1033. (STRING-DOWNCASE  "abCD efGh-ij" :START 1 :END 6)
  1034. "abcd efGh-ij"
  1035.  
  1036. (STRING-DOWNCASE  "abCD efGh-ij" :START 6 :END 1)
  1037. error
  1038.  
  1039. (STRING-CAPITALIZE  "abcd def g hi")
  1040. "Abcd Def G Hi"
  1041.  
  1042. (STRING-CAPITALIZE  "abCd dEf G hi")
  1043. "Abcd Def G Hi"
  1044.  
  1045. (STRING-CAPITALIZE  "Abcd Def G Hi")
  1046. "Abcd Def G Hi"
  1047.  
  1048. (STRING-CAPITALIZE  "abcd def g hi" :START 6)
  1049. "abcd dEf G Hi"
  1050.  
  1051. (STRING-CAPITALIZE  "abcd def g hi" :END 6)
  1052. "Abcd Def g hi"
  1053.  
  1054. (STRING-CAPITALIZE  "abcd def g hi" :START 2 :END 10)
  1055. "abCd Def G hi"
  1056.  
  1057. (STRING-CAPITALIZE  "abcd def g hi" :START 10 :END 2)
  1058. error
  1059.  
  1060. (STRING-CAPITALIZE  "don't")
  1061. "Don'T"
  1062.  
  1063. (STRING-CAPITALIZE  "DON'T")
  1064. "Don'T"
  1065.  
  1066. (STRING-CAPITALIZE  "34a 5BC")
  1067. "34a 5bc"
  1068.  
  1069. (STRING  1)
  1070. error
  1071.  
  1072. (STRING  (QUOTE A))
  1073. "A"
  1074.  
  1075. (STRING  #\a)
  1076. "a"
  1077.  
  1078. (STRING  "abc")
  1079. "abc"
  1080.  
  1081. (NSTRING-UPCASE  "abCD efGh-ij")   "ABCD EFGH-IJ"
  1082.  
  1083. (NSTRING-UPCASE  "abCD efGh-ij" :START 5)   "abCD EFGH-IJ"
  1084.  
  1085. (NSTRING-UPCASE  "abCD efGh-ij" :END 5)   "ABCD efGh-ij"
  1086.  
  1087. (NSTRING-UPCASE  "abCD efGh-ij" :START6 :END 1)   ERROR
  1088.  
  1089. (NSTRING-UPCASE  "abCD efGh-ij" :START 3 :END 3)   "abCD efGh-ij"
  1090.  
  1091. (NSTRING-DOWNCASE  "abCD efGh-ij")   "abcd efgh-ij"
  1092.  
  1093. (NSTRING-DOWNCASE  "abCD efGh-ij" :START 3)   "abCd efgh-ij"
  1094.  
  1095. (NSTRING-UPCASE  "abCD efGh-ij" :START 1 :END 6)   "aBCD EfGh-ij"
  1096.  
  1097. (NSTRING-DOWNCASE  "abCD efGh-ij" :END 3)   "abcD efGh-ij"
  1098.  
  1099. (NSTRING-DOWNCASE  "abCd efGh-ij" :START 3 :END 3)   "abCd efGh-ij"
  1100.  
  1101. (NSTRING-DOWNCASE  "abCd efGh-ij" :START 1 :END 6)   "abcd efGh-ij"
  1102.  
  1103. (NSTRING-DOWNCASE  "abCD efGh-ij" :START 6 :END 1)   ERROR
  1104.  
  1105. (NSTRING-DOWNCASE  "abCD efGh-ij" :START NIL :END NIL)
  1106. #+(or XCL AKCL) "abcd efgh-ij" #-(or XCL AKCL) ERROR
  1107.  
  1108. (NSTRING-UPCASE  "abDC efGh-oj")   "ABDC EFGH-OJ"
  1109.  
  1110. (NSTRING-UPCASE "abCD efGh-ij" :START 1 :END 6)   "aBCD EfGh-ij"
  1111.  
  1112. (NSTRING-UPCASE  "abCD efGh-fg" :START 1 :END 6)   "aBCD EfGh-fg"
  1113.  
  1114. (NSTRING-UPCASE "abCD efGh-ef" :START 3 :END 3)   "abCD efGh-ef"
  1115.  
  1116. (NSTRING-UPCASE  "abCD efGh-ef" :START 3 :END 3)   "abCD efGh-ef"
  1117.  
  1118. (NSTRING-UPCASE  "abCD efGh-ef" :START 3 :END 3)   "abCD efGh-ef"
  1119.  
  1120. (NSTRING-UPCASE  "abCD efGh-ef" :START 3 :END 1)   ERROR
  1121.  
  1122. (NSTRING-UPCASE  "abCD efGh-ef" :START NIL :END NIL)
  1123. #+(or XCL AKCL) "ABCD EFGH-EF" #-(or XCL AKCL) ERROR
  1124.  
  1125. (NSTRING-DOWNCASE  "saBG efGh-ef")   "sabg efgh-ef"
  1126.  
  1127. (NSTRING-DOWNCASE  "dfGV efGh-ef" :START 1 :END 6)   "dfgv efGh-ef"
  1128.  
  1129. (NSTRING-DOWNCASE  "fgCD efGf-ef" :START 1 :END 3)   "fgcD efGf-ef"
  1130.  
  1131. (NSTRING-DOWNCASE  "dfCF edFg-fg" :START NIL :END NIL)
  1132. #+(or XCL AKCL) "dfcf edfg-fg" #-(or XCL AKCL) ERROR
  1133.  
  1134. (NSTRING-DOWNCASE  "fgHG edgf-fg" :START 5 :END 1)   ERROR
  1135.  
  1136. (NSTRING-DOWNCASE  "scDF edFG-ef" :START 1)   "scdf edfg-ef"
  1137.  
  1138. (NSTRING-DOWNCASE  "fgHG edFG-ef" :END 4)   "fghg edFG-ef"
  1139.  
  1140. (NSTRING-CAPITALIZE  "fg hgf fgh")   "Fg Hgf Fgh"
  1141.  
  1142. (LET ((X "ABCDEF"))
  1143.      (NSTRING-DOWNCASE X)
  1144.      X)
  1145. "abcdef"
  1146.  
  1147.