/[gcl]/gcl/ansi-tests/constantp.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/constantp.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Tue Jan 14 11:38:07 2003 UTC revision 1.3 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 25  Line 25 
25    nil)    nil)
26    
27  (deftest constantp.2  (deftest constantp.2
28    (notnot (constantp t))    (notnot-mv (constantp t))
29    t)    t)
30        
31  (deftest constantp.3  (deftest constantp.3
32    (notnot (constantp nil))    (notnot-mv (constantp nil))
33    t)    t)
34    
35  (deftest constantp.4  (deftest constantp.4
36    (notnot (constantp :foo))    (notnot-mv (constantp :foo))
37    t)    t)
38    
39  (deftest constantp.5  (deftest constantp.5
# Line 43  Line 43 
43  (defconstant constantp-test-symbol 1)  (defconstant constantp-test-symbol 1)
44    
45  (defmacro constantp-macro (form &environment env)  (defmacro constantp-macro (form &environment env)
46    (notnot (constantp form env)))    (notnot-mv (constantp form env)))
47    
48  (deftest constantp.6  (deftest constantp.6
49    (constantp-macro constantp-test-symbol)    (constantp-macro constantp-test-symbol)
# Line 54  Line 54 
54    nil)    nil)
55    
56  (deftest constantp.8  (deftest constantp.8
57    (notnot (constantp 1 nil))    (notnot-mv (constantp 1 nil))
58    t)    t)
59    
60  (deftest constantp.9  (deftest constantp.9
61    (notnot (constantp ''(((foo)))))    (notnot-mv (constantp ''(((foo)))))
62    t)    t)
63    
64  (deftest constantp.10  (deftest constantp.10
65    (notnot (constantp 'pi))    (notnot-mv (constantp 'pi))
66    t)    t)
67    
68    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26