/[gcl]/gcl/unixport/init_trad_gcl.lsp
ViewVC logotype

Diff of /gcl/unixport/init_trad_gcl.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

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