/[gcl]/gcl/tests/strings.tst
ViewVC logotype

Diff of /gcl/tests/strings.tst

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Thu Dec 20 20:29:54 2001 UTC revision 1.2 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 0  Line 1 
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    #+XCL 0 #-XCL T
124    
125    (STRING<  "a" "abcdefgh")
126    #+XCL 1 #-XCL T
127    
128    (STRING<  "abc" "abcdefgh")
129    #+XCL 3 #-XCL T
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    #+XCL 0 #-XCL T
142    
143    (STRING<  "abcdefgh" "abcdefgh" :END1 4)
144    #+XCL 4 #-XCL T
145    
146    (STRING<  "xyzabc" "abcdefgh" :START1 3)
147    #+XCL 6 #-XCL T
148    
149    (STRING<  "abc" "xyzabcdefgh" :START2 3)
150    #+XCL 3 #-XCL T
151    
152    (STRING<  "abc" "xyzabcdefgh" :START2 3 :END2 8)
153    #+XCL 3 #-XCL T
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    #+XCL 0 #-XCL T
169    
170    (STRING<  "abcdefgh" "xyzabc")
171    #+XCL 0 #-XCL T
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    #+XCL 3 #-XCL T
184    
185    (STRING<  "abc" "xyzabcdefgh" :START2 3 :END2 8)
186    #+XCL 3 #-XCL T
187    
188    (STRING<  "abc" "xyzabcdefgh" :START2 3 :END2 5)
189    NIL
190    
191    (STRING<  "abcdef" "bcdefgh")
192    #+XCL 0 #-XCL T
193    
194    (STRING<  "abcdef" "abcdefgh" :START2 2)
195    #+XCL 0 #-XCL T
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    #+XCL 0 #-XCL T
211    
212    (STRING>  "abcdefgh" "abcdefgh")
213    NIL
214    
215    (STRING>  "xyzabc" "abcdefgh")
216    #+XCL 0 #-XCL T
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    #+XCL 2 #-XCL T
235    
236    (STRING>  "abcdefgh" "")
237    #+XCL 0 #-XCL T
238    
239    (STRING>  "abcdefgh" "a")
240    #+XCL 1 #-XCL T
241    
242    (STRING>  "abcdefgh" "abc")
243    #+XCL 3 #-XCL T
244    
245    (STRING>  "abcdefgh" "cabc")
246    NIL
247    
248    (STRING>  "abcdefgh" "xyzabc")
249    NIL
250    
251    (STRING>  "xyzabcdefgh" "abc")
252    #+XCL 0 #-XCL T
253    
254    (STRING>  "abcdefgh" "abcdefgh" :END2 4)
255    #+XCL 4 #-XCL T
256    
257    (STRING>  "xyzabc" "abcdefgh" :START2 3)
258    #+XCL 0 #-XCL T
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    #+XCL 2 #-XCL T
268    
269    (STRING>  "abcde" "bc")
270    NIL
271    
272    (STRING>  "bcdef" "abcde")
273    #+XCL 0 #-XCL T
274    
275    (STRING>  "bcdef" "abcdef")
276    #+XCL 0 #-XCL T
277    
278    (STRING>  "abcdefghij" "abcdefgh" :START1 1)
279    #+XCL 1 #-XCL T
280    
281    (STRING>  "ghijkl" "xyzabcd" :START2 6 :END2 4)
282    error
283    
284    (STRING<  "" "abcdefgh")
285    #+XCL 0 #-XCL T
286    
287    (STRING<=  "a" "abcdefgh")
288    #+XCL 1 #-XCL T
289    
290    (STRING<=  "abc" "abcdefgh")
291    #+XCL 3 #-XCL T
292    
293    (STRING<=  "aaabce" "aaabcdefgh")
294    NIL
295    
296    (STRING<=  "cabc" "abcdefgh")
297    NIL
298    
299    (STRING<=  "abcdefgh" "abcdefgh")
300    #+XCL 8 #-XCL T
301    
302    (STRING<=  "xyzabc" "abcdefgh")
303    NIL
304    
305    (STRING<=  "abc" "xyzabcdefgh")
306    #+XCL 0 #-XCL T
307    
308    (STRING<=  "abcdefgh" "abcdefgh" :END1 4)
309    #+XCL 4 #-XCL T
310    
311    (STRING<=  "xyzabc" "abcdefgh" :START1 3)
312    #+XCL 6 #-XCL T
313    
314    (STRING<=  "abc" "xyzabcdefgh" :START2 3)
315    #+XCL 3 #-XCL T
316    
317    (STRING<=  "abc" "xyzabcdefgh" :START2 3 :END2 8)
318    #+XCL 3 #-XCL T
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    #+XCL 0 #-XCL T
334    
335    (STRING<=  "abcdefgh" "xyzabc")
336    #+XCL 0 #-XCL T
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    #+XCL 3 #-XCL T
349    
350    (STRING<=  "abc" "xyzabcdefgh" :START2 3 :END2 8)
351    #+XCL 3 #-XCL T
352    
353    (STRING<=  "abc" "xyzabcdefgh" :START2 3 :END2 5)
354    NIL
355    
356    (STRING<=  "abcdef" "bcdefgh")
357    #+XCL 0 #-XCL T
358    
359    (STRING<=  "abcdef" "abcdefgh" :START2 2)
360    #+XCL 0 #-XCL T
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    #+XCL 0 #-XCL T
377    
378    (STRING>= "abcdefgh" "abcdefgh")
379    #+XCL 8 #-XCL T
380    
381    (STRING>= "xyzabc" "abcdefgh")
382    #+XCL 0 #-XCL T
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    #+XCL 2 #-XCL T
401    
402    (STRING>= "abcdefgh" "")
403    #+XCL 0 #-XCL T
404    
405    (STRING>= "abcdefgh" "a")
406    #+XCL 1 #-XCL T
407    
408    (STRING>= "abcdefgh" "abc")
409    #+XCL 3 #-XCL T
410    
411    (STRING>= "abcdefgh" "cabc")
412    NIL
413    
414    (STRING>= "abcdefgh" "xyzabc")
415    NIL
416    
417    (STRING>= "xyzabcdefgh" "abc")
418    #+XCL 0 #-XCL T
419    
420    (STRING>= "abcdefgh" "abcdefgh" :END2 4)
421    #+XCL 4 #-XCL T
422    
423    (STRING>= "xyzabc" "abcdefgh" :START2 3)
424    #+XCL 0 #-XCL T
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    #+XCL 2 #-XCL T
437    
438    (STRING>= "bcdef" "abcdef")
439    #+XCL 0 #-XCL T
440    
441    (STRING>= "abcdefghij" "abcdefgh" :START1 1)
442    #+XCL 1 #-XCL T
443    
444    (STRING>= "ghijkl" "xyzabcd" :START2 6 :END2 4)
445    ERROR
446    
447    (STRING/= "" "abcdefgh")
448    #+XCL 0 #-XCL T
449    
450    (STRING/= "a" "abcdefgh")
451    #+XCL 1 #-XCL T
452    
453    (STRING/= "abc" "abcdefgh")
454    #+XCL 3 #-XCL T
455    
456    (STRING/= "cabc" "abcdefgh")
457    #+XCL 0 #-XCL T
458    
459    (STRING/= "abcdefgh" "abcdefgh")
460    NIL
461    
462    (STRING/= "xyzabc" "abcdefgh")
463    #+XCL 0 #-XCL T
464    
465    (STRING/= "abc" "xyzabcdefgh")
466    #+XCL 0 #-XCL T
467    
468    (STRING/= "abcdefgh" "abcdefgh" :END1 4)
469    #+XCL 4 #-XCL T
470    
471    (STRING/= "xyzabc" "abcdefgh" :START1 3)
472    #+XCL 6 #-XCL T
473    
474    (STRING/= "abc" "xyzabcdefgh" :START2 3)
475    #+XCL 3 #-XCL T
476    
477    (STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 8)
478    #+XCL 3 #-XCL T
479    
480    (STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 5)
481    #+XCL 2 #-XCL T
482    
483    (STRING/= "abcdefgh" "")
484    #+XCL 0 #-XCL T
485    
486    (STRING/= "abcdefgh" "a")
487    #+XCL 1 #-XCL T
488    
489    (STRING/= "abcdefgh" "abc")
490    #+XCL 3 #-XCL T
491    
492    (STRING/= "abcdefgh" "cabc")
493    #+XCL 0 #-XCL T
494    
495    (STRING/= "abcdefgh" "xyzabc")
496    #+XCL 0 #-XCL T
497    
498    (STRING/= "xyzabcdefgh" "abc")
499    #+XCL 0 #-XCL T
500    
501    (STRING/= "abcdefgh" "abcdefgh" :END2 4)
502    #+XCL 4 #-XCL T
503    
504    (STRING/= "xyzabc" "abcdefgh" :START2 3)
505    #+XCL 0 #-XCL T
506    
507    (STRING/= "abc" "xyzabcdefgh" :START2 3)
508    #+XCL 3 #-XCL T
509    
510    (STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 8)
511    #+XCL 3 #-XCL T
512    
513    (STRING/= "abc" "xyzabcdefgh" :START2 3 :END2 5)
514    #+XCL 2 #-XCL T
515    
516    (STRING/= "abcdefghi" "uvdefmgnj" :START1 3 :END1 6 :START2 2 :END2 5)
517    NIL
518    
519    (STRING/= "abcdefg" "abcdefg" :END2 4)
520    #+XCL 4 #-XCL T
521    
522    (STRING/= "abcdef" "abcdef" :START1 1 :END1 4 :START2 4 :END2 1)
523    ERROR
524    
525    (STRING-LESSP "" "abcDEFgh")
526    #+XCL 0 #-XCL T
527    
528    (STRING-LESSP "a" "Abcdefgh")
529    #+XCL 1 #-XCL T
530    
531    (STRING-LESSP "abc" "aBcDEfgh")
532    #+XCL 3 #-XCL T
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    #+XCL 0 #-XCL T
545    
546    (STRING-LESSP "abcDEfgh" "abcDEfgh" :END1 4)
547    #+XCL 4 #-XCL T
548    
549    (STRING-LESSP "XYZabc" "ABcdefgh" :START1 3)
550    #+XCL 6 #-XCL T
551    
552    (STRING-LESSP "aBc" "xyZABcdefgh" :START2 3)
553    #+XCL 3 #-XCL T
554    
555    (STRING-LESSP "abc" "xyzabCDEcdefgh" :START2 3 :END2 8)
556    #+XCL 3 #-XCL T
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    #+XCL 0 #-XCL T
572    
573    (STRING-LESSP "abcdefgh" "xyzABC")
574    #+XCL 0 #-XCL T
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    #+XCL 3 #-XCL T
587    
588    (STRING-LESSP "ABC" "xyzabcdefgh" :START2 3 :END2 8)
589    #+XCL 3 #-XCL T
590    
591    (STRING-LESSP "ABC" "xyzabcdefgh" :START2 3 :END2 5)
592    NIL
593    
594    (STRING-LESSP "aBCDef" "bcdefgh")
595    #+XCL 0 #-XCL T
596    
597    (STRING-LESSP "aBCDef" "abcdefgh" :START2 2)
598    #+XCL 0 #-XCL T
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    #+XCL 0 #-XCL T
614    
615    (STRING-GREATERP "abcdefgh" "abcDEFgh")
616    NIL
617    
618    (STRING-GREATERP "xyzabc" "abCDEfgh")
619    #+XCL 0 #-XCL T
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    #+XCL 2 #-XCL T
638    
639    (STRING-GREATERP "abcdefgh" "")
640    #+XCL 0 #-XCL T
641    
642    (STRING-GREATERP "Abcdefgh" "a")
643    #+XCL 1 #-XCL T
644    
645    (STRING-GREATERP "ABCdefgh" "abc")
646    #+XCL 3 #-XCL T
647    
648    (STRING-GREATERP "ABCdefgh" "cabc")
649    NIL
650    
651    (STRING-GREATERP "ABCdefgh" "xyzabc")
652    NIL
653    
654    (STRING-GREATERP "xyzabcdefgh" "Abc")
655    #+XCL 0 #-XCL T
656    
657    (STRING-GREATERP "abcdefgh" "aBCDefgh" :END2 4)
658    #+XCL 4 #-XCL T
659    
660    (STRING-GREATERP "xyzabc" "abcdEFgh" :START2 3)
661    #+XCL 0 #-XCL T
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    #+XCL 2 #-XCL T
671    
672    (STRING-GREATERP "bCDEf" "abcde")
673    #+XCL 0 #-XCL T
674    
675    (STRING-GREATERP "bcDEF" "abcdef")
676    #+XCL 0 #-XCL T
677    
678    (STRING-GREATERP "abCDEfghij" "abcdefgh" :START1 1)
679    #+XCL 1 #-XCL T
680    
681    (STRING-GREATERP "ghijKl" "xyzabcd" :START2 6 :END2 4)
682    ERROR
683    
684    (STRING-NOT-GREATERP  "" "abcdefgh")
685    #+XCL 0 #-XCL T
686    
687    (STRING-NOT-GREATERP  "A" "abcdefgh")
688    #+XCL 1 #-XCL T
689    
690    (STRING-NOT-GREATERP  "aBC" "abcdefgh")
691    #+XCL 3 #-XCL T
692    
693    (STRING-NOT-GREATERP  "CABc" "abcdefgh")
694    NIL
695    
696    (STRING-NOT-GREATERP  "abcDEFgh" "abcdefgh")
697    #+XCL 8 #-XCL T
698    
699    (STRING-NOT-GREATERP  "xyzabc" "ABcdefgh")
700    NIL
701    
702    (STRING-NOT-GREATERP  "abc" "xyzABcdefgh")
703    #+XCL 0 #-XCL T
704    
705    (STRING-NOT-GREATERP  "ABCDEFgh" "abcdefgh" :END1 4)
706    #+XCL 4 #-XCL T
707    
708    (STRING-NOT-GREATERP  "xyzabc" "aBCDefgh" :START1 3)
709    #+XCL 6 #-XCL T
710    
711    (STRING-NOT-GREATERP  "ABC" "xyzabcdefgh" :START2 3)
712    #+XCL 3 #-XCL T
713    
714    (STRING-NOT-GREATERP  "ABC" "xyzabcdefgh" :START2 3 :END2 8)
715    #+XCL 3 #-XCL T
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    #+XCL 0 #-XCL T
731    
732    (STRING-NOT-GREATERP  "ABCdefgh" "xyzabc")
733    #+XCL 0 #-XCL T
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    #+XCL 3 #-XCL T
746    
747    (STRING-NOT-GREATERP  "ABC" "xyzabcdefgh" :START2 3 :END2 8)
748    #+XCL 3 #-XCL T
749    
750    (STRING-NOT-GREATERP  "ABC" "xyzabcdefgh" :START2 3 :END2 5)
751    NIL
752    
753    (STRING-NOT-GREATERP  "abcDEF" "bcdefgh")
754    #+XCL 0 #-XCL T
755    
756    (STRING-NOT-GREATERP  "abcDEF" "abcdefgh" :START2 2)
757    #+XCL 0 #-XCL T
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    #+XCL 0 #-XCL T
773    
774    (STRING-NOT-LESSP  "ABCdefgh" "abcdefgh")
775    #+XCL 8 #-XCL T
776    
777    (STRING-NOT-LESSP  "xyzABC" "abcdefgh")
778    #+XCL 0 #-XCL T
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    #+XCL 2 #-XCL T
797    
798    (STRING-NOT-LESSP  "abcdefgh" "")
799    #+XCL 0 #-XCL T
800    
801    (STRING-NOT-LESSP  "Abcdefgh" "a")
802    #+XCL 1 #-XCL T
803    
804    (STRING-NOT-LESSP  "ABCdefgh" "abc")
805    #+XCL 3 #-XCL T
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    #+XCL 0 #-XCL T
815    
816    (STRING-NOT-LESSP  "abCDEfgh" "abcdefgh" :END2 4)
817    #+XCL 4 #-XCL T
818    
819    (STRING-NOT-LESSP  "xyzABc" "abcdefgh" :START2 3)
820    #+XCL 0 #-XCL T
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    #+XCL 2 #-XCL T
830    
831    (STRING-NOT-LESSP  "bCDef" "abcdef")
832    #+XCL 0 #-XCL T
833    
834    (STRING-NOT-LESSP  "ABCdefghij" "abcdefgh" :START1 1)
835    #+XCL 1 #-XCL T
836    
837    (STRING-NOT-LESSP  "ghIjkl" "xyzabcd" :START2 6 :END2 4)
838    error
839    
840    (STRING-NOT-EQUAL  "" "abcdefgh")
841    #+XCL 0 #-XCL T
842    
843    (STRING-NOT-EQUAL  "A" "abcdefgh")
844    #+XCL 1 #-XCL T
845    
846    (STRING-NOT-EQUAL  "ABc" "abcdefgh")
847    #+XCL 3 #-XCL T
848    
849    (STRING-NOT-EQUAL  "cABc" "abcdefgh")
850    #+XCL 0 #-XCL T
851    
852    (STRING-NOT-EQUAL  "ABCdefgh" "abcdefgh")
853    NIL
854    
855    (STRING-NOT-EQUAL  "xyzABc" "abcdefgh")
856    #+XCL 0 #-XCL T
857    
858    (STRING-NOT-EQUAL  "ABC" "xyzabcdefgh")
859    #+XCL 0 #-XCL T
860    
861    (STRING-NOT-EQUAL  "ABCdefgh" "abcdefgh" :END1 4)
862    #+XCL 4 #-XCL T
863    
864    (STRING-NOT-EQUAL  "xyzaBC" "abcdefgh" :START1 3)
865    #+XCL 6 #-XCL T
866    
867    (STRING-NOT-EQUAL  "ABC" "xyzabcdefgh" :START2 3)
868    #+XCL 3 #-XCL T
869    
870    (STRING-NOT-EQUAL  "ABC" "xyzabcdefgh" :START2 3 :END2 8)
871    #+XCL 3 #-XCL T
872    
873    (STRING-NOT-EQUAL  "ABC" "xyzabcdefgh" :START2 3 :END2 5)
874    #+XCL 2 #-XCL T
875    
876    (STRING-NOT-EQUAL  "abcdefgh" "")
877    #+XCL 0 #-XCL T
878    
879    (STRING-NOT-EQUAL  "Abcdefgh" "a")
880    #+XCL 1 #-XCL T
881    
882    (STRING-NOT-EQUAL  "aBCdefgh" "abc")
883    #+XCL 3 #-XCL T
884    
885    (STRING-NOT-EQUAL  "abcdefgh" "cABc")
886    #+XCL 0 #-XCL T
887    
888    (STRING-NOT-EQUAL  "abcdefgh" "xyzAbc")
889    #+XCL 0 #-XCL T
890    
891    (STRING-NOT-EQUAL  "xyzabcdefgh" "ABC")
892    #+XCL 0 #-XCL T
893    
894    (STRING-NOT-EQUAL  "abcdefgh" "abcDEFgh" :END2 4)
895    #+XCL 4 #-XCL T
896    
897    (STRING-NOT-EQUAL  "xyzabc" "aBCDefgh" :START2 3)
898    #+XCL 0 #-XCL T
899    
900    (STRING-NOT-EQUAL  "abc" "xyzABCdefgh" :START2 3)
901    #+XCL 3 #-XCL T
902    
903    (STRING-NOT-EQUAL  "abc" "xyzABCdefgh" :START2 3 :END2 8)
904    #+XCL 3 #-XCL T
905    
906    (STRING-NOT-EQUAL  "abc" "xyzABCdefgh" :START2 3 :END2 5)
907    #+XCL 2 #-XCL T
908    
909    (STRING/=  "abcdefghi" "uvdEFmgnj" :START1 3 :END1 6 :START2 2 :END2 5)
910    #+XCL 4 #-XCL T
911    
912    (STRING/=  "abcdefg" "abcDEfg" :END2 4)
913    #+XCL 3 #-XCL T
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"
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"
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"
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    #+XCL "abcd efgh-ij" #-XCL 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    #+XCL "ABCD EFGH-EF" #-XCL 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    #+XCL "dfcf edfg-fg" #-XCL 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    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26