init.lsp right way

[Dmi]

Hi, All!

Is there the more right way to write init.lsp?

Code: Select all

(set 'newlisp-base "C:\\Program Files\\newlisp")
(set 'preload-modules '("dbf.lsp" "awk.lsp"))
(dolist (l preload-modules) (load (append newlisp-base "\\" l)))

[alex]

Code: Select all

(import "kernel32.dll" "GetModuleFileNameA")

(define (find-newlisp , buff)
  (setq buff (dup "\000" 260))
  (GetModuleFileNameA 0 buff 259)
  (trim buff)
)

(set 'newlisp-base (join (chop (parse (find-newlisp) {/|\\} 0)) "\\"))
(set 'preload-modules '("dbf.lsp" "awk.lsp"))
(dolist (l preload-modules) (load (append newlisp-base "\\" l)))

[Dmi]

Nice. Thanks!