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