Parent Directory | Revision Log | Patch
revision 1.1 by camm, Mon Jun 17 05:43:43 2002 UTC | revision 1.2 by mjthomas, Fri Sep 20 02:25:59 2002 UTC | |
---|---|---|
# | Line 7 | Line 7 |
7 | (lisp::in-package "SLOOP") | (lisp::in-package "SLOOP") |
8 | ||
9 | ;;Appropriate for Austin | ;;Appropriate for Austin |
10 | #-winnt | |
11 | (setq SYSTEM:*DEFAULT-TIME-ZONE* 6) | (setq SYSTEM:*DEFAULT-TIME-ZONE* 6) |
12 | #+winnt | |
13 | (setq SYSTEM:*DEFAULT-TIME-ZONE* (GET-SYSTEM-TIME-ZONE)) | |
14 | ||
15 | (in-package "USER") | (in-package "USER") |
16 | (load "../gcl-tk/tk-package.lsp") | (load "../gcl-tk/tk-package.lsp") |
17 | (progn (allocate 'cons 100) (allocate 'string 40) | (progn (allocate 'cons 100) (allocate 'string 40) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |