/[gcl]/gcl/xgcl-2/init_xgcl.lsp
ViewVC logotype

Diff of /gcl/xgcl-2/init_xgcl.lsp

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

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26