/[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.1 by pfdietz, Sun Apr 6 22:04:01 2003 UTC revision 1.2 by pfdietz, Wed Jul 16 11:51:14 2003 UTC
# Line 25  Line 25 
25            (push `(let () (eval-when (,@c ,@l ,@x)            (push `(let () (eval-when (,@c ,@l ,@x)
26                             (push '(let ,@c ,@l ,@x) *eval-when.1-collector*)))                             (push '(let ,@c ,@l ,@x) *eval-when.1-collector*)))
27                  forms))))                  forms))))
28      (with-open-file (o ff :direction :output)      (with-open-file (o ff :direction :output :if-exists :supersede)
29                      (dolist (f forms)                      (dolist (f forms)
30                        (prin1 f o)                        (prin1 f o)
31                        (terpri o)))                        (terpri o)))

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