Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |