init.lsp right way

[Dmi]

Hi, All!



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

Code Select Expand

(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 Expand


(import "kernel32.dll" "GetModuleFileNameA")

(define (find-newlisp , buff)
  (setq buff (dup "00" 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!