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

Diff of /gcl/tests/eval20.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 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    

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