newlispfanclub.alh.net

Posted: **Wed Sep 21, 2005 12:46 pm**

Hi, All!

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

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

Posted: **Thu Sep 22, 2005 11:40 am**

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)))

Posted: **Sat Sep 24, 2005 11:45 pm**

Nice. Thanks!

newlispfanclub.alh.net

init.lsp right way

init.lsp right way