/[gcl]/gcl/lsp/top.lsp
ViewVC logotype

Diff of /gcl/lsp/top.lsp

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

revision 1.4 by mjthomas, Thu Feb 20 04:46:27 2003 UTC revision 1.5 by camm, Thu Sep 4 03:09:39 2003 UTC
# Line 741  First directory is checked for first nam Line 741  First directory is checked for first nam
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*)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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