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

Diff of /gcl/tests/characters.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-CODE-LIMIT
3    #+XCL 128 #+CLISP 256
4    
5    CHAR-FONT-LIMIT
6    #+XCL 1 #+CLISP 16
7    
8    CHAR-BITS-LIMIT
9    #+XCL 1 #+CLISP 16
10    
11    (STANDARD-CHAR-P #\a)
12    T
13    
14    (STANDARD-CHAR-P #\$)
15    T
16    
17    (STANDARD-CHAR-P #\.)
18    T
19    
20    (STANDARD-CHAR-P #\A)
21    T
22    
23    (STANDARD-CHAR-P 1)
24    ERROR
25    
26    (STANDARD-CHAR-P #\\)
27    T
28    
29    (STANDARD-CHAR-P #\5)
30    T
31    
32    (STANDARD-CHAR-P #\))
33    T
34    
35    (STANDARD-CHAR-P #\%)
36    T
37    
38    (STANDARD-CHAR-P #\BACKSPACE)
39    #+XCL T #-XCL NIL
40    
41    (STANDARD-CHAR-P #\PAGE)
42    #+XCL T #-XCL NIL
43    
44    (STANDARD-CHAR-P #\RETURN)
45    #+XCL T #-XCL NIL
46    
47    (STANDARD-CHAR-P #\C-A)
48    NIL
49    
50    (STANDARD-CHAR-P #\H-SPACE)
51    NIL
52    
53    (STANDARD-CHAR-P #\M-\a)
54    NIL
55    
56    (STANDARD-CHAR-P #6\a)
57    NIL
58    
59    (STANDARD-CHAR-P #6\M-C-RETURN)
60    NIL
61    
62    (GRAPHIC-CHAR-P #\a)
63    T
64    
65    (GRAPHIC-CHAR-P #\$)
66    T
67    
68    (GRAPHIC-CHAR-P #\.)
69    T
70    
71    (GRAPHIC-CHAR-P #\A)
72    T
73    
74    (GRAPHIC-CHAR-P 1)
75    ERROR
76    
77    (GRAPHIC-CHAR-P #\\)
78    T
79    
80    (GRAPHIC-CHAR-P #\5)
81    T
82    
83    (GRAPHIC-CHAR-P #\))
84    T
85    
86    (GRAPHIC-CHAR-P #\%)
87    T
88    
89    (GRAPHIC-CHAR-P #\BACKSPACE)
90    NIL
91    
92    (GRAPHIC-CHAR-P #\PAGE)
93    NIL
94    
95    (GRAPHIC-CHAR-P #\RETURN)
96    NIL
97    
98    (GRAPHIC-CHAR-P #\C-A)
99    NIL
100    
101    (GRAPHIC-CHAR-P #\H-SPACE)
102    NIL
103    
104    (GRAPHIC-CHAR-P #\M-\a)
105    NIL
106    
107    (GRAPHIC-CHAR-P #6\a)
108    NIL
109    
110    (GRAPHIC-CHAR-P #6\M-C-RETURN)
111    NIL
112    
113    (STRING-CHAR-P #\a)
114    T
115    
116    (STRING-CHAR-P #\$)
117    T
118    
119    (STRING-CHAR-P #\.)
120    T
121    
122    (STRING-CHAR-P #\A)
123    T
124    
125    (STRING-CHAR-P 1)
126    ERROR
127    
128    (STRING-CHAR-P #\\)
129    T
130    
131    (STRING-CHAR-P #\5)
132    T
133    
134    (STRING-CHAR-P #\))
135    T
136    
137    (STRING-CHAR-P #\%)
138    T
139    
140    (STRING-CHAR-P #\BACKSPACE)
141    T
142    
143    (STRING-CHAR-P #\PAGE)
144    T
145    
146    (STRING-CHAR-P #\RETURN)
147    T
148    
149    (STRING-CHAR-P #\C-A)
150    NIL
151    
152    (STRING-CHAR-P #\H-SPACE)
153    NIL
154    
155    (STRING-CHAR-P #\M-\a)
156    NIL
157    
158    (STRING-CHAR-P #6\a)
159    NIL
160    
161    (STRING-CHAR-P #6\M-C-RETURN)
162    NIL
163    
164    (ALPHA-CHAR-P #\a)
165    T
166    
167    (ALPHA-CHAR-P #\$)
168    NIL
169    
170    (ALPHA-CHAR-P #\.)
171    NIL
172    
173    (ALPHA-CHAR-P #\A)
174    T
175    
176    (ALPHA-CHAR-P 1)
177    ERROR
178    
179    (ALPHA-CHAR-P #\\)
180    NIL
181    
182    (ALPHA-CHAR-P #\5)
183    NIL
184    
185    (ALPHA-CHAR-P #\))
186    NIL
187    
188    (ALPHA-CHAR-P #\%)
189    NIL
190    
191    (ALPHA-CHAR-P #\BACKSPACE)
192    NIL
193    
194    (ALPHA-CHAR-P #\PAGE)
195    NIL
196    
197    (ALPHA-CHAR-P #\RETURN)
198    NIL
199    
200    (ALPHA-CHAR-P #\C-A)
201    NIL
202    
203    (ALPHA-CHAR-P #\H-SPACE)
204    NIL
205    
206    (ALPHA-CHAR-P #\M-\a)
207    NIL
208    
209    (ALPHA-CHAR-P #6\a)
210    NIL
211    
212    (ALPHA-CHAR-P #6\M-C-RETURN)
213    NIL
214    
215    (UPPER-CASE-P #\a)
216    NIL
217    
218    (UPPER-CASE-P #\$)
219    NIL
220    
221    (UPPER-CASE-P #\.)
222    NIL
223    
224    (UPPER-CASE-P #\A)
225    T
226    
227    (UPPER-CASE-P 1)
228    ERROR
229    
230    (UPPER-CASE-P #\\)
231    NIL
232    
233    (UPPER-CASE-P #\5)
234    NIL
235    
236    (UPPER-CASE-P #\))
237    NIL
238    
239    (UPPER-CASE-P #\%)
240    NIL
241    
242    (UPPER-CASE-P #\BACKSPACE)
243    NIL
244    
245    (UPPER-CASE-P #\PAGE)
246    NIL
247    
248    (UPPER-CASE-P #\RETURN)
249    NIL
250    
251    (UPPER-CASE-P #\C-A)
252    NIL
253    
254    (UPPER-CASE-P #\H-SPACE)
255    NIL
256    
257    (UPPER-CASE-P #\M-\a)
258    NIL
259    
260    (UPPER-CASE-P #6\a)
261    NIL
262    
263    (UPPER-CASE-P #6\M-C-RETURN)
264    NIL
265    
266    (LOWER-CASE-P #\a)
267    T
268    
269    (LOWER-CASE-P #\$)
270    NIL
271    
272    (LOWER-CASE-P #\.)
273    NIL
274    
275    (LOWER-CASE-P #\A)
276    NIL
277    
278    (LOWER-CASE-P 1)
279    ERROR
280    
281    (LOWER-CASE-P #\\)
282    NIL
283    
284    (LOWER-CASE-P #\5)
285    NIL
286    
287    (LOWER-CASE-P #\))
288    NIL
289    
290    (LOWER-CASE-P #\%)
291    NIL
292    
293    (LOWER-CASE-P #\BACKSPACE)
294    NIL
295    
296    (LOWER-CASE-P #\PAGE)
297    NIL
298    
299    (LOWER-CASE-P #\RETURN)
300    NIL
301    
302    (LOWER-CASE-P #\C-A)
303    NIL
304    
305    (LOWER-CASE-P #\H-SPACE)
306    NIL
307    
308    (LOWER-CASE-P #\M-\a)
309    NIL
310    
311    (LOWER-CASE-P #6\a)
312    NIL
313    
314    (LOWER-CASE-P #6\M-C-RETURN)
315    NIL
316    
317    (BOTH-CASE-P #\a)
318    T
319    
320    (BOTH-CASE-P #\$)
321    NIL
322    
323    (BOTH-CASE-P #\.)
324    NIL
325    
326    (BOTH-CASE-P #\A)
327    T
328    
329    (BOTH-CASE-P 1)
330    ERROR
331    
332    (BOTH-CASE-P #\\)
333    NIL
334    
335    (BOTH-CASE-P #\5)
336    NIL
337    
338    (BOTH-CASE-P #\))
339    NIL
340    
341    (BOTH-CASE-P #\%)
342    NIL
343    
344    (BOTH-CASE-P #\BACKSPACE)
345    NIL
346    
347    (BOTH-CASE-P #\PAGE)
348    NIL
349    
350    (BOTH-CASE-P #\RETURN)
351    NIL
352    
353    (BOTH-CASE-P #\C-A)
354    NIL
355    
356    (BOTH-CASE-P #\H-SPACE)
357    NIL
358    
359    (BOTH-CASE-P #\M-\a)
360    NIL
361    
362    (BOTH-CASE-P #6\a)
363    NIL
364    
365    (BOTH-CASE-P #6\M-C-RETURN)
366    NIL
367    
368    (DIGIT-CHAR-P #\a)
369    NIL
370    
371    (DIGIT-CHAR-P #\$)
372    NIL
373    
374    (DIGIT-CHAR-P #\.)
375    NIL
376    
377    (DIGIT-CHAR-P #\A)
378    NIL
379    
380    (DIGIT-CHAR-P 1)
381    ERROR
382    
383    (DIGIT-CHAR-P #\\)
384    NIL
385    
386    (DIGIT-CHAR-P #\5)
387    5
388    
389    (DIGIT-CHAR-P #\))
390    NIL
391    
392    (DIGIT-CHAR-P #\%)
393    NIL
394    
395    (DIGIT-CHAR-P #\BACKSPACE)
396    NIL
397    
398    (DIGIT-CHAR-P #\PAGE)
399    NIL
400    
401    (DIGIT-CHAR-P #\RETURN)
402    NIL
403    
404    (DIGIT-CHAR-P #\C-A)
405    NIL
406    
407    (DIGIT-CHAR-P #\H-SPACE)
408    NIL
409    
410    (DIGIT-CHAR-P #\M-\a)
411    NIL
412    
413    (DIGIT-CHAR-P #6\a)
414    NIL
415    
416    (DIGIT-CHAR-P #6\M-C-RETURN)
417    NIL
418    
419    (DIGIT-CHAR-P #\5 4)
420    NIL
421    
422    (DIGIT-CHAR-P #\5 8)
423    5
424    
425    (DIGIT-CHAR-P #\E 16)
426    14
427    
428    (DIGIT-CHAR-P #\R 35)
429    27
430    
431    (DIGIT-CHAR-P #\5 4)
432    NIL
433    
434    (DIGIT-CHAR-P #\5 5)
435    NIL
436    
437    (DIGIT-CHAR-P #\5 6)
438    5
439    
440    (DIGIT-CHAR-P #\1 2)
441    1
442    
443    (ALPHANUMERICP #\a)
444    T
445    
446    (ALPHANUMERICP #\$)
447    NIL
448    
449    (ALPHANUMERICP #\.)
450    NIL
451    
452    (ALPHANUMERICP #\A)
453    T
454    
455    (ALPHANUMERICP 1)
456    ERROR
457    
458    (ALPHANUMERICP #\\)
459    NIL
460    
461    (ALPHANUMERICP #\5)
462    T
463    
464    (ALPHANUMERICP #\))
465    NIL
466    
467    (ALPHANUMERICP #\%)
468    NIL
469    
470    (ALPHANUMERICP #\BACKSPACE)
471    NIL
472    
473    (ALPHANUMERICP #\PAGE)
474    NIL
475    
476    (ALPHANUMERICP #\RETURN)
477    NIL
478    
479    (ALPHANUMERICP #\C-A)
480    NIL
481    
482    (ALPHANUMERICP #\H-SPACE)
483    NIL
484    
485    (ALPHANUMERICP #\M-\a)
486    NIL
487    
488    (ALPHANUMERICP #6\a)
489    NIL
490    
491    (ALPHANUMERICP #6\M-C-RETURN)
492    NIL
493    
494    (ALPHANUMERICP #\5 4)
495    ERROR
496    
497    (ALPHANUMERICP #\5 8)
498    ERROR
499    
500    (ALPHANUMERICP #\E 16)
501    ERROR
502    
503    (ALPHANUMERICP #\R 35)
504    ERROR
505    
506    (CHAR= #\d #\d)
507    T
508    
509    (CHAR/= #\d #\d)
510    NIL
511    
512    (CHAR= #\d #\x)
513    NIL
514    
515    (CHAR/= #\d #\x)
516    T
517    
518    (CHAR= #\d #\D)
519    NIL
520    
521    (CHAR/= #\d #\D)
522    T
523    
524    (CHAR= #\d #\d #\d #\d)
525    T
526    
527    (CHAR/= #\d #\d #\d #\d)
528    NIL
529    
530    (CHAR= #\d #\d #\x #\d)
531    NIL
532    
533    (CHAR/= #\d #\d #\x #\d)
534    NIL
535    
536    (CHAR= #\d #\y #\x #\c)
537    NIL
538    
539    (CHAR/= #\d #\y #\x #\c)
540    T
541    
542    (CHAR= #\d #\c #\d)
543    NIL
544    
545    (CHAR/= #\d #\c #\d)
546    NIL
547    
548    (CHAR< #\d #\x)
549    T
550    
551    (CHAR<= #\d #\x)
552    T
553    
554    (CHAR< #\d #\d)
555    NIL
556    
557    (CHAR<= #\d #\d)
558    T
559    
560    (CHAR< #\a #\e #\y #\z)
561    T
562    
563    (CHAR<= #\a #\e #\y #\z)
564    T
565    
566    (CHAR< #\a #\e #\e #\y)
567    NIL
568    
569    (CHAR<= #\a #\e #\e #\y)
570    T
571    
572    (CHAR> #\e #\d)
573    T
574    
575    (CHAR>= #\e #\d)
576    T
577    
578    (CHAR> #\d #\c #\b #\a)
579    T
580    
581    (CHAR>= #\d #\c #\b #\a)
582    T
583    
584    (CHAR> #\d #\d #\b #\a)
585    NIL
586    
587    (CHAR>= #\d #\d #\b #\a)
588    T
589    
590    (CHAR> #\e #\d #\b #\c #\a)
591    NIL
592    
593    (CHAR>= #\e #\d #\b #\c #\a)
594    NIL
595    
596    (CHAR> #\z #\A)
597    T
598    
599    (CHAR> #\Z #\a)
600    NIL
601    
602    (CHAR< #\9 #\a)
603    T
604    
605    (CHAR> #\9 #\a)
606    NIL
607    
608    (CHAR> #\z #\0)
609    T
610    
611    (CHAR< #\z #\0)
612    NIL
613    
614    (CHAR-EQUAL #\d #\d)
615    T
616    
617    (CHAR-NOT-EQUAL #\d #\d)
618    NIL
619    
620    (CHAR-EQUAL #\d #\x)
621    NIL
622    
623    (CHAR-NOT-EQUAL #\d #\x)
624    T
625    
626    (CHAR-EQUAL #\d #\D)
627    T
628    
629    (CHAR-NOT-EQUAL #\d #\D)
630    NIL
631    
632    (CHAR-EQUAL #\d #\d #\d #\d)
633    T
634    
635    (CHAR-NOT-EQUAL #\d #\d #\d #\d)
636    NIL
637    
638    (CHAR-EQUAL #\d #\d #\x #\d)
639    NIL
640    
641    (CHAR-NOT-EQUAL #\d #\d #\x #\d)
642    NIL
643    
644    (CHAR-EQUAL #\d #\y #\x #\c)
645    NIL
646    
647    (CHAR-NOT-EQUAL #\d #\y #\x #\c)
648    T
649    
650    (CHAR-EQUAL #\d #\c #\d)
651    NIL
652    
653    (CHAR-NOT-EQUAL #\d #\c #\d)
654    NIL
655    
656    (CHAR-LESSP #\d #\x)
657    T
658    
659    (CHAR-NOT-GREATERP #\d #\x)
660    T
661    
662    (CHAR-LESSP #\d #\d)
663    NIL
664    
665    (CHAR-NOT-GREATERP #\d #\d)
666    T
667    
668    (CHAR-LESSP #\a #\e #\y #\z)
669    T
670    
671    (CHAR-NOT-GREATERP #\a #\e #\y #\z)
672    T
673    
674    (CHAR-LESSP #\a #\e #\e #\y)
675    NIL
676    
677    (CHAR-NOT-GREATERP #\a #\e #\e #\y)
678    T
679    
680    (CHAR-GREATERP #\e #\d)
681    T
682    
683    (CHAR-NOT-LESSP #\e #\d)
684    T
685    
686    (CHAR-GREATERP #\d #\c #\b #\a)
687    T
688    
689    (CHAR-NOT-LESSP #\d #\c #\b #\a)
690    T
691    
692    (CHAR-GREATERP #\d #\d #\b #\a)
693    NIL
694    
695    (CHAR-NOT-LESSP #\d #\d #\b #\a)
696    T
697    
698    (CHAR-GREATERP #\e #\d #\b #\c #\a)
699    NIL
700    
701    (CHAR-NOT-LESSP #\e #\d #\b #\c #\a)
702    NIL
703    
704    (CHAR-GREATERP #\z #\A)
705    T
706    
707    (CHAR-GREATERP #\Z #\a)
708    T
709    
710    (CHAR-LESSP #\9 #\a)
711    T
712    
713    (CHAR-GREATERP #\9 #\a)
714    NIL
715    
716    (CHAR-GREATERP #\z #\0)
717    T
718    
719    (CHAR-LESSP #\z #\0)
720    NIL
721    
722    (CHAR-EQUAL #\A #\a)
723    T
724    
725    (CHAR-EQUAL #\A #\C-A)
726    T
727    
728    (CHAR-EQUAL #\p #1\p)
729    T
730    
731    (CHAR-EQUAL #\p #2\p)
732    T
733    
734    (CHAR-UPCASE #\a)
735    #\A
736    
737    (CHAR-UPCASE #\A)
738    #\A
739    
740    (CHAR-UPCASE #\5)
741    #\5
742    
743    (CHAR-UPCASE #\;)
744    #\;
745    
746    (CHAR-UPCASE #\=)
747    #\=
748    
749    (CHAR= (CHAR-DOWNCASE (CHAR-UPCASE #\x)) #\x)
750    T
751    
752    (CHAR-DOWNCASE #\A)
753    #\a
754    
755    (CHAR-DOWNCASE #\a)
756    #\a
757    
758    (CHAR-DOWNCASE #\%)
759    #\%
760    
761    (CHAR-DOWNCASE #\+)
762    #\+
763    
764    (CHAR-DOWNCASE #\-)
765    #\-
766    
767    (CHAR= (CHAR-UPCASE (CHAR-DOWNCASE #\X)) #\X)
768    T
769    
770    (DIGIT-CHAR 7)
771    #\7
772    
773    (DIGIT-CHAR 12)
774    NIL
775    
776    (DIGIT-CHAR (QUOTE A))
777    ERROR
778    
779    (DIGIT-CHAR 12 16)
780    #\C
781    
782    (DIGIT-CHAR 6 2)
783    NIL
784    
785    (DIGIT-CHAR 1 2)
786    #\1
787    
788    (DIGIT-CHAR 12 14 6)
789    NIL
790    
791    CHAR-CONTROL-BIT
792    1
793    
794    CHAR-META-BIT
795    2
796    
797    CHAR-SUPER-BIT
798    4
799    
800    CHAR-HYPER-BIT
801    8
802    
803    (CHAR-BIT #\C-X :CONTROL)
804    T
805    
806    (CHAR-BIT #\C-X :META)
807    NIL
808    
809    (CHAR-BIT #\M-C-RETURN :CONTROL)
810    T
811    
812    (CHAR-BIT #\M-C-RETURN :META)
813    T
814    
815    (CHAR-BIT #\M-C-RETURN :CONTROL :META)
816    ERROR
817    
818    (CHAR-BIT #\M-C-RETURN :C-M)
819    ERROR
820    
821    (CHAR-BIT #\H-SPACE :HYPER)
822    T
823    
824    (CHAR-BIT #\S-RETURN :SUPER)
825    T
826    
827    (SET-CHAR-BIT #\X :CONTROL T)
828    #\C-X
829    
830    (SET-CHAR-BIT #\C-X :CONTROL T)
831    #\C-X
832    
833    (SET-CHAR-BIT #\C-X :CONTROL (QUOTE NIL))
834    #\X
835    
836    (SET-CHAR-BIT #\M-C-A :CONTROL T)
837    #\M-C-A
838    
839    (SET-CHAR-BIT #\A :CONTROL T)
840    #\C-A
841    
842    (SET-CHAR-BIT #\M-C-A :CONTROL (QUOTE NIL))
843    #\M-A
844    
845    (code-char  97 2 4)  #4\Meta-\a
846    

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