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

Diff of /gcl/tests/backquot.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    ;;; testen von backquote
2    
3    
4    (setf x '(a b c))
5    (a b c)
6    
7    `(x ,x ,@x foo ,(cadr  x) bar ,(cdr x) baz ,@(cdr x) ,. x)
8    (X (A B C) A B C FOO B BAR (B C) BAZ B C A B C)
9    
10    (read-from-string "`,@x")
11    ERROR
12    
13    `(,x . ,x)      ; = (append (list x) x)
14    ((a b c) a b c)
15    
16    
17    (read-from-string "`(,x . ,@x)")
18    ERROR
19    
20    
21    (read-from-string ",x")
22    ERROR
23    
24    `#(1 2 3 4)
25    #(1 2 3 4)
26    

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