← Back to branch summary

~ubuntu-branches/ubuntu/vivid/gcl/vivid

« back to all changes in this revision

Viewing changes to tests/streamslong.tst

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2002-03-04 14:29:59 UTC
  • Revision ID: james.westby@ubuntu.com-20020304142959-dey14w08kr7lldu3
Tags: upstream-2.5.0.cvs20020219
Import upstream version 2.5.0.cvs20020219

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/streamslong.tst
 
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