home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / streamslong.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  211 b   |  13 lines
  1. (READ-FROM-STRING "123") 123
  2.  
  3. (PRIN1-TO-STRING 123) "123"
  4.  
  5. (SETQ *A* (MAKE-ARRAY 10. :ELEMENT-TYPE 'STRING-CHAR :FILL-POINTER 0)) ""
  6.  
  7. (FORMAT *A* "XXX") NIL
  8.  
  9. *A* "XXX"
  10.  
  11. #+XCL (SYS::CHECK-STREAM-SYSTEM) #+XCL T
  12.  
  13.