(progn (in-package 'sys) t) t (PRIN1-TO-STRING (MAKE-BROADCAST-STREAM)) #+XCL "#<%TYPE-STRUCTURE-STREAM NIL>" #+CLISP "#" (PROGN (SETQ S1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) (SETQ S2 (OPEN "d2.plc" :DIRECTION :OUTPUT)) (SETQ S3 (OPEN "d3.plc" :DIRECTION :OUTPUT)) (SETQ B1 (MAKE-BROADCAST-STREAM S1 S2 S3 *STANDARD-OUTPUT*)) T) T (PRINT "test broadcast satz 1" B1) "test broadcast satz 1" (PRINT "test broadcast satz 2" B1) "test broadcast satz 2" (PRINT "test broadcast satz 3" B1) "test broadcast satz 3" (CLOSE S1) T (CLOSE S2) T (CLOSE S3) T (PROGN (SETQ S (OPEN "d1.plc")) T) T (READ S) "test broadcast satz 1" (READ S) "test broadcast satz 2" (READ S) "test broadcast satz 3" (CLOSE S) T (PROGN (SETQ S (OPEN "d2.plc")) T) T (READ S) "test broadcast satz 1" (READ S) "test broadcast satz 2" (READ S) "test broadcast satz 3" (CLOSE S) T (PROGN (SETQ S (OPEN "d3.plc")) T) T (READ S) "test broadcast satz 1" (READ S) "test broadcast satz 2" (READ S) "test broadcast satz 3" (CLOSE S) T (PROGN (SETQ S (OPEN "t0.plc" :DIRECTION :OUTPUT)) T) T (PRINT (QUOTE READ1) S) READ1 (PRINT (QUOTE READ2) S) READ2 (CLOSE S) T (PROGN (SETQ INPTW (OPEN "t0.plc")) (SETQ S1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) (SETQ S2 (OPEN "d2.plc" :DIRECTION :OUTPUT)) (SETQ SY (MAKE-SYNONYM-STREAM (QUOTE S2))) (SETQ S3 (OPEN "d3.plc" :DIRECTION :OUTPUT)) (SETQ TW (MAKE-TWO-WAY-STREAM INPTW S3)) (SETQ S4 (OPEN "d4.plc" :DIRECTION :OUTPUT)) (SETQ EC (MAKE-ECHO-STREAM INPTW S4)) (SETQ S5 (OPEN "d5.plc" :DIRECTION :OUTPUT)) (SETQ S6 (OPEN "d6.plc" :DIRECTION :OUTPUT)) (SETQ B1 (MAKE-BROADCAST-STREAM S5 S6)) (SETQ S7 (OPEN "d7.plc" :DIRECTION :OUTPUT)) (SETQ B2 (MAKE-BROADCAST-STREAM S1 SY TW EC B1 S7)) T) T (PRINT "w to b2 1.satz" B2) "w to b2 1.satz" (PRINT "w to sy" SY) "w to sy" (PRINT "w to b2 2.satz" B2) "w to b2 2.satz" (PRINT "w to tw" TW) "w to tw" (PRINT "w to b2 3.satz" B2) "w to b2 3.satz" (PRINT "w to ec" EC) "w to ec" (PRINT "w to b2 4.satz" B2) "w to b2 4.satz" (PRINT "w to b1" B1) "w to b1" (PRINT "w to b2 5.satz" B2) "w to b2 5.satz" (PRINT "w to s7" S7) "w to s7" (PRINT "w to b2 6.satz" B2) "w to b2 6.satz" (READ TW) READ1 (READ EC) READ2 (PRINT "w to b2 7.satz" B2) "w to b2 7.satz" (PRINT "w to b2 8.satz" B2) "w to b2 8.satz" (CLOSE INPTW) T (CLOSE S1) T (CLOSE S2) T (CLOSE S3) T (CLOSE S4) T (CLOSE S5) T (CLOSE S6) T (CLOSE S7) T (PROGN (SETQ S (OPEN "d1.plc")) T) T (READ S) "w to b2 1.satz" (READ S) "w to b2 2.satz" (READ S) "w to b2 3.satz" (READ S) "w to b2 4.satz" (READ S) "w to b2 5.satz" (READ S) "w to b2 6.satz" (READ S) "w to b2 7.satz" (READ S) "w to b2 8.satz" (CLOSE S) T (PROGN (SETQ S (OPEN "d2.plc")) T) T (READ S) "w to b2 1.satz" (READ S) "w to sy" (READ S) "w to b2 2.satz" (READ S) "w to b2 3.satz" (READ S) "w to b2 4.satz" (READ S) "w to b2 5.satz" (READ S) "w to b2 6.satz" (READ S) "w to b2 7.satz" (READ S) "w to b2 8.satz" (CLOSE S) T (PROGN (SETQ S (OPEN "d3.plc")) T) T (READ S) "w to b2 1.satz" (READ S) "w to b2 2.satz" (READ S) "w to tw" (READ S) "w to b2 3.satz" (READ S) "w to b2 4.satz" (READ S) "w to b2 5.satz" (READ S) "w to b2 6.satz" (READ S) "w to b2 7.satz" (READ S) "w to b2 8.satz" (CLOSE S) T (PROGN (SETQ S (OPEN "d4.plc")) T) T (READ S) "w to b2 1.satz" (READ S) "w to b2 2.satz" (READ S) "w to b2 3.satz" (READ S) "w to ec" (READ S) "w to b2 4.satz" (READ S) "w to b2 5.satz" (READ S) "w to b2 6.satz" (READ S) READ2 (READ S) "w to b2 7.satz" (READ S) "w to b2 8.satz" (CLOSE S) T (PROGN (SETQ S (OPEN "d5.plc")) T) T (READ S) "w to b2 1.satz" (READ S) "w to b2 2.satz" (READ S) "w to b2 3.satz" (READ S) "w to b2 4.satz" (READ S) "w to b1" (READ S) "w to b2 5.satz" (READ S) "w to b2 6.satz" (READ S) "w to b2 7.satz" (READ S) "w to b2 8.satz" (CLOSE S) T (PROGN (SETQ S (OPEN "d6.plc")) T) T (READ S) "w to b2 1.satz" (READ S) "w to b2 2.satz" (READ S) "w to b2 3.satz" (READ S) "w to b2 4.satz" (READ S) "w to b1" (READ S) "w to b2 5.satz" (READ S) "w to b2 6.satz" (READ S) "w to b2 7.satz" (READ S) "w to b2 8.satz" (CLOSE S) T (PROGN (SETQ S (OPEN "d7.plc")) T) T (READ S) "w to b2 1.satz" (READ S) "w to b2 2.satz" (READ S) "w to b2 3.satz" (READ S) "w to b2 4.satz" (READ S) "w to b2 5.satz" (READ S) "w to s7" (READ S) "w to b2 6.satz" (READ S) "w to b2 7.satz" (READ S) "w to b2 8.satz" (CLOSE S) T (PROGN (SETQ S (OPEN "t1.plc" :DIRECTION :OUTPUT)) T) T (PRINT "1.satz t1" S) "1.satz t1" (PRINT "2.satz t1" S) "2.satz t1" (CLOSE S) T (PROGN (SETQ S (OPEN "t2.plc" :DIRECTION :OUTPUT)) T) T (PRINT "1.satz t2" S) "1.satz t2" (PRINT "2.satz t2" S) "2.satz t2" (CLOSE S) T (PROGN (SETQ S (OPEN "t3.plc" :DIRECTION :OUTPUT)) T) T (PRINT "1.satz t3" S) "1.satz t3" (PRINT "2.satz t3" S) "2.satz t3" (CLOSE S) T (PROGN (SETQ S (OPEN "t4.plc" :DIRECTION :OUTPUT)) T) T (PRINT "1.satz t4" S) "1.satz t4" (PRINT "2.satz t4" S) "2.satz t4" (CLOSE S) T (PROGN (SETQ S (OPEN "t5.plc" :DIRECTION :OUTPUT)) T) T (PRINT "1.satz t5" S) "1.satz t5" (PRINT "2.satz t5" S) "2.satz t5" (CLOSE S) T (PROGN (SETQ S (OPEN "t6.plc" :DIRECTION :OUTPUT)) T) T (PRINT "1.satz t6" S) "1.satz t6" (PRINT "2.satz t6" S) "2.satz t6" (CLOSE S) T (PROGN (SETQ S (OPEN "t7.plc" :DIRECTION :OUTPUT)) T) T (PRINT "1.satz t7" S) "1.satz t7" (PRINT "2.satz t7" S) "2.satz t7" (CLOSE S) T (PROGN (SETQ S (OPEN "t8.plc" :DIRECTION :OUTPUT)) T) T (PRINT "1.satz t8" S) "1.satz t8" (PRINT "2.satz t8" S) "2.satz t8" (CLOSE S) T (PROGN (SETQ S (OPEN "t9.plc" :DIRECTION :OUTPUT)) T) T (PRINT "1.satz t9" S) "1.satz t9" (PRINT "2.satz t9" S) "2.satz t9" (CLOSE S) T (PROGN (SETQ S (OPEN "t10.plc" :DIRECTION :OUTPUT)) T) T (PRINT "1.satz t10" S) "1.satz t10" (PRINT "2.satz t10" S) "2.satz t10" (CLOSE S) T (PROGN (SETQ S1 (OPEN "t1.plc")) (SETQ S2 (OPEN "t2.plc")) (SETQ S3 (OPEN "t3.plc")) (SETQ S4 (OPEN "t4.plc")) (SETQ S5 (OPEN "t5.plc")) (SETQ C1 (MAKE-CONCATENATED-STREAM S1 S2 S3)) (SETQ C2 (MAKE-CONCATENATED-STREAM S4 S5)) T) T (READ C1) "1.satz t1" (READ C2) "1.satz t4" (READ C1) "2.satz t1" (READ C1) "1.satz t2" (READ C2) "2.satz t4" (READ C2) "1.satz t5" (READ C1) "2.satz t2" (READ C1) "1.satz t3" (READ C1) "2.satz t3" (READ C2) "2.satz t5" (CLOSE S1) T (CLOSE S2) T (CLOSE S3) T (CLOSE S4) T (CLOSE S5) T (PROGN (SETQ S1 (OPEN "t1.plc")) (SETQ S2 (OPEN "t2.plc")) (SETQ S3 (OPEN "t3.plc")) (SETQ S4 (OPEN "t4.plc")) (SETQ S5 (OPEN "t5.plc")) (SETQ S6 (OPEN "t6.plc")) (SETQ S7 (OPEN "t7.plc")) (SETQ S8 (OPEN "t8.plc")) (SETQ S9 (OPEN "t9.plc")) (SETQ S10 (OPEN "t10.plc")) (SETQ C1 (MAKE-CONCATENATED-STREAM S1 S2)) (SETQ C2 (MAKE-CONCATENATED-STREAM S3)) (SETQ C3 (MAKE-CONCATENATED-STREAM C1 C2 S4)) (SETQ C4 (MAKE-CONCATENATED-STREAM S5 S6 S7 S8 S9 S10)) T) T (READ C4) "1.satz t5" (READ C3) "1.satz t1" (READ C4) "2.satz t5" (READ C4) "1.satz t6" (READ C3) "2.satz t1" (READ C3) "1.satz t2" (READ C4) "2.satz t6" (READ C4) "1.satz t7" (READ C4) "2.satz t7" (READ C3) "2.satz t2" (READ C3) "1.satz t3" (READ C3) "2.satz t3" (READ C4) "1.satz t8" (READ C4) "2.satz t8" (READ C4) "1.satz t9" (READ C4) "2.satz t9" (READ C3) "1.satz t4" (READ C3) "2.satz t4" (READ C4) "1.satz t10" (READ C4) "2.satz t10" (CLOSE S1) T (CLOSE S2) T (CLOSE S3) T (CLOSE S4) T (CLOSE S5) T (CLOSE S6) T (CLOSE S7) T (CLOSE S8) T (CLOSE S9) T (CLOSE S10) T (SETQ STR1 "test 123456") "test 123456" (PROGN (SETQ S1 (MAKE-STRING-INPUT-STREAM STR1)) T) T (READ S1) TEST (READ-CHAR S1) #\1 (READ-CHAR S1) #\2 (UNREAD-CHAR #\2 S1) NIL (READ-CHAR S1) #\2 (READ-CHAR S1) #\3 (READ-CHAR S1) #\4 (UNREAD-CHAR #\A S1) ERROR (READ-CHAR S1) #\5 (READ-CHAR S1) #\6 (CLOSE S1) T STR1 "test 123456" (multiple-value-list (READ-FROM-STRING "012345 789")) (12345 7) (multiple-value-list (READ-FROM-STRING "012345 789" T NIL :PRESERVE-WHITESPACE T)) (12345 6) (multiple-value-list (READ-FROM-STRING "012345 789" T NIL :END 4)) (123 4) (multiple-value-list (READ-FROM-STRING "012345 789" T NIL :START 2)) (2345 7) (PROGN (SETQ STRGSTREAM (MAKE-STRING-INPUT-STREAM "0123456789" 5 8)) T) T (READ STRGSTREAM) 567 (PROGN (SETQ STRGSTREAM (MAKE-STRING-INPUT-STREAM "wenn alles gut geht ist das ein stream 012")) T) T (READ STRGSTREAM) WENN (READ STRGSTREAM) ALLES (READ STRGSTREAM) GUT (READ STRGSTREAM) GEHT (READ STRGSTREAM) IST (READ STRGSTREAM) DAS (READ STRGSTREAM) EIN (READ STRGSTREAM) STREAM (READ STRGSTREAM) 12 (PROGN (SETQ STRGSTREAM (MAKE-STRING-OUTPUT-STREAM)) T) T (PRINC "das " STRGSTREAM) "das " (PRINC "ist " STRGSTREAM) "ist " (PRINC "ein " STRGSTREAM) "ein " (PRINC "string " STRGSTREAM) "string " (PRINC "output " STRGSTREAM) "output " (PRINC "stream " STRGSTREAM) "stream " (GET-OUTPUT-STREAM-STRING STRGSTREAM) "das ist ein string output stream " (GET-OUTPUT-STREAM-STRING STRGSTREAM) "" (PRINC "das ist ein neuer string output stream" STRGSTREAM) "das ist ein neuer string output stream" (GET-OUTPUT-STREAM-STRING STRGSTREAM) "das ist ein neuer string output stream" (SETQ *PRINT-LENGTH* 50) 50 (WRITE-TO-STRING 123456789) "123456789" "(write-to-string '#1=(123456789 . #1#))" "(write-to-string '#1=(123456789 . #1#))" (PRIN1-TO-STRING "abc") "\"abc\"" (PRINC-TO-STRING "abc") "abc" (PROGN (SETQ OS (MAKE-STRING-OUTPUT-STREAM)) T) T (SETQ S50 "123456789A123456789B123456789C123456789D12345678 E") "123456789A123456789B123456789C123456789D12345678 E" (SETQ S49 "123456789A123456789B123456789C123456789D1234567 *") "123456789A123456789B123456789C123456789D1234567 *" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S49 OS) "123456789A123456789B123456789C123456789D1234567 *" (PRINC "A" OS) "A" (PRINC "B" OS) "B" (PRINC "C" OS) "C" (LENGTH (PRINC (GET-OUTPUT-STREAM-STRING OS))) 402 (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S50 OS) "123456789A123456789B123456789C123456789D12345678 E" (PRINC S49 OS) "123456789A123456789B123456789C123456789D1234567 *" (PRINC S49 OS) "123456789A123456789B123456789C123456789D1234567 *" (PRINC S49 OS) "123456789A123456789B123456789C123456789D1234567 *" (PRINC S49 OS) "123456789A123456789B123456789C123456789D1234567 *" (LENGTH (PRINC (GET-OUTPUT-STREAM-STRING OS))) 496 (PROGN (SETQ OS (OPEN "d0.plc" :DIRECTION :OUTPUT)) (SETQ OS1 (OPEN "d1.plc" :DIRECTION :OUTPUT)) (SETQ IS (OPEN "t0.plc" :DIRECTION :OUTPUT)) T) T (PRINC "'(a b #.(print \"1.zwischenwert\" os1) c d)" IS) "'(a b #.(print \"1.zwischenwert\" os1) c d)" (PRINC "'(a b #.(prin1-to-string \"2.zwischenwert\") c d)" IS) "'(a b #.(prin1-to-string \"2.zwischenwert\") c d)" (PRINC "'(a b #.(format nil \"3.zwischenwert\") c d)" IS) "'(a b #.(format nil \"3.zwischenwert\") c d)" (CLOSE IS) T (PROGN (SETQ IS (OPEN "t0.plc")) (SETQ ES (MAKE-ECHO-STREAM IS OS)) T) T (PRINT "ausgabe os1" OS1) "ausgabe os1" (READ ES) (QUOTE (A B "1.zwischenwert" C D)) (PRINT "ausgabe os1" OS1) "ausgabe os1" (READ ES) (QUOTE (A B "\"2.zwischenwert\"" C D)) (PRINT "ausgabe os1" OS1) "ausgabe os1" (READ ES) (QUOTE (A B "3.zwischenwert" C D)) (PRINT "ausgabe os1" OS1) "ausgabe os1" (CLOSE IS) T (CLOSE OS) T (PROGN (SETQ IS (OPEN "d0.plc")) T) T (READ IS) (QUOTE (A B "1.zwischenwert" C D)) (READ IS) (QUOTE (A B "\"2.zwischenwert\"" C D)) (READ IS) (QUOTE (A B "3.zwischenwert" C D)) (CLOSE IS) T (CLOSE OS1) T (PROGN (SETQ IS (OPEN "d1.plc")) T) T (READ IS) "ausgabe os1" (READ IS) "1.zwischenwert" (READ IS) "ausgabe os1" (READ IS) "ausgabe os1" (READ IS) "ausgabe os1" (READ IS) "1.zwischenwert" (CLOSE IS) T (progn (mapc #'delete-file (directory "*.plc")) t) T (progn (makunbound 's) (makunbound 's1) (makunbound 's2) (makunbound 's3) (makunbound 's4) (makunbound 's5) (makunbound 's6) (makunbound 's7) (makunbound 's8) (makunbound 's9) (makunbound 's10) (makunbound 'b1) (makunbound 'b2) (makunbound 'c1) (makunbound 'c2) (makunbound 'c3) (makunbound 'c4) (makunbound 'inptw) (makunbound 'sy) (makunbound 'tw) (makunbound 'ec) (makunbound 'str1) (makunbound 'strgstream) (makunbound 'os) (makunbound 'os1) (makunbound 'is) (makunbound 'es) (makunbound 's50) (makunbound 's49) (setq *print-length* nil) t) T