Parent Directory | Revision Log | 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))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |