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

Diff of /gcl/tests/tread.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     ;       *  ROSENMUELLER  143   Tel.340   TREAD.dat   04.11.1987   *
3     ;       ***********************************************************
4    ;&----- Tread0.tst -------------------------------------------------------------
5    
6     ;      Testdaten aus den Beispielen der Sprachbeschreibung
7     ;
8     ;      Eingabe der Zahl 27 und der Liste (a b)         Seite 334
9    
10    
11         27
12       27
13         27.
14       27
15         #o33
16       27
17           #x1b
18       27
19           #b11011
20       27
21            #.(* 3 3 3)
22       27
23            81/3
24       27
25            '(A B)
26       (A B)
27            '(a b)
28       (A B)
29            '( a b )
30       (A B)
31            '(\A |B|)
32       (A B)
33    
34               '(|\A|
35               B
36            )
37       (A B)
38    
39    
40     ;      Test auf Gleichheit                             Seite 338
41            '|foo||bar|
42       |foobar|
43           '|foobar|
44    
45       |foobar|
46     ;      Test auf Gleichheit
47            '|foo|bar|baz|
48       |foo|BAR|baz|
49           '|fooBARbaz|
50    
51       |foo|BAR|baz|
52     ;      Test auf Ungleichheit
53    
54    
55    (progn (unless (find-package '|foo| )(make-package '|foo|)) t)
56       T
57    
58            '|foo:bar|
59       |foo:bar|
60          
61            (read-from-string "|foo|:|bar|")
62    
63       ERROR
64    
65    
66    
67     ;      reserved token : potential numbers              Seite 341
68     ;              eingelesen als Symbol und
69     ;              als solches gedruckt (dh. mit '\' als 1.Zeichen)
70            '1b5000
71       \1B5000
72           '777777q
73       \777777Q
74           '1.7J
75       \1.7J
76           '-3/4+6.7J
77    
78       \-3/4+6.7J
79            '12/25/83
80       \12/25/83
81         '27^19
82       \27^19
83             '3^4/5
84       \3^4/5
85          '6//7
86    
87       \6//7
88            '3.1.2.6
89       \3.1.2.6
90          '^-43^
91       \^-43^
92             '3.141_592_653_589_793_238_4
93    
94       \3.141_592_653_589_793_238_4
95            '-3.7+2.6i-6.17j+19.6k
96    
97       \-3.7+2.6I-6.17J+19.6K
98    
99     ;      not potential numbers
100     ;          sind immer Symbole :
101            '/
102       /
103             '/5
104       /5
105           '+
106       +
107           '1+
108       1+
109             '1-
110    
111       1-
112            'foo+
113       FOO+
114          'ab.cd
115       AB.CD
116        '_
117       _
118           '^
119       ^
120              '^/-
121    
122       ^/-
123    
124     ;      die folgenden token sind Symbole , wenn *read-base* == 10 :
125            'bad-face
126       BAD-FACE
127            '25-sec-83
128       25-SEC-83
129           'a/b
130       A/B
131           'fad_cafe
132    
133       FAD_CAFE
134            'f^
135    
136       F^
137    
138    (progn  (setq *print-base* 16)t)
139    T
140    
141     ;      und sind reserved token, wenn *read-base* == 16
142     ;      und werden mit '\' gedruckt, falls *print-base* == 16 :
143            'bad-face
144       \BAD-FACE
145            '25-sec-83
146       \25-SEC-83
147           'a/b
148       \A/B
149           'fad_cafe
150    
151       \FAD_CAFE
152            'f^
153    
154       \F^
155    
156    (progn (setq *print-base* 10)t)
157    T
158    
159    
160     ;      folgende "Zahlen"-Atome muessen mit '\' gedruckt werden :
161            '\123
162       \123
163           '\123E12
164       \123E12
165         '\123S12
166       \123S12
167          '\123L12
168    
169       \123L12
170            '\123D12
171       \123D12
172        '\123F12
173       \123F12
174         '\123/12
175    
176       \123/12
177    
178    
179    ;
180     ;        Test der Punktsyntax
181            '(a . b)
182       (A . B)
183            '(a.b)
184       (A.B)
185                    '(a. b)
186       (A. B)
187                    
188            '(a \. b c)
189       (A \. B C)
190            '(a |.| b c)
191       (A \. B C)
192            '(a \... b c)
193       (A \... B C)
194    
195            '(a |...| b c)
196       (A \... B C)
197            '(a b . c)
198       (A B . C)
199            '.ab
200    
201       .AB
202            (read-from-string "(. b)")
203       ERROR
204            (read-from-string "(a .. b)")
205       ERROR
206            
207            (read-from-string "(a . . 'b   )")
208       ERROR
209            ; Fehler
210            (read-from-string "(a b c ...)")
211       ERROR
212    
213    ;-------------------------------------------------------------------------------
214    ;(progn (print "etwa ein achtel") t) T
215    ;-------------------------------------------------------------------------------
216    
217     ;        test zeichen einlesen
218         #\control-meta-a
219    
220       #\M-C-A
221         #\control-meta-\a
222       #\M-C-\a
223    
224         #\linefeed
225    
226       #\NEWLINE
227         #\newline
228    
229       #\NEWLINE
230         #\space
231    
232       #\SPACE
233         #\rubout
234    
235       #\RUBOUT
236         #\page
237    
238       #\PAGE
239         #\tab
240    
241       #\TAB
242         #\backspace
243    
244       #\BACKSPACE
245         #\return
246    
247       #\RETURN
248         #\control-space
249    
250       #\C-SPACE
251         #\c-m-return
252    
253       #\M-C-RETURN
254         #\control-meta-tab
255    
256       #\M-C-TAB
257         #\h-s-m-c-rubout
258    
259       #\H-S-M-C-RUBOUT
260         #\control-%
261    
262       #\C-%
263         #\control-\"
264       #\C-\"
265    
266         #\meta->
267    
268       #\M->
269    
270     ;        Test *read-base*
271    (setq *read-base* 2)
272    2
273    
274    (setq *print-radix* t)
275    T
276    
277    #+XCL (prin1-to-string 4/3.) #+XCL "4/3."
278    #-XCL (prin1-to-string #10r4/3) #-XCL "#10r4/3"
279    
280    (setq *print-base* 2.) 2.
281    
282    #+XCL (prin1-to-string 4/3.) #+XCL "#2r100/11"
283    #-XCL (prin1-to-string #10r4/3) #-XCL "#b100/11"
284    
285    (setq *print-base* 10.) 10.
286    
287           '123
288       \123
289            123.
290       123.
291           312.
292    
293       312.
294    
295    (progn (setq *read-base* 10. ) t)
296    T
297    
298    (setq *print-radix* nil)
299    NIL
300    
301     ;        Test floatings extrema
302            .1      
303       0.1
304    +.1    
305       0.1
306    -.1    
307       -0.1
308    .1e1    
309       1.0
310    +.1e1  
311       1.0
312    -.1e1  
313       -1.0
314    1e1    
315       10.0
316    +1e1    
317       10.0
318    -1e1
319    
320       -10.0
321            1.e1    
322       10.0
323    +1.e1  
324       10.0
325    -1.e1
326    
327       -10.0
328    
329    (setq *read-base* 16)
330    16
331    
332            '1a1.  
333       \1A1.
334    ; fehler symbol
335            '1r1.  
336       \1R1.
337    ; fehler symbol
338    
339    (progn (setq *read-base* 10. ) t)
340    T
341    
342     ;        Test *print-level*
343    (setq *print-level* 10)
344    10
345    
346    (setq *print-circle* t)
347    T
348    
349    ;-- NSUBST ging in Zyklus !
350    (prin1-to-string '(#1=(a b #1#)) )
351    "(#1=(a b #1#))"  
352    
353    (prin1-to-string '(#1=(#1#)))
354    "(#1=(#1#))"
355    
356    (prin1-to-string '(#1=(a b #1#) (c d #1#)))
357    "(#1=(a b #1#) (c d #1#))"
358    
359    (setq *print-level* nil)
360    NIL
361    
362     ;        Test *print-length*
363    (setq *print-length* 11)
364    11
365    
366    (prin1-to-string '(1 2 3 4 (5 5) 6 7 8 9 10 11 12 13))
367    "(1 2 3 4 (5 5) 6 7 8 9 10 11 ...)"
368    
369    ;;;; NSUBST  
370    (prin1-to-string '#1=(a b . #1#))
371    #+XCL "#2=(a b . #2#)"
372    #-XCL "#1=(A B . #1#)"
373    
374    (setq *print-length* nil)
375    NIL
376    
377     ;        Test packagemarker
378            ':abc
379    
380       :ABC
381     ;        zur Zeit noch nicht implementiert :
382    (progn (unless (find-package 'abc)(make-package 'abc)) t)
383       T
384    
385            (read-from-string "abc:de")
386       ERROR
387            'abc::de
388       ABC::DE
389            (read-from-string "::111")
390       #+XCL ERROR #+CLISP :|111|
391            (read-from-string ":abc:")
392       ERROR
393            (read-from-string ":abc:00")
394       ERROR
395           ;Fehler
396            (read-from-string "ab:cd:2")
397       ERROR
398            (read-from-string "ab:")
399       ERROR
400            (read-from-string "ab:cd:")
401       ERROR
402            (read-from-string "abc::")
403       #+XCL ERROR #+CLISP abc::||
404     ;
405    
406    ;&----- Tread1.tst -------------------------------------------------------------
407    
408     ;        Test array
409            '#0a7
410       #0A7
411            '#1a(1 2 3 4 5 6 7 8)
412       #(1 2 3 4 5 6 7 8)
413    
414            '#2a((1 2 3)(3 2 1))
415       #2A((1 2 3)(3 2 1))
416    
417            '#3a(((1 2 3 ) (4 5 6))
418                 ((1 2 3 ) (4 5 6)))
419       #3A(((1 2 3)(4 5 6))((1 2 3)(4 5 6)))
420    
421       #+XCL '#a7
422       #+XCL #0A7
423       #+CLISP '#a7
424       #+CLISP #(NIL NIL NIL NIL NIL NIL NIL)
425    
426            '#2a((1 2)(3 4)(5 6))
427       #2A((1 2)(3 4)(5 6))
428    
429            '#3a(((1 2)(3 4)(5 6))
430                 ((7 8)(9 10)(11 12)))
431       #3A(((1 2)(3 4)(5 6))((7 8)(9 10)(11 12)))
432    
433     ;
434     ;        Test ehemaliger Fehler
435            (multiple-value-list (read-from-string "1(123)"))
436       (1 1)
437    
438    
439            (read-from-string "#0*111")
440       ERROR
441                                   ; Fehler
442            (read-from-string "#0(1 1 1 )")
443       ERROR
444                            ; Fehler
445            (read-from-string "#0r111")
446       ERROR
447            (read-from-string "#1r111")
448       ERROR
449                   ; Fehler
450            #2r111
451       7
452                   #36r111
453    
454       1333
455            (read-from-string "#37r111")
456       ERROR
457                                   ; Fehler
458            (read-from-string "#011010")
459    ERROR
460    
461            -01    
462       -1
463    -001    
464       -1
465    -01.    
466       -1
467    -0.    
468       0
469    -0/12  
470       0
471    -00.    
472       0
473    -00/12  
474       0
475    ;zahlen
476            '-12./12        
477       \-12./12
478    '-0./12
479       \-0./12
480                                    ;symbole
481    
482            (list 1 2 #\a)
483       (1 2 #\a)
484    
485    
486    ;;        '{1 2 3 { 4 5 6) (7 8 9 }
487    ;;   (1 2 3 (4 5 6) (7 8 9))
488    
489    ;-------------------------------------------------------------------------------
490    ;(progn (print "etwa ein viertel") t) T
491    ;-------------------------------------------------------------------------------
492    
493     ;
494     ;        Test der Fehlerbehandlung
495     ;
496     ;        -2        <esc> als 1. zeichen
497              (read-from-string "")
498       ERROR
499    
500     ;        -3       <esc> im token
501              (read-from-string "abc")
502       ERROR
503    
504    
505    
506     ;        -4       <esc> innerhalb von |.....|
507              (read-from-string "a|bc")
508       ERROR
509    
510     ;        -5         zu langer vektor
511              (read-from-string "#2(a b c)")
512       ERROR
513    
514     ;        -6         packagezeichenfehler
515              (read-from-string "::")
516       #+XCL ERROR #+CLISP :||
517     ;        -7         zu langer bitvektor
518              (read-from-string "#2*1010")
519       ERROR
520    
521    ;        -9         labelfehler
522              (read-from-string "#1#")
523       ERROR
524    
525     ;        -10        punkttoken
526            (READ-FROM-STRING "... ")
527       ERROR
528    
529    ;        -11        unzulaessige *read-base*
530    ;                wird auf 10 gesetzt durch Fehlerbehandlung
531            (progn (setq *read-base* 40) (read-from-string "123"))
532       ERROR
533    
534    ;        Bindung nach Rueckkehr aus Debug
535    *read-base*
536    10.
537    
538    (progn (setq *read-base* 10.) t)
539    T
540    
541    *read-base*
542    10
543    
544    ;        -12        falsche printbase
545    (progn (setq *print-base* nil) (prin1-to-string *print-base*))
546    ERROR
547    
548    (progn  (setq *print-base* 10.)t)
549    T
550    
551    *print-base*
552    10
553    
554    ;        -14        feldfehler
555            (read-from-string "#2a((1 2 3)(1 2)")
556       ERROR
557            (read-from-string "#2a((1 2 3)(1 2))")
558       ERROR
559    
560    ;;        (read-from-string "#2a(1 2 3}")
561    ;;   ERROR
562    
563    ;        -16        unzulaessige printlevel
564    (setq *print-level* t)
565    T
566    
567    *print-level*
568    T
569    
570    (setq *print-level* nil)
571    NIL
572    
573    *print-level*
574    NIL
575    
576    ;        -17        unzulaessige printlength
577    (setq *print-length* t)
578    T
579    
580    *print-length*
581    T
582    
583    (setq *print-length* nil)
584    NIL
585    
586    *print-length*
587    NIL
588    
589    ;&----- Tread2.tst -------------------------------------------------------------
590    
591     ;        -22        kein Atom fuer synonym
592    ;;;;; typsystem notwendig        
593    (make-synonym-stream 123)
594    ERROR
595    
596     ;        -23        kein stream als wert
597            (prin1-to-string (make-synonym-stream '*read-base*))
598       #+XCL "#<SYSTEM::%TYPE-SYNONYM-STREAM *READ-BASE*>"
599       #+CLISP "#<SYNONYM-STREAM *READ-BASE*>"
600    
601     ;        -24        falscher abschluss fuer vektor
602    
603            (read-from-string "#(1 2 3 .               )")
604       ERROR
605    
606     ;      -29     falsch gepunktete liste
607            (read-from-string "(a .)")
608       ERROR
609    
610    
611            (read-from-string "(. a)")
612       ERROR
613    
614    
615     ;      -30     kein stream als argument
616            (make-echo-stream pi *standard-output*)
617       ERROR
618    
619    
620            (make-two-way-stream pi *standard-output*)
621       ERROR
622    
623     ;      -31     kein stream als argument
624            (make-echo-stream *standard-input* pi)
625       ERROR
626    
627    
628            (make-two-way-stream *standard-input* pi)
629       ERROR
630    
631    
632     ;      -33     illegale readtable
633    (progn (setq *readtable* t) (read-from-string "123"))
634    ERROR
635    
636    (progn (setq *readtable* (copy-readtable nil)) t)
637    T
638    
639     ;      -35     illegale readbase in #xxR
640            (read-from-string "#37R")
641       ERROR
642    
643     ;      -36     illegale ziffern in #xxR
644            (read-from-string "#10rabc")
645       ERROR
646    
647            (read-from-string "#10ra/b")
648       ERROR
649     ;      -37     illegaler #\-string
650            (read-from-string "#\nocontrol-")
651       ERROR
652            (read-from-string "#\control-")
653       ERROR
654     ;      -38     ????????
655    ;;        }
656    ;;   ERROR
657    
658     ;
659     ;      test print-radix
660     ;
661    (setq *print-radix* t)
662    T
663    
664    (WRITE-TO-STRING 11111 )
665       "11111."
666    
667    (progn  (setq *print-base* 2)t)
668    T
669    
670    (WRITE-TO-STRING 11111 )
671       #+XCL "#2r10101101100111"
672       #-XCL "#b10101101100111"
673    
674    (progn  (setq *print-base* 8)t)
675    T
676    
677    (WRITE-TO-STRING 11111 )
678       "#o25547"
679    
680    (progn  (setq *print-base* 16)t)
681    T
682    
683    (WRITE-TO-STRING 11111 )
684       "#x2B67"
685    
686    (progn  (setq *print-base* 22)t)
687    T
688    
689    (WRITE-TO-STRING 11111 )
690       "#22r10L1"
691    
692    (progn  (setq *print-base* 10)t)
693    T
694    
695    (setq *print-radix* nil)
696    NIL
697    
698    (WRITE-TO-STRING 11111 )
699       "11111"
700    
701    (progn  (setq *print-base* 2)t)
702    T
703    
704    (WRITE-TO-STRING 11111 )
705       "10101101100111"
706    
707    (progn  (setq *print-base* 8)t)
708    T
709    
710    (WRITE-TO-STRING 11111 )
711       "25547"
712    
713    (progn  (setq *print-base* 16)t)
714    T
715    
716    (WRITE-TO-STRING 11111 )
717       "2B67"
718    
719    (progn  (setq *print-base* 22)t)
720    T
721    
722    (WRITE-TO-STRING 11111 )
723       "10L1"
724    
725    (progn  (setq *print-base* 10)t)
726    T
727    
728     ;
729     ;      test read-default-float-format (besser write-to-string ?)
730     ;
731            0.00999998
732    
733       0.00999998
734            0.009999998
735    
736       0.009999998
737            0.0099999997
738    
739       0.01
740            1.23
741    
742       1.23
743    (prin1-to-string        1.23e20)
744       "1.23E20" ; "1.229999E20"
745    
746    (prin1-to-string        1.23f20)
747       "1.23E20" ; "1.229999E20"
748    
749    (prin1-to-string        1.23s20)
750       #+XCL "1.229S20" #+CLISP "1.23s20"
751    
752            1.23d20
753       1.23D20
754            1.23l20
755       1.23D20
756    (prin1-to-string        123456789.123456789)
757       "1.2345679E8" ; "1.234567E8"
758    
759    (prin1-to-string        12345678.12345678)
760       "1.2345678E7" ; "1.234567E7"
761    
762    (prin1-to-string        1234567.1234567)
763       "1234567.1" ; "1234567.0"
764    
765    (prin1-to-string        123456.123456)
766       #-CLISP "123456.12" ; "123456.1"
767       #+CLISP "123456.125" ; Anzeigefehler
768    
769    (prin1-to-string        12345.12345)
770       "12345.123" ; "12345.12"
771    
772    (prin1-to-string        1234.1234)
773       "1234.1234" ; "1234.123"
774    
775            123.123
776       123.123
777            12.12
778       12.12
779            1.1
780       1.1
781    
782    (setq *read-default-float-format* 'short-float)
783    SHORT-FLOAT
784    
785            1.23
786       1.23
787    (prin1-to-string        1.23e20)
788       "1.23E20" ; "1.229E20"
789    
790    (prin1-to-string        1.23f20)
791       "1.23f20" ; "1.229999F20"
792    
793    (prin1-to-string        1.23s20)
794       "1.23E20" ; "1.229E20"
795    
796            1.23d20
797       1.23D20
798            1.23l20
799       1.23D20
800    (prin1-to-string        123456789.123456789)
801       "1.23457E8" ; "1.234E8"
802    
803    (prin1-to-string        12345678.12345678)
804       "1.23457E7" ; "1.234E7"
805    
806    (prin1-to-string        1234567.1234567)
807       "1234560.0"
808    
809    (prin1-to-string        123456.123456)
810       "123456.0"
811    
812    (prin1-to-string        12345.12345)
813       "12345.1" ; "12345.0"
814    
815    (prin1-to-string        1234.1234)
816       #-CLISP "1234.12" ; "1234.0"
817       #+CLISP "1234.13" ; Anzeigefehler
818    
819    (prin1-to-string        123.123)
820       "123.123" ; "123.1"
821    
822            12.12
823       12.12
824            1.1
825       1.1
826    
827    (setq *read-default-float-format* 'double-float)
828    DOUBLE-FLOAT
829    
830            1.23
831       1.23
832            1.23e20
833       1.23E20
834    (prin1-to-string        1.23f20)
835       "1.23f20" ; "1.229999F20"
836    
837    (prin1-to-string        1.23s20)
838       "1.23s20" ; "1.229S20"
839    
840            1.23d20
841       1.23E20
842            1.23l20
843       1.23E20
844    (prin1-to-string        123456789.123456789)
845       "1.2345678912345679E8" ; "1.234567891234568E8"
846    
847            12345678.12345678
848       1.234567812345678E7
849            1234567.1234567
850       1234567.1234567
851            123456.123456
852       123456.123456
853            12345.12345
854       12345.12345
855            1234.1234
856       1234.1234
857            123.123
858       123.123
859            12.12
860       12.12
861            1.1
862       1.1
863    
864    (setq *read-default-float-format* 'long-float)
865    LONG-FLOAT
866    
867            1.23
868       #+XCL 1.23D0 #-XCL 1.23
869            1.23e20
870       #+XCL 1.23D20 #-XCL 1.23E20
871    (prin1-to-string        1.23f20)
872       "1.23f20" ; "1.229999F20"
873    
874    (prin1-to-string        1.23s20)
875       "1.23s20" ; "1.229S20"
876    
877            1.23d20
878       1.23D20
879            1.23l20
880       #+XCL 1.23D20 #-XCL 1.23E20
881    (prin1-to-string        123456789.123456789)
882       "1.23456789123456789E8" ; "1.234567891234568D8"
883    
884            12345678.12345678
885       #+XCL 1.234567812345678D7 #-XCL 1.234567812345678E7
886            1234567.1234567
887       #+XCL 1234567.1234567D0 #-XCL 1234567.1234567
888            123456.123456
889       #+XCL 123456.123456D0 #-XCL 123456.123456
890            12345.12345
891       #+XCL 12345.12345D0 #-XCL 12345.12345
892            1234.1234
893       #+XCL 1234.1234D0 #-XCL 1234.1234
894            123.123
895       #+XCL 123.123D0 #-XCL 123.123
896            12.12
897       #+XCL 12.12D0 #-XCL 12.12
898            1.1
899       #+XCL 1.1D0 #-XCL 1.1
900    
901    (setq *read-default-float-format* 'single-float)
902    SINGLE-FLOAT
903    
904     ;
905     ;      test print-case
906     ;
907    (WRITE-TO-STRING 'abcde)
908       "ABCDE"
909    
910    (WRITE-TO-STRING        'abcde-efghij)
911       "ABCDE-EFGHIJ"
912    
913    (WRITE-TO-STRING        'abcde1efghij)
914       "ABCDE1EFGHIJ"
915    
916    (WRITE-TO-STRING        'abcde-1efgh)
917       "ABCDE-1EFGH"
918    
919    (setq *print-case* :downcase)
920    :downcase
921    
922    (WRITE-TO-STRING        'abcde)
923       "abcde"
924    
925    (WRITE-TO-STRING        'abcde-efghij)
926       "abcde-efghij"
927    
928    (WRITE-TO-STRING        'abcde1efghij)
929       "abcde1efghij"
930    
931    (WRITE-TO-STRING        'abcde-1efgh)
932       "abcde-1efgh"
933    
934    (setq *print-case* :capitalize)
935    :Capitalize
936    
937    (WRITE-TO-STRING        'abcde)
938       "Abcde"
939    
940    (WRITE-TO-STRING        'abcde-efghij)
941       "Abcde-Efghij"
942    
943    (WRITE-TO-STRING        'abcde1efghij)
944       "Abcde1efghij"
945    
946    (WRITE-TO-STRING        'abcde-1efgh)
947       "Abcde-1efgh"
948    
949    (setq *print-case* :upcase)
950    :UPCASE
951    
952     ;
953     ;      test print-gensym
954     ;
955    (progn (gensym "test")(gensym 77) t)
956       T
957    
958    (setq *print-gensym* nil)
959    NIL
960    
961    (WRITE-TO-STRING        (gensym))
962       #+XCL "|test|78" #+CLISP "|test78|"
963    
964    (setq *print-gensym* t)
965    T
966    
967    (WRITE-TO-STRING        (gensym))
968       #+XCL "#:|test|79" #+CLISP "#:|test79|"
969    
970     ;
971     ;      test print-escape-pretty NIL
972     ;
973    (WRITE-TO-STRING        nil)
974       "NIL"
975    
976    (WRITE-TO-STRING        '(a b nil c))
977       "(A B NIL C)"
978    
979    (WRITE-TO-STRING        '(a b (nil) c))
980       "(A B (NIL) C)"
981    
982    (WRITE-TO-STRING        '(a b (nil c) d))
983       "(A B (NIL C) D)"
984    
985    (WRITE-TO-STRING '#(a b nil c (a b nil c) (nil)))
986    "#(A B NIL C (A B NIL C) (NIL))"
987    
988    (setq *print-pretty* t)
989    T
990    
991    (WRITE-TO-STRING        nil)
992       "NIL"
993    
994    (WRITE-TO-STRING        '(a b nil c))
995       "(A B NIL C)"
996    
997    (WRITE-TO-STRING        '(a b (nil) c))
998    #+XCL
999    "(A B
1000       (NIL)
1001       C)"
1002    #+CLISP "(A B (NIL) C)"
1003    
1004    (WRITE-TO-STRING        '(a b (nil c) d))
1005    #+XCL
1006    "(A B
1007       (NIL C)
1008       D)"
1009    #+CLISP "(A B (NIL C) D)"
1010    
1011    (WRITE-TO-STRING '#(a b nil c (a b nil c) (nil)))
1012    "#(A B NIL C (A B NIL C) (NIL))"
1013    ;;"#(A B NIL C
1014    ;;(A B NIL C)
1015    ;;(NIL))"
1016    
1017    ;-------------------------------------------------------------------------------
1018    ;(progn (print "etwa mitte") t) T
1019    ;-------------------------------------------------------------------------------
1020    
1021    (setq *print-pretty* nil)
1022    NIL
1023    
1024     ;
1025     ;      test read-suppress
1026     ;
1027    (let ((*read-suppress* t)) (read-from-string "#o33"))
1028    NIL
1029    
1030    (let ((*read-suppress* t)) (read-from-string "#x1b"))
1031    NIL
1032    
1033    (let ((*read-suppress* t)) (read-from-string "#b11011"))
1034    NIL
1035    
1036    (let ((*read-suppress* t)) (read-from-string "#.(* 3 3 3)"))
1037    NIL
1038    
1039    (let ((*read-suppress* t)) (read-from-string "(a . b)"))
1040    #+XCL NIL #-XCL (NIL NIL NIL)
1041    
1042    (let ((*read-suppress* t)) (read-from-string "(a.b)"))
1043    #+XCL (A.B) #-XCL (NIL)
1044    
1045    (let ((*read-suppress* t)) (read-from-string "(a. b)"))
1046    #+XCL (A. B) #-XCL (NIL NIL)
1047                    
1048    (let ((*read-suppress* t)) (read-from-string "(a \. b c)"))
1049    #+XCL (A \. B C) #-XCL (NIL NIL NIL NIL)
1050    
1051    (let ((*read-suppress* t)) (read-from-string "(a |.| b c)"))
1052    #+XCL (A \. B C) #-XCL (NIL NIL NIL NIL)
1053    
1054    (let ((*read-suppress* t)) (read-from-string "(a \... b c)"))
1055    #+XCL (A \... B C) #-XCL (NIL NIL NIL NIL)
1056    
1057    (let ((*read-suppress* t)) (read-from-string "(a |...| b c)"))
1058    #+XCL (A \... B C) #-XCL (NIL NIL NIL NIL)
1059    
1060    (let ((*read-suppress* t)) (read-from-string "(a b . c)"))
1061    #+XCL NIL #-XCL (NIL NIL NIL NIL)
1062    
1063    (let ((*read-suppress* t)) (read-from-string ".ab"))
1064    #+XCL .AB #-XCL NIL
1065    
1066    (let ((*read-suppress* t)) (read-from-string "(. b)"))
1067    #+XCL NIL #-XCL (NIL NIL)
1068    
1069    (let ((*read-suppress* t)) (read-from-string "(a .. b)"))
1070    #+XCL (A NIL B) #-XCL (NIL NIL NIL)
1071            
1072    (let ((*read-suppress* t)) (read-from-string "(a . . 'b   )"))
1073    #+XCL NIL #-XCL (NIL NIL NIL 'NIL)
1074    
1075    (let ((*read-suppress* t)) (read-from-string "(a b c ...)"))
1076    #+XCL (A B C NIL) #-XCL (NIL NIL NIL NIL)
1077    
1078    (let ((*read-suppress* t)) (read-from-string "#\\control-meta-a"))
1079    NIL
1080    
1081    (let ((*read-suppress* t)) (read-from-string "#\\control-meta-\\a"))
1082    NIL
1083    
1084    (let ((*read-suppress* t)) (read-from-string "#\\linefeed"))
1085    NIL
1086    
1087    (let ((*read-suppress* t)) (read-from-string "#\\newline"))
1088    NIL
1089    
1090    (let ((*read-suppress* t)) (read-from-string "#\\space"))
1091    NIL
1092    
1093    (let ((*read-suppress* t)) (read-from-string "#\\rubout"))
1094    NIL
1095    
1096    (let ((*read-suppress* t)) (read-from-string "#\\page"))
1097    NIL
1098    
1099    (let ((*read-suppress* t)) (read-from-string "#\\tab"))
1100    NIL
1101    
1102    (let ((*read-suppress* t)) (read-from-string "#\\backspace"))
1103    NIL
1104    
1105    (let ((*read-suppress* t)) (read-from-string "#\\return"))
1106    NIL
1107    
1108    (let ((*read-suppress* t)) (read-from-string "#\\control-space"))
1109    NIL
1110    
1111    (let ((*read-suppress* t)) (read-from-string "#\\c-m-return"))
1112    NIL
1113    
1114    (let ((*read-suppress* t)) (read-from-string "#\\control-meta-tab"))
1115    NIL
1116    
1117    (let ((*read-suppress* t)) (read-from-string "#\\h-s-m-c-rubout"))
1118    NIL
1119    
1120    (let ((*read-suppress* t)) (read-from-string "#\\control-%"))
1121    NIL
1122    
1123    (let ((*read-suppress* t)) (read-from-string "#\\control-\""))
1124    NIL
1125    
1126    (let ((*read-suppress* t)) (read-from-string "#\\meta->"))
1127    NIL
1128    
1129    (let ((*read-suppress* t)) (read-from-string "xx:xx")) nil
1130    
1131    (let ((*read-suppress* t)) (read-from-string "xx::xx")) nil
1132    
1133    (setq *print-level* 10)
1134    10
1135    
1136            (let ((*read-suppress* t)) (read-from-string "(#1=(a b #1#))"))
1137       #+XCL ((A B NIL)) #-XCL ((NIL NIL NIL))
1138            (let ((*read-suppress* t)) (read-from-string "(#1=(#1#))"))
1139       ((NIL))
1140    
1141            (let ((*read-suppress* t)) (read-from-string "(#1=(a b #1#) (c d #1#))"))
1142       #+XCL ((A B NIL) (C D NIL)) #-XCL ((NIL NIL NIL) (NIL NIL NIL))
1143    
1144    (setq *print-level* nil)
1145    NIL
1146    
1147    (setq *print-length* 11)
1148    11
1149    
1150            (let ((*read-suppress* t)) (read-from-string "#1=(a b . #1#)"))
1151       #+XCL NIL #-XCL (NIL NIL NIL NIL)
1152    
1153    (setq *print-length* nil)
1154    NIL
1155    
1156    
1157            (let ((*read-suppress* t)) (read-from-string "#0a7"))
1158       NIL
1159            (let ((*read-suppress* t)) (read-from-string "#1a(1 2 3 4 5 6 7 8)"))
1160       NIL
1161            (let ((*read-suppress* t)) (read-from-string "#2a((1 2 3)(3 2 1))"))
1162       NIL
1163            (let ((*read-suppress* t)) (read-from-string "#3a(((1 2 3 ) (4 5 6))
1164                                                              ((1 2 3 ) (4 5 6)))"))
1165       NIL
1166            (let ((*read-suppress* t)) (read-from-string "#a7"))
1167       NIL
1168            (let ((*read-suppress* t)) (read-from-string "#2a((1 2)(3 4)(5 6))"))
1169       NIL
1170            (let ((*read-suppress* t)) (read-from-string "#3a(((1 2)(3 4)(5 6))
1171                                                              ((7 8)(9 10)(11 12)))"))
1172       NIL
1173    
1174            (let ((*read-suppress* t)) (read-from-string "#0*111"))
1175       NIL
1176      
1177            (let ((*read-suppress* t)) (read-from-string "#0(1 1 1 )"))
1178       #+XCL ERROR #-XCL NIL
1179    
1180            (let ((*read-suppress* t)) (read-from-string "#0r111"))
1181       NIL
1182            (let ((*read-suppress* t)) (read-from-string "#1r111"))
1183       NIL
1184            (let ((*read-suppress* t)) (read-from-string "#2r111"))
1185       NIL
1186            (let ((*read-suppress* t)) (read-from-string "#36r111"))
1187       NIL
1188            (let ((*read-suppress* t)) (read-from-string "#37r111"))
1189       NIL
1190    
1191    ;        (list 1 2 #\a)
1192    ;   (1 2 NIL)
1193    
1194            (let ((*read-suppress* t)) (read-from-string "#2(a b c)"))
1195       #+XCL ERROR #-XCL NIL
1196            (let ((*read-suppress* t)) (read-from-string "#2*1010"))
1197       NIL
1198            (let ((*read-suppress* t)) (read-from-string "#1#"))
1199       NIL
1200    
1201    ;;        #2a((1 2 3)(1 2)
1202    ;;        #2a(1 2 3}
1203    ;;   NIL
1204    
1205            (let ((*read-suppress* t)) (read-from-string "#(1 2 3 .               )"))
1206       #+XCL ERROR #-XCL NIL
1207    
1208            (let ((*read-suppress* t)) (read-from-string "(a .)"))
1209       #+XCL NIL #-XCL (NIL NIL)
1210            (let ((*read-suppress* t)) (read-from-string "(. a)"))
1211       #+XCL NIL #-XCL (NIL NIL)
1212    
1213            (let ((*read-suppress* t)) (read-from-string "#37R"))
1214       NIL
1215            (let ((*read-suppress* t)) (read-from-string "#10rabc"))
1216       NIL
1217            (let ((*read-suppress* t)) (read-from-string "#10ra/b"))
1218       NIL
1219            (let ((*read-suppress* t)) (read-from-string "#\\nocontrol-"))
1220       NIL
1221            (let ((*read-suppress* t)) (read-from-string "#\\control-"))
1222       NIL
1223    
1224    
1225    ;&----- Tread3.tst -------------------------------------------------------------
1226    
1227    ;******** Readfehler ***********************************************************
1228    (read-from-string "#\\break")
1229    ERROR
1230    
1231    (read-from-string "#\\home-up")
1232    ERROR
1233    
1234    (read-from-string "#\\escape")
1235    #+XCL ERROR #+CLISP #\Escape
1236    
1237    (#+xx 1 #+xx 2) nil
1238    (#+xx xx:xx)    nil
1239    
1240    ;;;; typsystem notwendig
1241    (read-from-string "#c(pi 0)")
1242    ERROR
1243    
1244    (read-from-string "#c(0 pi)")
1245    ERROR
1246    
1247    #|
1248    ;******** test fehlerbehandlung ***********************************************
1249    (setq lisptest::*error-message* t)
1250    T
1251    
1252    
1253    ;;;;    test fehlerbehandlung in COMREAD                                   ;;;;
1254    ;;;;    --------------------------------                                   ;;;;
1255    ;;;     test fehlerbehandlung in Shift                                      ;;;
1256    ;;;     ------------------------------                                      ;;;
1257    ;;      1.zeichen                                                            ;;
1258    ;;      ---------                                                            ;;
1259    ;       EOF
1260    
1261    (read-from-string "")
1262    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"\"))"
1263    ;;"(LT-ERROR LISP::E-READ-TOKEN 4 (\"\"))"
1264    
1265    ;       constituent/illegal2                            ; nicht moeglich
1266    ;sinnlos !      (setq illegal2 (code-char 8))
1267    ;   #\BACKSPACE
1268            ; 127 ?         ; illegal2 wird nicht
1269    ;       (set-syntax-from-char #\A illegal2)
1270    ;   T
1271                    ; kopiert !
1272    ;       'Abc
1273    
1274    ;   ABC
1275    ;       : nach #:
1276            #::abc
1277    
1278       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"#::ABC\"))"
1279    ;       unbekannte typ oder illegal1
1280    (setq illegal1 (code-char 7))
1281    #\
1282    
1283            (set-syntax-from-char #\B illegal1)
1284       T
1285    
1286            B
1287       "(LT-ERROR LISP::E-READ-TOKEN 5 (\"\" 66))"
1288    ;cd
1289    
1290    ;   "(LT-ERROR LISP::UNBOUND-VARIABLE 1 CD)"
1291    ;;      token 1                                                              ;;
1292    ;;      -------                                                              ;;
1293    ;       EOF
1294            (read-from-string "ab")
1295       ab
1296    
1297    ;       constituent/illegal2
1298    ;       'abAcd  
1299    ;   ABACD
1300                                            ; s.o.
1301    ;       unzulaessige :
1302            ::abc
1303    
1304       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"<:>:ABC\"))"
1305            #::abc
1306    
1307       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"#::ABC\"))"
1308            :::abc
1309    
1310       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"<:>::ABC\"))"
1311            #:::abc
1312    
1313       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"#:::ABC\"))"
1314            :a:bc
1315    
1316       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A<:>:BC\"))"
1317            #:a:bc
1318    
1319       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A<#:>:BC\"))"
1320            :a::bc
1321    
1322       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A<:>::BC\"))"
1323            #:a::bc
1324    
1325       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A<#:>::BC\"))"
1326            :abc:
1327    
1328       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"ABC<:>:\"))"
1329            #:abc:
1330    
1331       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"ABC<#:>:\"))"
1332            ab:
1333    
1334       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"AB:
1335    \"))"
1336            ab:cd:
1337    
1338       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"AB:CD:\"))"
1339            ab::
1340    
1341       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"AB::
1342    \"))"
1343            a:b:c
1344    
1345       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A:B:C\"))"
1346            a:b::c
1347    
1348       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A:B::C\"))"
1349            a::b:c
1350    
1351       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A::B:C\"))"
1352            a::b::c
1353    
1354       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A::B::C\"))"
1355    
1356    ;       EOF nach \
1357    (read-from-string "ab\\")
1358    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"AB\\\\\"))"
1359    ;;"(LT-ERROR LISP::E-READ-TOKEN 4 (\"AB\\\\\"))"
1360    
1361    ;       unbekannte typ oder illegal1
1362            abB
1363       "(LT-ERROR LISP::E-READ-TOKEN 5 (\"AB\" 66))"
1364            ;cd
1365    ;;      token 2                                                              ;;
1366    ;;      -------                                                              ;;
1367    ;       EOF
1368    (read-from-string "xx::a|bc")
1369    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"Abc<|>\"))"
1370    ;;"(LT-ERROR LISP::E-READ-TOKEN 4 (\"Abc<|>\"))"
1371            
1372    (read-from-string "xx::a\\")
1373    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"A\\\\\"))"
1374    ;;"(LT-ERROR LISP::E-READ-TOKEN 4 (\"A\\\\\"))"
1375    
1376    (read-from-string "xx:a\\")
1377    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"A\\\\\"))"
1378    ;;"(LT-ERROR LISP::E-READ-TOKEN 4 (\"A\\\\\"))"
1379    
1380    (read-from-string "ab|cd")
1381    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"ABcd<|>\"))"
1382    ;;"(LT-ERROR LISP::E-READ-TOKEN 4 (\"ABcd<|>\"))"
1383    
1384    (read-from-string "ab|")
1385    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"AB<|>\"))"
1386    ;;"(LT-ERROR LISP::E-READ-TOKEN 4 (\"AB<|>\"))"
1387    
1388    ;       EOF nach \
1389    (read-from-string "ab|c\\")
1390    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"ABc<|>\\\\\"))"
1391    ;;"(LT-ERROR LISP::E-READ-TOKEN 4 (\"ABc<|>\\\\\"))"
1392    
1393    ;       unbekannter typ oder illegal1
1394    (read-from-string "ab|cdB")
1395    "(LT-ERROR LISP::E-READ-TOKEN 5 (\"ABcd<|>\" 66))"
1396            ;ef
1397    ;;      ende                                                                 ;;
1398    ;;      ----                                                                 ;;
1399    ;       : leer
1400            (read-from-string ":")
1401       "(LT-ERROR LISP::E-READ-TOKEN 3 (\":*\"))"
1402            
1403            (read-from-string ": ")
1404       "(LT-ERROR LISP::E-READ-TOKEN 3 (\": \"))"
1405            
1406            (read-from-string "#:")
1407       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"#:\"))"
1408    
1409            (read-from-string "#: ")
1410       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"#: \"))"
1411            
1412            (read-from-string "a:")
1413       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A:*\"))"
1414            
1415            (read-from-string "a: ")
1416       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A: \"))"
1417            
1418            (read-from-string "a::")
1419       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A::*\"))"
1420            
1421            (read-from-string "a:: ")
1422       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"A:: \"))"
1423            
1424    ;       punkttoken
1425            ....
1426    
1427       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"....\"))"
1428    ;;;     fehlerbehandlung in scanobj                                         ;;;
1429    ;;;     ---------------------------                                         ;;;
1430    ;;      listen                                                               ;;
1431    ;;      ------                                                               ;;
1432    ;       EOF
1433            (read-from-string "(a b" )
1434       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((A B)) LISP::E-READ-TOKEN 4
1435    (\"\"))"
1436    
1437            (read-from-string "(a b " )
1438       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((A B)) LISP::E-READ-TOKEN 4
1439    (\"\"))"
1440    
1441            (read-from-string "(a b" nil 'dummy)
1442       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((A B)))"
1443    
1444            (read-from-string "(a b " nil 'dummy)
1445       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((A B)))"
1446    
1447    ;       EOF nach .
1448            (read-from-string "(a b . ")
1449       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((A B #\\.)) LISP::E-READ-TOKEN
1450    4 (\"\"))"
1451    
1452            (read-from-string "(a b ." nil 'dummy)
1453       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((A B)))"
1454    
1455            (read-from-string "(a b . "  nil 'dummy)
1456       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((A B)))"
1457    
1458            (read-from-string "(a b .")
1459    ;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((A B #\\.)))"
1460        "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((A B)))"
1461    
1462            (read-from-string "(a b . c")
1463       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((A B C)) LISP::E-READ-TOKEN
1464    4 (\"\"))"
1465    
1466    ;       2. .obj
1467            (a b . . c d)
1468       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((A B #\\. #\\. C D)))"
1469    
1470    ;       nur 1 obj fuer gep. paar
1471            (a .)
1472       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((A #\\.)))"
1473    
1474            (. a)
1475       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((A)))"
1476    
1477    ;       keine klammer nach 2.obj
1478            (a . b c d)
1479       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((A B C D)))"
1480    
1481            (a . )
1482       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((A #\\.)))"
1483    
1484    ;-------------------------------------------------------------------------------
1485    ;(progn (print "etwa drei viertel") t) T
1486    ;-------------------------------------------------------------------------------
1487    
1488    ;;      macros                                                               ;;
1489    ;;      ------                                                               ;;
1490    ;       EOF nach backquotekomma
1491            (read-from-string ",")
1492       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((UNQUOTE)))"
1493    
1494            (read-from-string ", ")
1495       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((UNQUOTE)) LISP::E-READ-TOKEN
1496    4 (\"\"))"
1497    
1498            (read-from-string "," nil 'dummy)
1499       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((UNQUOTE)))"
1500    
1501            (read-from-string ", " nil 'dummy)
1502       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((UNQUOTE)))"
1503    
1504    ;       . nach backquotekomma
1505            (read-from-string ",.")
1506       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((LISP::UNQUOTE-NSPLICING))
1507    
1508    LISP::E-READ-TOKEN 4 (\"\"))"
1509    
1510            (read-from-string ",. ")
1511       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((LISP::UNQUOTE-NSPLICING))
1512    
1513    LISP::E-READ-TOKEN 4 (\"\"))"
1514    
1515            (read-from-string ",." nil 'dummy)
1516       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((LISP::UNQUOTE-NSPLICING)))"
1517    
1518            (read-from-string ",. " nil 'dummy)
1519       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((LISP::UNQUOTE-NSPLICING)))"
1520    
1521    ;       ) nach backquotekomma
1522            (read-from-string ",)")
1523       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((UNQUOTE)))"
1524    
1525            (read-from-string ",) ")
1526       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((UNQUOTE)))"
1527    
1528            (read-from-string ",)" nil 'dummy)
1529       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((UNQUOTE)))"
1530    
1531            (read-from-string ",) " nil 'dummy)
1532       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((UNQUOTE)))"
1533    
1534    ;       } nach backquotekomma
1535    ;;        (read-from-string ",}")
1536    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((UNQUOTE)))"
1537    
1538    ;;        (read-from-string ",} ")
1539    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((UNQUOTE)))"
1540    
1541    ;;        (read-from-string ",}" nil 'dummy)
1542    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((UNQUOTE)))"
1543    
1544    ;;        (read-from-string ",} " nil 'dummy)
1545    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((UNQUOTE)))"
1546    
1547    ;       EOF nach quote
1548            (read-from-string "'")
1549       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((QUOTE)) LISP::E-READ-TOKEN
1550    4 (\"\"))"
1551    
1552            (read-from-string "' ")
1553       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((QUOTE)) LISP::E-READ-TOKEN
1554    4 (\"\"))"
1555    
1556            (read-from-string "'" nil 'dummy)
1557       "(LT-ERROR LISP::E-READ-STRUCTURE 0 (NIL))"
1558    
1559            (read-from-string "' " nil 'dummy)
1560       "(LT-ERROR LISP::E-READ-STRUCTURE 0 (NIL))"
1561    
1562    ;       . nach quote
1563            (read-from-string "'.")
1564       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((QUOTE)))"
1565    
1566            (read-from-string "'. ")
1567       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUOTE)))"
1568    
1569            (read-from-string "'." nil 'dummy)
1570       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((QUOTE)))"
1571    
1572            (read-from-string "'. " nil 'dummy)
1573       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUOTE)))"
1574    
1575    ;       ) nach quote
1576            (read-from-string "')")
1577       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUOTE)))"
1578    
1579            (read-from-string "') ")
1580       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUOTE)))"
1581    
1582            (read-from-string "')" nil 'dummy)
1583       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUOTE)))"
1584    
1585            (read-from-string "') " nil 'dummy)
1586       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUOTE)))"
1587    
1588    ;       } nach quote
1589    ;;        (read-from-string "'}")
1590    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUOTE)))"
1591    
1592    ;;        (read-from-string "'} ")
1593    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUOTE)))"
1594    
1595    ;;        (read-from-string "'}" nil 'dummy)
1596    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUOTE)))"
1597    
1598    ;;        (read-from-string "'} " nil 'dummy)
1599    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUOTE)))"
1600    
1601    
1602    ;&----- Tread4.tst -------------------------------------------------------------
1603    ;(setq lisptest::*error-message* t)
1604    ;   T
1605    ;(setq illegal1 (code-char 7))
1606    ;   #\
1607    ;(set-syntax-from-char #\B illegal1)
1608    ;   T
1609    ;       EOF nach backquote
1610            (read-from-string "`")
1611       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((QUASIQUOTE)) LISP::E-READ-TOKEN
1612    4 (\"\"))"
1613    
1614            (read-from-string "` ")
1615       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((QUASIQUOTE)) LISP::E-READ-TOKEN
1616    4 (\"\"))"
1617    
1618            (read-from-string "`" nil 'dummy)
1619       "(LT-ERROR LISP::E-READ-STRUCTURE 0 (NIL))"
1620    
1621            (read-from-string "` " nil 'dummy)
1622       "(LT-ERROR LISP::E-READ-STRUCTURE 0 (NIL))"
1623    
1624    ;       . nach backquote
1625            (read-from-string "`.")
1626       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((QUASIQUOTE)))"
1627    
1628            (read-from-string "`. ")
1629       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUASIQUOTE)))"
1630    
1631            (read-from-string "`." nil 'dummy)
1632       "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((QUASIQUOTE)))"
1633    
1634            (read-from-string "`. " nil 'dummy)
1635       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUASIQUOTE)))"
1636    
1637    ;       ) nach backquote
1638            (read-from-string "`)")
1639       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUASIQUOTE)))"
1640    
1641            (read-from-string "`) ")
1642       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUASIQUOTE)))"
1643    
1644            (read-from-string "`)" nil 'dummy)
1645       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUASIQUOTE)))"
1646    
1647            (read-from-string "`) " nil 'dummy)
1648       "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUASIQUOTE)))"
1649    
1650    ;       } nach backquote
1651    ;;        (read-from-string "`}")
1652    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUASIQUOTE)))"
1653    
1654    ;;        (read-from-string "`} ")
1655    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUASIQUOTE)))"
1656    
1657    ;;        (read-from-string "`}" nil 'dummy)
1658    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUASIQUOTE)))"
1659    
1660    ;;        (read-from-string "`} " nil 'dummy)
1661    ;;   "(LT-ERROR LISP::E-READ-STRUCTURE 1 ((QUASIQUOTE)))"
1662    
1663    ;       EOF im string
1664            (read-from-string "\"a")
1665       "(LT-ERROR LISP::E-READ-TOKEN 4 (\"a<\\\">\"))"
1666    
1667            (read-from-string "\"")
1668       "(LT-ERROR LISP::E-READ-TOKEN 4 (\"<\\\">\"))"
1669    
1670            (read-from-string "\"a" nil 'dummy)
1671       "(LT-ERROR LISP::E-READ-TOKEN 4 (\"a<\\\">\"))"
1672    
1673            (read-from-string "\"" nil 'dummy)
1674       "(LT-ERROR LISP::E-READ-TOKEN 4 (\"<\\\">\"))"
1675    
1676    ;       EOF nach \ im string
1677            (read-from-string "\"a\\")
1678       "(LT-ERROR LISP::E-READ-TOKEN 4 (\"a<\\\">\\\\\"))"
1679    
1680            (read-from-string "\"\\")
1681       "(LT-ERROR LISP::E-READ-TOKEN 4 (\"<\\\">\\\\\"))"
1682    
1683            (read-from-string "\"a\\" nil 'dummy)
1684       "(LT-ERROR LISP::E-READ-TOKEN 4 (\"a<\\\">\\\\\"))"
1685    
1686            (read-from-string "\"\\" nil 'dummy)
1687       "(LT-ERROR LISP::E-READ-TOKEN 4 (\"<\\\">\\\\\"))"
1688    
1689    ;;      disp-macros                                                          ;;
1690    ;;      -----------                                                          ;;
1691    ;       EOF in infixarg
1692            (read-from-string "#12")
1693       "(LT-ERROR E-READ-MACRO 0 (#\\# 12 #\\SPACE NIL))"
1694    
1695            (read-from-string "#")
1696       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\SPACE NIL))"
1697    
1698            (read-from-string "#12" nil 'dummy)
1699       "(LT-ERROR E-READ-MACRO 0 (#\\# 12 #\\SPACE NIL))"
1700    
1701            (read-from-string "#" nil 'dummy)
1702       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\SPACE NIL))"
1703    
1704    ;       EOF oder illegale zeichenfolge in char
1705            (read-from-string "#\\")
1706       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\\\ \"\"))"
1707    
1708            (read-from-string "#\\" nil 'dummy)
1709       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\\\ \"\"))"
1710    
1711            (read-from-string "#\\con")
1712       "(LT-ERROR E-READ-MACRO 0 (#\\# 256 #\\\\ \"\"))"
1713    
1714            (read-from-string "#\\con" nil 'dummy)
1715       "(LT-ERROR E-READ-MACRO 0 (#\\# 256 #\\\\ \"\"))"
1716    
1717            (read-from-string "#\\m-com-a")
1718       "(LT-ERROR E-READ-MACRO 0 (#\\# 512 #\\\\ \"COM-a\"))"
1719    
1720    
1721    ;       keine Zahl in #R
1722            #10R1a2
1723    
1724       "(LT-ERROR E-READ-MACRO 1 (#\\# 10 #\\R \"1A2\"))"
1725    ;       keine zahlensyntax in #R
1726            #10Ra12
1727    
1728       "(LT-ERROR E-READ-MACRO 1 (#\\# 10 #\\R \"A12\"))"
1729    ;       keine Readbase in #R
1730            #40R123
1731    
1732       "(LT-ERROR E-READ-MACRO 1 (#\\# 40 #\\R \"123\"))"
1733    ;       EOF oder nichtconstituent nach #:
1734            (read-from-string "#:")
1735       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"#:\"))"
1736    
1737            (read-from-string "#:" nil 'dummy)
1738       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"#:\"))"
1739    
1740            (read-from-string "#:B")
1741       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"#:B\"))"
1742    
1743    ;       kein Atom nach #:
1744            (read-from-string "#:( a b )")
1745       "(LT-ERROR LISP::E-READ-TOKEN 3 (\"#:(\"))"
1746    
1747    #:123  
1748    "(LT-ERROR UNBOUND-VARIABLE 1 #:\\123)"
1749    
1750    ;       kein subchar
1751    #0111010
1752    "(LT-ERROR E-READ-MACRO 2 (#\\# 111010 #\\NEWLINE NIL))"
1753    
1754    ;;;;    test fehlerbehandlung in COMREAD1                                  ;;;;
1755    ;;;;    ---------------------------------                                  ;;;;
1756    ;;      kommentar                                                            ;;
1757    ;;      ---------                                                            ;;
1758    ;       EOF
1759            (read-from-string "#|")  ;; |#
1760       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\| NIL))"
1761    
1762            (read-from-string "#|abc")  ;; |#
1763       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\| NIL))"
1764    
1765            (read-from-string "#|abc|")  ;; |#
1766       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\| NIL))"
1767    
1768            (read-from-string "#|abc#")  ;; |#
1769       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\| NIL))"
1770    
1771            (read-from-string "#|abc#|de#xyz")  ;; |# |#
1772       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\| NIL))"
1773    
1774    ;;      vektor                                                              ;;
1775    ;;      ------                                                              ;;
1776    ;       EOF
1777            (read-from-string "#(a b c")
1778       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\( (A B C)) LISP::E-READ-TOKEN
1779    4 (\"\"))"
1780    
1781    ;       gelesene anzahl zu gross
1782            #3(a b c d e f)
1783       "(LT-ERROR E-READ-MACRO 1 (#\\# 3 #\\( (A B C D E F)))"
1784    
1785    ;       falscher abschluss fuer vector
1786            (read-from-string "#(a b c . d e f)")
1787       "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\( (A B C #\\. D E F)))"
1788    
1789    ;;      Zeichen                                                             ;;
1790    ;;      -------                                                             ;;
1791    ;       EOF als 1.zeichen
1792            (read-from-string "#\\")
1793       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\\\ \"\"))"
1794    
1795            (read-from-string "#\\a")
1796       #\a
1797    
1798            #\a\abc-de
1799    
1800       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\\\ \"a\\\\abc-de
1801    \"))"
1802            (read-from-string "#\\a|abc-de")
1803    
1804       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\\\ \"a|abc-de
1805    \"))"
1806            #\a#abc-de
1807    
1808       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\\\ \"a#abc-de
1809    \"))"
1810            #\con\abc-de
1811    
1812       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\\\ \"CON\\\\abc-de
1813    \"))"
1814            (read-from-string "#\\\\")
1815       #\\
1816    
1817            (read-from-string "#\\con-\\")
1818       "(LT-ERROR E-READ-MACRO 0 (#\\# 256 #\\\\ \"\\\\\"))"
1819    
1820            (read-from-string "#\\con|abc-de")
1821    
1822       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\\\ \"CON|abc-de
1823    \"))"
1824            #\con#abc-de
1825    
1826       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\\\ \"CON#abc-de
1827    \"))"
1828            #\con-abc
1829    
1830       "(LT-ERROR E-READ-MACRO 0 (#\\# 256 #\\\\ \"ABC\"))"
1831    
1832    ;;;     test fehlerbehandlung in COMREAD2                                 ;;;
1833    ;;;     ---------------------------------                                 ;;;
1834    ;;      Searcalm                                                           ;;
1835    ;;      --------                                                           ;;
1836    ;       keine funktionsliste
1837    (make-dispatch-macro-character #\X t)
1838    T
1839    
1840    Xa
1841    "(LT-ERROR E-READ-MACRO 2 (#\\X NIL #\\a NIL))"
1842    
1843    ;       keine dispatchmacroliste am zeichen
1844    (set-macro-character #\Y #'cdr t)
1845    T
1846    
1847    (make-dispatch-macro-character #\Y t)
1848    T
1849    
1850    Ya
1851    "(LT-ERROR E-READ-MACRO 2 (#\\Y NIL #\\a NIL))"
1852    
1853    ;       subchar nicht in liste
1854    (set-dispatch-macro-character #\Y #\. #'car)
1855    T
1856    
1857    Y,
1858    "(LT-ERROR E-READ-MACRO 2 (#\\Y NIL #\\, NIL))"
1859    
1860    (progn (SETQ *READTAbLE* (COPY-READTAbLE nil)) t)
1861    T
1862    
1863    ;;      Makearray                                                         ;;
1864    ;;      ---------                                                         ;;
1865    ;       dimension = 0 und EOF
1866            (read-from-string "#0a")
1867       "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\a NIL) LISP::E-READ-TOKEN 4
1868    (\"\"))"
1869    
1870            (read-from-string "#0a" nil 'dummy)
1871       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\a NIL))"
1872    
1873    ;       dimension = 0 und ERROR
1874            #0a.
1875    
1876       "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\a #\\.))"
1877            (read-from-string "#0a)")
1878       "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\a #\\)))"
1879    
1880    ;;        (read-from-string "#0a}")
1881    ;;   "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\a #\\}))"
1882    
1883    ;       klammereinlesen EOF
1884            (read-from-string "#3a(((1)(2))(" )
1885       "(LT-ERROR E-READ-MACRO 0 (#\\# 3 #\\a (1 2)))"
1886    
1887            (read-from-string "#3a(((1)(2))((3" )
1888       "(LT-ERROR E-READ-MACRO 0 (#\\# 3 #\\a (1 2 3)) LISP::E-READ-TOKEN
1889    4 (\"\"))"
1890    
1891    ;       klammereinlesen falsche termacro
1892            (multiple-value-list (read-from-string "#3a(((1)(2))(;xyz"))
1893       "(LT-ERROR E-READ-MACRO 1 (#\\# 3 #\\a (1 2 #\\;)))"
1894    
1895            (multiple-value-list (read-from-string "#3a(((1)(2))((3;xyz"))
1896       "(LT-ERROR E-READ-MACRO 0 (#\\# 3 #\\a (1 2 3)) LISP::E-READ-TOKEN
1897    4 (\"\"))"
1898    
1899    ;       klammereinlesen falsche zeichen
1900    (read-from-string "#3a(((1)(2))(axyz")
1901    "(LT-ERROR E-READ-MACRO 1 (#\\# 3 #\\a (1 2 #\\a)))"
1902    
1903    
1904    ;&----- Tread5.tst -------------------------------------------------------------
1905    (setq lisptest::*error-message* t)
1906    T
1907    
1908    (read-from-string "#3a(((1)(2))((3 axyz")
1909    "(LT-ERROR E-READ-MACRO 0 (#\\# 3 #\\a (1 2 3 AXYZ)) LISP::E-READ-TOKEN
1910    4 (\"\"))"
1911    
1912    ;       EOF in obj
1913            (read-from-string "#3a(((1)(2))((" )
1914       "(LT-ERROR E-READ-MACRO 0 (#\\# 3 #\\a (1 2)) LISP::E-READ-TOKEN
1915    4 (\"\"))"
1916    
1917            (read-from-string "#3a(((1)(2))((" nil 'dummy)
1918       "(LT-ERROR E-READ-MACRO 0 (#\\# 3 #\\a (1 2)))"
1919    
1920    ;       falsche zeichen fuer klammer zu
1921            #3a(((1)(2))((3 )(4))((5)(6)))
1922       #3A(((1)(2))((3)(4))((5)(6)))
1923    
1924    ;;#3a(((1)(2))((3}
1925    ;;"(LT-ERROR E-READ-MACRO 1 (#\\# 3 #\\a (1 2 3)))"
1926    
1927    xyz
1928    "(LT-ERROR UNBOUND-VARIABLE 1 XYZ)"
1929    
1930    (read-from-string "#3a(((1)(2))((3(xyz")
1931    "(LT-ERROR LISP::E-READ-STRUCTURE 0 ((XYZ)) LISP::E-READ-TOKEN 4 (\"\"))"
1932    
1933            (read-from-string "#3a(((1)(2))((3" )
1934       "(LT-ERROR E-READ-MACRO 0 (#\\# 3 #\\a (1 2 3)) LISP::E-READ-TOKEN
1935    4 (\"\"))"
1936    
1937    ;       falsche klammerung
1938            #3a(((1) (2))((3 4)
1939       "(LT-ERROR E-READ-MACRO 1 (#\\# 3 #\\a (1 2 3 4)))"
1940    
1941    ;;      Mbitvector                                                           ;;
1942    ;;      ----------                                                           ;;
1943    ;       falsche zeichen
1944            #*11001a11
1945    
1946       "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\* (49 49 48 48 49 97 49 49)))"
1947    ;       zu viele elemente
1948            #5*111001101
1949    
1950       "(LT-ERROR E-READ-MACRO 1 (#\\# 5 #\\* (49 49 49 48 48 49 49 48
1951    49)))"
1952    ;;      Makemacro                                                            ;;
1953    ;;      ---------                                                            ;;
1954    ;       complex-obj nicht 2elementige liste
1955    
1956    ;;;declare ?    
1957    #cab
1958    "(LT-ERROR E-READ-MACRO 1 (#\\# NIL #\\c AB))"
1959    ;;;declare ?
1960    #c(1)
1961    "(LT-ERROR E-READ-MACRO 1 (#\\# NIL #\\c (1)))"
1962    
1963    #c(1 2 3)
1964    "(LT-ERROR E-READ-MACRO 1 (#\\# NIL #\\c (1 2 3)))"
1965    
1966    (read-from-string "#c")
1967    ;alt   "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\c NIL) LISP::E-READ-TOKEN
1968    4 (\"\"))"
1969    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"\"))"
1970    
1971    ;       EOF nach #'
1972            (read-from-string "#'" )
1973       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\' NIL) LISP::E-READ-TOKEN 4
1974    (\"\"))"
1975    
1976            (read-from-string "#'" nil 'dummy)
1977       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\' NIL))"
1978    
1979    ;       ERROR nach #'
1980            #')
1981       "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\' #\\)))"
1982    
1983    ;;        #'}
1984    ;;   "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\' #\\}))"
1985    
1986            #'.
1987    
1988       "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\' #\\.))"
1989    ;       EOF nach #+
1990            (read-from-string "#+" )
1991    ;alt   "(LT-ERROR LISP::E-READ-TOKEN 4 (\"\"))"
1992    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"\"))"
1993    
1994            (read-from-string "#+" nil 'dummy)
1995    ;falsch   DUMMY
1996    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"\"))"
1997    
1998    
1999    ;       ERROR nach #+
2000            (READ-FROM-STRING "#+)")
2001       "(LT-ERROR E-READ-MACRO 3 (#\\)))"
2002    
2003    ;;        (READ-FROM-STRING "#+}")
2004    ;;   "(LT-ERROR E-READ-MACRO 3 (#\\}))"
2005    
2006            (READ-FROM-STRING "#+.")
2007       "(LT-ERROR E-READ-MACRO 3 (#\\.))"
2008    
2009    ;       kein symbol oder liste nach #+
2010            (READ-FROM-STRING "#+123")
2011    ;alt   "(LT-ERROR LISP::E-READ-TOKEN 4 (\"\"))"
2012    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"\"))"
2013    
2014    ;       EOF nach #-
2015            (read-from-string "#-" )
2016    ;alt   "(LT-ERROR LISP::E-READ-TOKEN 4 (\"\"))"
2017    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"\"))"
2018    
2019            (read-from-string "#-" nil 'dummy)
2020    ;fatsch   DUMMY
2021    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"\"))"
2022    
2023    ;       ERROR nach #-
2024            (read-from-string "#-)")
2025       "(LT-ERROR E-READ-MACRO 3 (#\\)))"
2026    
2027    ;;        (read-from-string "#-}")
2028    ;;   "(LT-ERROR E-READ-MACRO 3 (#\\}))"
2029    
2030            (read-from-string "#-.")
2031       "(LT-ERROR E-READ-MACRO 3 (#\\.))"
2032    
2033    ;       kein symbol oder liste nach #-
2034            (read-from-string "#-123")
2035    ;alt   "(LT-ERROR LISP::E-READ-TOKEN 4 (\"\"))"
2036    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"\"))"
2037    
2038    ;       EOF nach #.
2039            (read-from-string "#." )
2040       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\. NIL) LISP::E-READ-TOKEN 4
2041    (\"\"))"
2042    
2043            (read-from-string "#." nil 'dummy)
2044       "(LT-ERROR E-READ-MACRO 0 (#\\# 0 #\\. NIL))"
2045    
2046    ;       ERROR nach #.
2047            #.)
2048       "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\. #\\)))"
2049    
2050    ;;        #.}
2051    ;;   "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\. #\\}))"
2052    
2053            #..
2054    
2055       "(LT-ERROR E-READ-MACRO 1 (#\\# 0 #\\. #\\.))"
2056    ;       nach #1a keine (
2057            #1ax
2058       "(LT-ERROR E-READ-MACRO 1 (#\\# 1 #\\a #\\x))"
2059    
2060            (read-from-string "#1a")
2061       "(LT-ERROR E-READ-MACRO 1 (#\\# 1 #\\a #\\*))"      
2062    ;       EOF nach #n=
2063            (read-from-string "#1=" )
2064    ;alt   "(LT-ERROR LISP::E-READ-TOKEN 4 (\"\"))"
2065    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"\"))"
2066    
2067            (read-from-string "#1=" nil 'dummy)
2068    ;falsch   DUMMY
2069    "(LT-ERROR E-READ-MACRO 3 (NIL) LISP::E-READ-TOKEN 4 (\"\"))"
2070    
2071    ;       ERROR nach #1=
2072            (READ-FROM-STRING "#1=)")
2073       "(LT-ERROR E-READ-MACRO 3 (#\\)))"
2074    
2075    ;;        (READ-FROM-STRING "#1=}")
2076    ;;   "(LT-ERROR E-READ-MACRO 3 (#\\}))"
2077    
2078            (READ-FROM-STRING "#1=.")
2079       "(LT-ERROR E-READ-MACRO 3 (#\\.))"
2080    
2081    ;       label nicht gefunden
2082            (READ-FROM-STRING "#11111#")
2083       "(LT-ERROR E-READ-MACRO 1 (#\\# 11111 #\\# NIL))"
2084    
2085    (progn
2086    (makunbound 'illegal1)
2087    (setq lisptest::*error-message* nil)
2088    (setq *print-circle* t)
2089    T)
2090    T
2091    |#
2092    

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