741 |
(setq *load-path* (cons (si::string-concatenate *lib-directory* |
(setq *load-path* (cons (si::string-concatenate *lib-directory* |
742 |
"gcl-tk/") *load-path*)) |
"gcl-tk/") *load-path*)) |
743 |
) |
) |
744 |
(setq si::*system-directory* (namestring |
(when (not (boundp 'si::*system-directory*)) |
745 |
(truename (make-pathname :name nil :type nil :defaults (si::argv 0))))) |
(setq si::*system-directory* (namestring |
746 |
|
(truename (make-pathname :name nil :type nil :defaults (si::argv 0)))))) |
747 |
(set-dir 'si::*system-directory* "-dir") |
(set-dir 'si::*system-directory* "-dir") |
748 |
(if (multiple-value-setq (tem tem) (get-command-arg "-f")) |
(if (multiple-value-setq (tem tem) (get-command-arg "-f")) |
749 |
(let (*load-verbose*) |
(let (*load-verbose*) |