Print Page - init.lsp right way

Title: init.lsp right way
Post by: Dmi on September 21, 2005, 05:46:24 AM

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

Title:
Post by: alex on September 22, 2005, 04:40:34 AM

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

Title:
Post by: Dmi on September 24, 2005, 04:45:47 PM

Nice. Thanks!

newLISP Fan Club

Forum => newLISP and the O.S. => Topic started by: Dmi on September 21, 2005, 05:46:24 AM