Parent Directory | Revision Log | Patch
revision 1.1.1.1 by camm, Tue Aug 13 03:24:29 2002 UTC | revision 1.2 by mjthomas, Fri Sep 20 02:25:59 2002 UTC | |
---|---|---|
# | Line 27 | Line 27 |
27 | ||
28 | (lisp::in-package "SLOOP") | (lisp::in-package "SLOOP") |
29 | ;;Appropriate for Austin | ;;Appropriate for Austin |
30 | #-winnt | |
31 | (setq SYSTEM:*DEFAULT-TIME-ZONE* 6) | (setq SYSTEM:*DEFAULT-TIME-ZONE* 6) |
32 | #+winnt | |
33 | (setq SYSTEM:*DEFAULT-TIME-ZONE* (GET-SYSTEM-TIME-ZONE)) | |
34 | ||
35 | (in-package "USER") | (in-package "USER") |
36 | (progn (allocate 'cons 100) (allocate 'string 40) | (progn (allocate 'cons 100) (allocate 'string 40) |
37 | (system:init-system) (gbc t) | (system:init-system) (gbc t) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |