Help for lisp routin

[hmsilva]

One more question,

 

when you run the dir is not also included the uu(LSP).LSP file?

It is in the same directory, truth?

[hosyn]

yes , it is no problem , and can be in root directory

and consist of the all of the name lisp file

if it is in same directory added 1 line to uu(LSP).LSP for loading itself and i think no problem for loading ,and if mismatching in the load we can embed it another locathion

[hmsilva]

OK, try

(vl-load-com)
(if (setq a (vl-directory-files "C:/lsp--------hlsp" "*.lsp"))
   (progn
     (setq b (open "C:/lsp--------hlsp/uu(LSP).LSP" "w"))
     (foreach c a
   (if (not (wcmatch c "uu(LSP).LSP"))
     (progn
       (setq d (strcat "(load " (chr 34) "C:/lsp--------hlsp/"  c (chr 34) " " (chr 34) "MyLISP Failed to Load" (chr 34)")"))
       (write-line d b)
     );; progn
     );; if
     );; foreach
     (close b)
     (load "C:/lsp--------hlsp/uu(LSP).LSP" "MyLISP Failed to Load")
   );; progn
 );; if

HTH

Henrique

[hosyn]

wooooooooooooowwwwwwwww:D:)

You're Greattttttttttt Lisp programmer

I don't know how i can explain thanxxxxxxxxxxx you:lol:

[hmsilva]

You're welcome, hosyn

Glad I could help

 

 

Henrique