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

Diff of /gcl/tests/symbols.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    
2    (SYMBOL-NAME (QUOTE XYZ))
3    "XYZ"
4    
5    (PROGN (GENSYM 77) T) T
6    
7    (PRIN1-TO-STRING (GENSYM "FOO-"))
8    "#:FOO-78"
9    
10    (PRIN1-TO-STRING (GENSYM 32))
11    "#:FOO-32"
12    
13    (PRIN1-TO-STRING (GENSYM))
14    "#:FOO-33"
15    
16    (PRIN1-TO-STRING (GENSYM "garbage-"))
17    #+XCL "#:|garbage|-34"
18    #+CLISP "#:|garbage-34|"
19    

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