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

Diff of /gcl/tests/streams.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    (progn (in-package 'sys) t) t
2    (PRIN1-TO-STRING (MAKE-BROADCAST-STREAM))
3    #+XCL "#<%TYPE-STRUCTURE-STREAM NIL>"
4    #+CLISP "#<BROADCAST-STREAM>"
5    
6    (PROGN (SETQ S1 (OPEN "d1.plc" :DIRECTION :OUTPUT))
7    (SETQ S2 (OPEN "d2.plc" :DIRECTION :OUTPUT))
8    (SETQ S3 (OPEN "d3.plc" :DIRECTION :OUTPUT))
9    (SETQ B1 (MAKE-BROADCAST-STREAM S1 S2 S3 *STANDARD-OUTPUT*)) T)   T
10    
11    (PRINT "test broadcast satz 1" B1)   "test broadcast satz 1"
12    
13    (PRINT "test broadcast satz 2" B1)   "test broadcast satz 2"
14    
15    (PRINT "test broadcast satz 3" B1)   "test broadcast satz 3"
16    
17    (CLOSE S1)   T
18    
19    (CLOSE S2)   T
20    
21    (CLOSE S3)   T
22    
23    (PROGN (SETQ S (OPEN "d1.plc")) T)   T
24    
25    (READ S)   "test broadcast satz 1"
26    
27    (READ S)   "test broadcast satz 2"
28    
29    (READ S)   "test broadcast satz 3"
30    
31    (CLOSE S)   T
32    
33    (PROGN (SETQ S (OPEN "d2.plc")) T)   T
34    
35    (READ S)   "test broadcast satz 1"
36    
37    (READ S)   "test broadcast satz 2"
38    
39    (READ S)   "test broadcast satz 3"
40    
41    (CLOSE S)   T
42    
43    (PROGN (SETQ S (OPEN "d3.plc")) T)   T
44    
45    (READ S)   "test broadcast satz 1"
46    
47    (READ S)   "test broadcast satz 2"
48    
49    (READ S)   "test broadcast satz 3"
50    
51    (CLOSE S)   T
52    
53    (PROGN (SETQ S (OPEN "t0.plc" :DIRECTION :OUTPUT)) T)   T
54    
55    (PRINT (QUOTE READ1) S)   READ1
56    
57    (PRINT (QUOTE READ2) S)   READ2
58    
59    (CLOSE S)   T
60    
61    (PROGN (SETQ INPTW (OPEN "t0.plc"))
62    (SETQ S1 (OPEN "d1.plc" :DIRECTION :OUTPUT))
63    (SETQ S2 (OPEN "d2.plc" :DIRECTION :OUTPUT))
64    (SETQ SY (MAKE-SYNONYM-STREAM (QUOTE S2)))
65    (SETQ S3 (OPEN "d3.plc" :DIRECTION :OUTPUT))
66    (SETQ TW (MAKE-TWO-WAY-STREAM INPTW S3))
67    (SETQ S4 (OPEN "d4.plc" :DIRECTION :OUTPUT))
68    (SETQ EC (MAKE-ECHO-STREAM INPTW S4))
69    (SETQ S5 (OPEN "d5.plc" :DIRECTION :OUTPUT))
70    (SETQ S6 (OPEN "d6.plc" :DIRECTION :OUTPUT))
71    (SETQ B1 (MAKE-BROADCAST-STREAM S5 S6))
72    (SETQ S7 (OPEN "d7.plc" :DIRECTION :OUTPUT))
73    (SETQ B2 (MAKE-BROADCAST-STREAM S1 SY TW EC B1 S7)) T)   T
74    
75    (PRINT "w to b2 1.satz" B2)   "w to b2 1.satz"
76    
77    (PRINT "w to sy" SY)   "w to sy"
78    
79    (PRINT "w to b2 2.satz" B2)   "w to b2 2.satz"
80    
81    (PRINT "w to tw" TW)   "w to tw"
82    
83    (PRINT "w to b2 3.satz" B2)   "w to b2 3.satz"
84    
85    (PRINT "w to ec" EC)   "w to ec"
86    
87    (PRINT "w to b2 4.satz" B2)   "w to b2 4.satz"
88    
89    (PRINT "w to b1" B1)   "w to b1"
90    
91    (PRINT "w to b2 5.satz" B2)   "w to b2 5.satz"
92    
93    (PRINT "w to s7" S7)   "w to s7"
94    
95    (PRINT "w to b2 6.satz" B2)   "w to b2 6.satz"
96    
97    (READ TW)   READ1
98    
99    (READ EC)   READ2
100    
101    (PRINT "w to b2 7.satz" B2)   "w to b2 7.satz"
102    
103    (PRINT "w to b2 8.satz" B2)   "w to b2 8.satz"
104    
105    (CLOSE INPTW)   T
106    
107    (CLOSE S1)   T
108    
109    (CLOSE S2)   T
110    
111    (CLOSE S3)   T
112    
113    (CLOSE S4)   T
114    
115    (CLOSE S5)   T
116    
117    (CLOSE S6)   T
118    
119    (CLOSE S7)   T
120    
121    (PROGN (SETQ S (OPEN "d1.plc")) T)   T
122    
123    (READ S)   "w to b2 1.satz"
124    
125    (READ S)   "w to b2 2.satz"
126    
127    (READ S)   "w to b2 3.satz"
128    
129    (READ S)   "w to b2 4.satz"
130    
131    (READ S)   "w to b2 5.satz"
132    
133    (READ S)   "w to b2 6.satz"
134    
135    (READ S)   "w to b2 7.satz"
136    
137    (READ S)   "w to b2 8.satz"
138    
139    (CLOSE S)   T
140    
141    (PROGN (SETQ S (OPEN "d2.plc")) T)   T
142    
143    (READ S)   "w to b2 1.satz"
144    
145    (READ S)   "w to sy"
146    
147    (READ S)   "w to b2 2.satz"
148    
149    (READ S)   "w to b2 3.satz"
150    
151    (READ S)   "w to b2 4.satz"
152    
153    (READ S)   "w to b2 5.satz"
154    
155    (READ S)   "w to b2 6.satz"
156    
157    (READ S)   "w to b2 7.satz"
158    
159    (READ S)   "w to b2 8.satz"
160    
161    (CLOSE S)   T
162    
163    (PROGN (SETQ S (OPEN "d3.plc")) T)   T
164    
165    (READ S)   "w to b2 1.satz"
166    
167    (READ S)   "w to b2 2.satz"
168    
169    (READ S)   "w to tw"
170    
171    (READ S)   "w to b2 3.satz"
172    
173    (READ S)   "w to b2 4.satz"
174    
175    (READ S)   "w to b2 5.satz"
176    
177    (READ S)   "w to b2 6.satz"
178    
179    (READ S)   "w to b2 7.satz"
180    
181    (READ S)   "w to b2 8.satz"
182    
183    (CLOSE S)   T
184    
185    (PROGN (SETQ S (OPEN "d4.plc")) T)   T
186    
187    (READ S)   "w to b2 1.satz"
188    
189    (READ S)   "w to b2 2.satz"
190    
191    (READ S)   "w to b2 3.satz"
192    
193    (READ S)   "w to ec"
194    
195    (READ S)   "w to b2 4.satz"
196    
197    (READ S)   "w to b2 5.satz"
198    
199    (READ S)   "w to b2 6.satz"
200    
201    (READ S)   READ2
202    
203    (READ S)   "w to b2 7.satz"
204    
205    (READ S)   "w to b2 8.satz"
206    
207    (CLOSE S)   T
208    
209    (PROGN (SETQ S (OPEN "d5.plc")) T)   T
210    
211    (READ S)   "w to b2 1.satz"
212    
213    (READ S)   "w to b2 2.satz"
214    
215    (READ S)   "w to b2 3.satz"
216    
217    (READ S)   "w to b2 4.satz"
218    
219    (READ S)   "w to b1"
220    
221    (READ S)   "w to b2 5.satz"
222    
223    (READ S)   "w to b2 6.satz"
224    
225    (READ S)   "w to b2 7.satz"
226    
227    (READ S)   "w to b2 8.satz"
228    
229    (CLOSE S)   T
230    
231    (PROGN (SETQ S (OPEN "d6.plc")) T)   T
232    
233    (READ S)   "w to b2 1.satz"
234    
235    (READ S)   "w to b2 2.satz"
236    
237    (READ S)   "w to b2 3.satz"
238    
239    (READ S)   "w to b2 4.satz"
240    
241    (READ S)   "w to b1"
242    
243    (READ S)   "w to b2 5.satz"
244    
245    (READ S)   "w to b2 6.satz"
246    
247    (READ S)   "w to b2 7.satz"
248    
249    (READ S)   "w to b2 8.satz"
250    
251    (CLOSE S)   T
252    
253    (PROGN (SETQ S (OPEN "d7.plc")) T)   T
254    
255    (READ S)   "w to b2 1.satz"
256    
257    (READ S)   "w to b2 2.satz"
258    
259    (READ S)   "w to b2 3.satz"
260    
261    (READ S)   "w to b2 4.satz"
262    
263    (READ S)   "w to b2 5.satz"
264    
265    (READ S)   "w to s7"
266    
267    (READ S)   "w to b2 6.satz"
268    
269    (READ S)   "w to b2 7.satz"
270    
271    (READ S)   "w to b2 8.satz"
272    
273    (CLOSE S)   T
274    
275    (PROGN (SETQ S (OPEN "t1.plc" :DIRECTION :OUTPUT)) T)   T
276    
277    (PRINT "1.satz t1" S)   "1.satz t1"
278    
279    (PRINT "2.satz t1" S)   "2.satz t1"
280    
281    (CLOSE S)   T
282    
283    (PROGN (SETQ S (OPEN "t2.plc" :DIRECTION :OUTPUT)) T)   T
284    
285    (PRINT "1.satz t2" S)   "1.satz t2"
286    
287    (PRINT "2.satz t2" S)   "2.satz t2"
288    
289    (CLOSE S)   T
290    
291    (PROGN (SETQ S (OPEN "t3.plc" :DIRECTION :OUTPUT)) T)   T
292    
293    (PRINT "1.satz t3" S)   "1.satz t3"
294    
295    (PRINT "2.satz t3" S)   "2.satz t3"
296    
297    (CLOSE S)   T
298    
299    (PROGN (SETQ S (OPEN "t4.plc" :DIRECTION :OUTPUT)) T)   T
300    
301    (PRINT "1.satz t4" S)   "1.satz t4"
302    
303    (PRINT "2.satz t4" S)   "2.satz t4"
304    
305    (CLOSE S)   T
306    
307    (PROGN (SETQ S (OPEN "t5.plc" :DIRECTION :OUTPUT)) T)   T
308    
309    (PRINT "1.satz t5" S)   "1.satz t5"
310    
311    (PRINT "2.satz t5" S)   "2.satz t5"
312    
313    (CLOSE S)   T
314    
315    (PROGN (SETQ S (OPEN "t6.plc" :DIRECTION :OUTPUT)) T)   T
316    
317    (PRINT "1.satz t6" S)   "1.satz t6"
318    
319    (PRINT "2.satz t6" S)   "2.satz t6"
320    
321    (CLOSE S)   T
322    
323    (PROGN (SETQ S (OPEN "t7.plc" :DIRECTION :OUTPUT)) T)   T
324    
325    (PRINT "1.satz t7" S)   "1.satz t7"
326    
327    (PRINT "2.satz t7" S)   "2.satz t7"
328    
329    (CLOSE S)   T
330    
331    (PROGN (SETQ S (OPEN "t8.plc" :DIRECTION :OUTPUT)) T)   T
332    
333    (PRINT "1.satz t8" S)   "1.satz t8"
334    
335    (PRINT "2.satz t8" S)   "2.satz t8"
336    
337    (CLOSE S)   T
338    
339    (PROGN (SETQ S (OPEN "t9.plc" :DIRECTION :OUTPUT)) T)   T
340    
341    (PRINT "1.satz t9" S)   "1.satz t9"
342    
343    (PRINT "2.satz t9" S)   "2.satz t9"
344    
345    (CLOSE S)   T
346    
347    (PROGN (SETQ S (OPEN "t10.plc" :DIRECTION :OUTPUT)) T)   T
348    
349    (PRINT "1.satz t10" S)   "1.satz t10"
350    
351    (PRINT "2.satz t10" S)   "2.satz t10"
352    
353    (CLOSE S)   T
354    
355    (PROGN (SETQ S1 (OPEN "t1.plc")) (SETQ S2 (OPEN "t2.plc"))
356    (SETQ S3 (OPEN "t3.plc")) (SETQ S4 (OPEN "t4.plc")) (SETQ S5 (OPEN
357    "t5.plc"))
358    (SETQ C1 (MAKE-CONCATENATED-STREAM S1 S2 S3))
359    (SETQ C2 (MAKE-CONCATENATED-STREAM S4 S5)) T)   T
360    
361    (READ C1)   "1.satz t1"
362    
363    (READ C2)   "1.satz t4"
364    
365    (READ C1)   "2.satz t1"
366    
367    (READ C1)   "1.satz t2"
368    
369    (READ C2)   "2.satz t4"
370    
371    (READ C2)   "1.satz t5"
372    
373    (READ C1)   "2.satz t2"
374    
375    (READ C1)   "1.satz t3"
376    
377    (READ C1)   "2.satz t3"
378    
379    (READ C2)   "2.satz t5"
380    
381    (CLOSE S1)   T
382    
383    (CLOSE S2)   T
384    
385    (CLOSE S3)   T
386    
387    (CLOSE S4)   T
388    
389    (CLOSE S5)   T
390    
391    (PROGN (SETQ S1 (OPEN "t1.plc")) (SETQ S2 (OPEN "t2.plc"))
392    (SETQ S3 (OPEN "t3.plc")) (SETQ S4 (OPEN "t4.plc")) (SETQ S5 (OPEN
393    "t5.plc"))
394    (SETQ S6 (OPEN "t6.plc")) (SETQ S7 (OPEN "t7.plc")) (SETQ S8 (OPEN
395    "t8.plc"))
396    (SETQ S9 (OPEN "t9.plc")) (SETQ S10 (OPEN "t10.plc"))
397    (SETQ C1 (MAKE-CONCATENATED-STREAM S1 S2))
398    (SETQ C2 (MAKE-CONCATENATED-STREAM S3))
399    (SETQ C3 (MAKE-CONCATENATED-STREAM C1 C2 S4))
400    (SETQ C4 (MAKE-CONCATENATED-STREAM S5 S6 S7 S8 S9 S10)) T)   T
401    
402    (READ C4)   "1.satz t5"
403    
404    (READ C3)   "1.satz t1"
405    
406    (READ C4)   "2.satz t5"
407    
408    (READ C4)   "1.satz t6"
409    
410    (READ C3)   "2.satz t1"
411    
412    (READ C3)   "1.satz t2"
413    
414    (READ C4)   "2.satz t6"
415    
416    (READ C4)   "1.satz t7"
417    
418    (READ C4)   "2.satz t7"
419    
420    (READ C3)   "2.satz t2"
421    
422    (READ C3)   "1.satz t3"
423    
424    (READ C3)   "2.satz t3"
425    
426    (READ C4)   "1.satz t8"
427    
428    (READ C4)   "2.satz t8"
429    
430    (READ C4)   "1.satz t9"
431    
432    (READ C4)   "2.satz t9"
433    
434    (READ C3)   "1.satz t4"
435    
436    (READ C3)   "2.satz t4"
437    
438    (READ C4)   "1.satz t10"
439    
440    (READ C4)   "2.satz t10"
441    
442    (CLOSE S1)   T
443    
444    (CLOSE S2)   T
445    
446    (CLOSE S3)   T
447    
448    (CLOSE S4)   T
449    
450    (CLOSE S5)   T
451    
452    (CLOSE S6)   T
453    
454    (CLOSE S7)   T
455    
456    (CLOSE S8)   T
457    
458    (CLOSE S9)   T
459    
460    (CLOSE S10)   T
461    
462    (SETQ STR1 "test 123456")   "test 123456"
463    
464    (PROGN (SETQ S1 (MAKE-STRING-INPUT-STREAM STR1)) T)   T
465    
466    (READ S1)   TEST
467    
468    (READ-CHAR S1)   #\1
469    
470    (READ-CHAR S1)   #\2
471    
472    (UNREAD-CHAR #\2 S1)   NIL
473    
474    (READ-CHAR S1)   #\2
475    
476    (READ-CHAR S1)   #\3
477    
478    (READ-CHAR S1)   #\4
479    
480    (UNREAD-CHAR #\A S1)   ERROR
481    
482    (READ-CHAR S1)   #\5
483    
484    (READ-CHAR S1)   #\6
485    
486    (CLOSE S1)   T
487    
488    STR1   "test 123456"
489    
490    (multiple-value-list (READ-FROM-STRING "012345 789"))   (12345 7)
491    
492    (multiple-value-list (READ-FROM-STRING "012345 789" T NIL
493                    :PRESERVE-WHITESPACE T))   (12345 6)
494    
495    (multiple-value-list (READ-FROM-STRING "012345 789" T NIL :END 4))
496      (123 4)
497    
498    (multiple-value-list (READ-FROM-STRING "012345 789" T NIL :START 2))
499      (2345 7)
500    
501    (PROGN (SETQ STRGSTREAM (MAKE-STRING-INPUT-STREAM "0123456789" 5 8))
502    T)   T
503    
504    (READ STRGSTREAM)   567
505    
506    (PROGN (SETQ STRGSTREAM
507    (MAKE-STRING-INPUT-STREAM "wenn alles gut geht ist das ein stream 012"))
508    T)   T
509    
510    (READ STRGSTREAM)   WENN
511    
512    (READ STRGSTREAM)   ALLES
513    
514    (READ STRGSTREAM)   GUT
515    
516    (READ STRGSTREAM)   GEHT
517    
518    (READ STRGSTREAM)   IST
519    
520    (READ STRGSTREAM)   DAS
521    
522    (READ STRGSTREAM)   EIN
523    
524    (READ STRGSTREAM)   STREAM
525    
526    (READ STRGSTREAM)   12
527    
528    (PROGN (SETQ STRGSTREAM (MAKE-STRING-OUTPUT-STREAM)) T)   T
529    
530    (PRINC "das " STRGSTREAM)   "das "
531    
532    (PRINC "ist " STRGSTREAM)   "ist "
533    
534    (PRINC "ein " STRGSTREAM)   "ein "
535    
536    (PRINC "string " STRGSTREAM)   "string "
537    
538    (PRINC "output " STRGSTREAM)   "output "
539    
540    (PRINC "stream " STRGSTREAM)   "stream "
541    
542    (GET-OUTPUT-STREAM-STRING STRGSTREAM)   "das ist ein string output stream "
543    
544    (GET-OUTPUT-STREAM-STRING STRGSTREAM)   ""
545    
546    (PRINC "das ist ein neuer string output stream" STRGSTREAM)
547    "das ist ein neuer string output stream"
548    
549    (GET-OUTPUT-STREAM-STRING STRGSTREAM)
550    "das ist ein neuer string output stream"
551    
552    (SETQ *PRINT-LENGTH* 50)   50
553    
554    (WRITE-TO-STRING 123456789)   "123456789"
555    
556    "(write-to-string '#1=(123456789 . #1#))"
557    "(write-to-string '#1=(123456789 . #1#))"
558    
559    (PRIN1-TO-STRING "abc")   "\"abc\""
560    
561    (PRINC-TO-STRING "abc")   "abc"
562    
563    (PROGN (SETQ OS (MAKE-STRING-OUTPUT-STREAM)) T)   T
564    
565    (SETQ S50 "123456789A123456789B123456789C123456789D12345678
566    E")   "123456789A123456789B123456789C123456789D12345678
567    E"
568    
569    (SETQ S49 "123456789A123456789B123456789C123456789D1234567
570    *")   "123456789A123456789B123456789C123456789D1234567
571    *"
572    
573    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
574    E"
575    
576    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
577    E"
578    
579    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
580    E"
581    
582    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
583    E"
584    
585    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
586    E"
587    
588    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
589    E"
590    
591    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
592    E"
593    
594    (PRINC S49 OS)   "123456789A123456789B123456789C123456789D1234567
595    *"
596    
597    (PRINC "A" OS)   "A"
598    
599    (PRINC "B" OS)   "B"
600    
601    (PRINC "C" OS)   "C"
602    
603    (LENGTH (PRINC (GET-OUTPUT-STREAM-STRING OS)))   402
604    
605    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
606    E"
607    
608    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
609    E"
610    
611    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
612    E"
613    
614    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
615    E"
616    
617    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
618    E"
619    
620    (PRINC S50 OS)   "123456789A123456789B123456789C123456789D12345678
621    E"
622    
623    (PRINC S49 OS)   "123456789A123456789B123456789C123456789D1234567
624    *"
625    
626    (PRINC S49 OS)   "123456789A123456789B123456789C123456789D1234567
627    *"
628    
629    (PRINC S49 OS)   "123456789A123456789B123456789C123456789D1234567
630    *"
631    
632    (PRINC S49 OS)   "123456789A123456789B123456789C123456789D1234567
633    *"
634    
635    (LENGTH (PRINC (GET-OUTPUT-STREAM-STRING OS)))   496
636    
637    (PROGN (SETQ OS (OPEN "d0.plc" :DIRECTION :OUTPUT))
638    (SETQ OS1 (OPEN "d1.plc" :DIRECTION :OUTPUT))
639    (SETQ IS (OPEN "t0.plc" :DIRECTION :OUTPUT)) T)   T
640    
641    (PRINC "'(a b #.(print \"1.zwischenwert\" os1) c d)" IS)
642    "'(a b #.(print \"1.zwischenwert\" os1) c d)"
643    
644    (PRINC "'(a b #.(prin1-to-string \"2.zwischenwert\") c d)" IS)
645    "'(a b #.(prin1-to-string \"2.zwischenwert\") c d)"
646    
647    (PRINC "'(a b #.(format nil  \"3.zwischenwert\") c d)" IS)
648    "'(a b #.(format nil  \"3.zwischenwert\") c d)"
649    
650    (CLOSE IS)   T
651    
652    (PROGN (SETQ IS (OPEN "t0.plc")) (SETQ ES (MAKE-ECHO-STREAM IS OS))
653    T)   T
654    
655    (PRINT "ausgabe os1" OS1)   "ausgabe os1"
656    
657    (READ ES)   (QUOTE (A B "1.zwischenwert" C D))
658    
659    (PRINT "ausgabe os1" OS1)   "ausgabe os1"
660    
661    (READ ES)   (QUOTE (A B "\"2.zwischenwert\"" C D))
662    
663    (PRINT "ausgabe os1" OS1)   "ausgabe os1"
664    
665    (READ ES)   (QUOTE (A B "3.zwischenwert" C D))
666    
667    (PRINT "ausgabe os1" OS1)   "ausgabe os1"
668    
669    (CLOSE IS)   T
670    
671    (CLOSE OS)   T
672    
673    (PROGN (SETQ IS (OPEN "d0.plc")) T)   T
674    
675    (READ IS)   (QUOTE (A B "1.zwischenwert" C D))
676    
677    (READ IS)   (QUOTE (A B "\"2.zwischenwert\"" C D))
678    
679    (READ IS)   (QUOTE (A B "3.zwischenwert" C D))
680    
681    (CLOSE IS)   T
682    
683    (CLOSE OS1)   T
684    
685    (PROGN (SETQ IS (OPEN "d1.plc")) T)   T
686    
687    (READ IS)   "ausgabe os1"
688    
689    (READ IS)   "1.zwischenwert"
690    
691    (READ IS)   "ausgabe os1"
692    
693    (READ IS)   "ausgabe os1"
694    
695    (READ IS)   "ausgabe os1"
696    
697    (READ IS)   "1.zwischenwert"
698    
699    (CLOSE IS)   T
700    
701    (progn (mapc #'delete-file (directory "*.plc")) t)
702    T
703    
704    (progn
705    (makunbound 's)
706    (makunbound 's1)
707    (makunbound 's2)
708    (makunbound 's3)
709    (makunbound 's4)
710    (makunbound 's5)
711    (makunbound 's6)
712    (makunbound 's7)
713    (makunbound 's8)
714    (makunbound 's9)
715    (makunbound 's10)
716    (makunbound 'b1)
717    (makunbound 'b2)
718    (makunbound 'c1)
719    (makunbound 'c2)
720    (makunbound 'c3)
721    (makunbound 'c4)
722    (makunbound 'inptw)
723    (makunbound 'sy)
724    (makunbound 'tw)
725    (makunbound 'ec)
726    (makunbound 'str1)
727    (makunbound 'strgstream)
728    (makunbound 'os)
729    (makunbound 'os1)
730    (makunbound 'is)
731    (makunbound 'es)
732    (makunbound 's50)
733    (makunbound 's49)
734    (setq *print-length* nil)
735    t)
736    T
737    

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