/[gcl]/gcl/windows/install.ansi.lsp
ViewVC logotype

Diff of /gcl/windows/install.ansi.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mjthomas, Tue Jul 1 06:26:29 2003 UTC revision 1.2 by camm, Thu Jul 17 21:09:31 2003 UTC
# Line 60  Line 60 
60        (kill-double-forwards (kill-backs (subseq *system-directory* 0 (- (length *msys-system-directory*) 23)))))        (kill-double-forwards (kill-backs (subseq *system-directory* 0 (- (length *msys-system-directory*) 23)))))
61    
62  (setq *lib-directory*  (setq *lib-directory*
63        (format nil "~a~a" *root-directory* "lib/gcl-2.5.0/"))        (format nil "~a~a" *root-directory* "lib/gcl-2.5.4/"))
64    
65  (setq *h-directory*  (setq *h-directory*
66        (format nil "~a~a" *msys-root-directory* "/lib/gcl-2.5.0/h"))        (format nil "~a~a" *msys-root-directory* "/lib/gcl-2.5.4/h"))
67    
68  (setq *bin-directory*  (setq *bin-directory*
69        (format nil "~a~a" *root-directory* "bin/"))        (format nil "~a~a" *root-directory* "bin/"))
# Line 84  Line 84 
84  (setq *dos-root-directory*  (setq *dos-root-directory*
85        (subseq *dos-system-directory* 0 (- (length *dos-system-directory*) 23)))        (subseq *dos-system-directory* 0 (- (length *dos-system-directory*) 23)))
86    
87  (setq *dos-h-directory*  (setq *dos-h-directory*
88        (format nil "~a~a" *dos-root-directory* "lib\\gcl-2.5.0\\h"))        (format nil "~a~a" *dos-root-directory* "lib\\gcl-2.5.4\\h"))
89    
90  (setq *dos-bin-directory*  (setq *dos-bin-directory*
91        (format nil "~a~a" *dos-root-directory* "bin\\"))        (format nil "~a~a" *dos-root-directory* "bin\\"))

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