Any idea for correcting my code

[hosyn]

Hello Guys

I want to make a lisp file for getting command lisp and produce a file with that command as follows :

(defun c:lspfilemake(/ mmm)
(setq mmm (getstring T "lsp command :"))
(setq filename ( strcat mmm ".lsp")
  (setq file (findfile filename))
   (if (not file)
   	(setq file (open filename "w"))
   );if
  (write-line (strcat  "(defun c:" mmm ".lsp" file))
  (close file)
)

its mean that
(c:bb)  ---->> bb.lsp

This is my all my mind about it, for any helping would be appreciated

Edited July 12, 2020 by hosyn

[marko_ribar]

Can you describe what do you want to achieve... command functions can't have spaces so (getstring T) is wrong - it should be just (getstring)... But you want to make lsp file that has inside listed strings you input as command functions - "(defun c:" and ".lsp" is wrong then - it should be "(c:" and ")"... And if you want to invoke routine for several inputs, then (open filename "w") should actually be (open filename "a") - "a"-appending...

[BIGAL]

Your request does not make much sense why not set up menu etc to pick lisp to run. You could use the multi radio buttons.lsp to have a list of lisp programs to run like Marko can load and run.