/[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.3 by pfdietz, Sat Jul 9 01:08:37 2005 UTC revision 1.4 by pfdietz, Thu Jul 14 02:52:38 2005 UTC
# Line 103  Line 103 
103    (eval-when (:execute) (values 'a 'b 'c 'd))    (eval-when (:execute) (values 'a 'b 'c 'd))
104    a b c d)    a b c d)
105    
106    (deftest eval-when.12
107      (let ((x :good))
108        (values (eval-when (:load-toplevel) (setq x :bad)) x))
109      nil :good)
110    
111    (deftest eval-when.13
112      (let ((x :good))
113        (values (eval-when (:compile-toplevel) (setq x :bad)) x))
114      nil :good)
115    
116    (deftest eval-when.14
117      (let ((x :bad))
118        (values (eval-when (:execute) (setq x :good)) x))
119      :good :good)
120    
121    (deftest eval-when.15
122      (let ((x :good))
123        (values (eval-when (load) (setq x :bad)) x))
124      nil :good)
125    
126    (deftest eval-when.16
127      (let ((x :good))
128        (values (eval-when (compile) (setq x :bad)) x))
129      nil :good)
130    
131    (deftest eval-when.17
132      (let ((x :bad))
133        (values (eval-when (eval) (setq x :good)) x))
134      :good :good)
135    

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

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