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 abschitt 20 | |
2 | ||
3 | ||
4 | ; eval | |
5 | ||
6 | (eval (list 'cdr (car '((quote (a . b)) c)))) | |
7 | b | |
8 | ||
9 | (makunbound 'x) | |
10 | x | |
11 | ||
12 | (eval 'x) | |
13 | ERROR | |
14 | ||
15 | (setf x 3) | |
16 | 3 | |
17 | ||
18 | (eval 'x) | |
19 | 3 | |
20 | ||
21 | ;constantp | |
22 | ||
23 | (constantp 2) | |
24 | T | |
25 | ||
26 | (constantp #\r) | |
27 | T | |
28 | ||
29 | (constantp "max") | |
30 | T | |
31 | ||
32 | (constantp '#(110)) | |
33 | #+XCL T #-XCL NIL | |
34 | ||
35 | (constantp :max) | |
36 | T | |
37 | (constantp T) | |
38 | T | |
39 | (constantp NIL) | |
40 | T | |
41 | (constantp 'PI) | |
42 | #-CLISP T #+CLISP NIL | |
43 | (constantp '(quote foo)) | |
44 | T | |
45 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |