/[gcl]/gcl/ansi-tests/eval-when.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/eval-when.lsp

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

revision 1.2 by pfdietz, Wed Jul 16 11:51:14 2003 UTC revision 1.3 by pfdietz, Sat Jul 9 01:08:37 2005 UTC
# Line 63  Line 63 
63    
64  ;;; More EVAL-WHEN tests to go here  ;;; More EVAL-WHEN tests to go here
65    
66    (deftest eval-when.2
67      (eval-when () :bad)
68      nil)
69    
70    (deftest eval-when.3
71      (eval-when (:execute))
72      nil)
73    
74    (deftest eval-when.4
75      (eval-when (:execute) :good)
76      :good)
77    
78    (deftest eval-when.5
79      (eval-when (:compile-toplevel) :bad)
80      nil)
81    
82    (deftest eval-when.6
83      (eval-when (:load-toplevel) :bad)
84      nil)
85    
86    (deftest eval-when.7
87      (eval-when (:compile-toplevel :execute) :good)
88      :good)
89    
90    (deftest eval-when.8
91      (eval-when (:load-toplevel :execute) :good)
92      :good)
93    
94    (deftest eval-when.9
95      (eval-when (:load-toplevel :compile-toplevel) :bad)
96      nil)
97    
98    (deftest eval-when.10
99      (eval-when (:load-toplevel :compile-toplevel :execute) :good)
100      :good)
101    
102    (deftest eval-when.11
103      (eval-when (:execute) (values 'a 'b 'c 'd))
104      a b c d)
105    
106    
107    

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