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