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.2/")) |
(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.2/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/")) |
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.2\\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\\")) |