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

Diff of /gcl/tests/streamslong.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    (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    

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